diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,18 @@ ## Description -Amazon Elastic Compute Cloud (Amazon EC2) is a web service that provides resizable compute capacity in the cloud. It is designed to make web-scale computing easier for developers. Amazon EC2’s simple web service interface allows you to obtain and configure capacity with minimal friction. It provides you with complete control of your computing resources and lets you run on Amazon’s proven computing environment. Amazon EC2 reduces the time required to obtain and boot new server instances to minutes, allowing you to quickly scale capacity, both up and down, as your computing requirements change. Amazon EC2 changes the economics of computing by allowing you to pay only for capacity that you actually use. Amazon EC2 provides developers the tools to build failure resilient applications and isolate themselves from common failure scenarios. + Amazon Elastic Compute Cloud (Amazon EC2) is a web service that provides + resizable compute capacity in the cloud. It is designed to make web-scale + computing easier for developers. Amazon EC2’s simple web service interface + allows you to obtain and configure capacity with minimal friction. It + provides you with complete control of your computing resources and lets you + run on Amazon’s proven computing environment. Amazon EC2 reduces the time + required to obtain and boot new server instances to minutes, allowing you to + quickly scale capacity, both up and down, as your computing requirements + change. Amazon EC2 changes the economics of computing by allowing you to pay + only for capacity that you actually use. Amazon EC2 provides developers the + tools to build failure resilient applications and isolate themselves from + common failure scenarios. Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-ec2) and [AWS API Reference](http://docs.aws.amazon.com/AWSEC2/latest/APIReference/Welcome.html). 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: 0.0.1 +version: 0.0.2 synopsis: Amazon Elastic Compute Cloud SDK. homepage: https://github.com/brendanhay/amazonka license: OtherLicense @@ -13,19 +13,18 @@ cabal-version: >= 1.10 description: - Amazon Elastic Compute Cloud (Amazon EC2) is a web service that - provides resizable compute capacity in the cloud. It is designed to - make web-scale computing easier for developers. Amazon EC2’s simple web - service interface allows you to obtain and configure capacity with - minimal friction. It provides you with complete control of your - computing resources and lets you run on Amazon’s proven computing - environment. Amazon EC2 reduces the time required to obtain and boot - new server instances to minutes, allowing you to quickly scale - capacity, both up and down, as your computing requirements change. - Amazon EC2 changes the economics of computing by allowing you to pay - only for capacity that you actually use. Amazon EC2 provides developers - the tools to build failure resilient applications and isolate - themselves from common failure scenarios. + Amazon Elastic Compute Cloud (Amazon EC2) is a web service that provides + resizable compute capacity in the cloud. It is designed to make web-scale + computing easier for developers. Amazon EC2’s simple web service interface + allows you to obtain and configure capacity with minimal friction. It + provides you with complete control of your computing resources and lets you + run on Amazon’s proven computing environment. Amazon EC2 reduces the time + required to obtain and boot new server instances to minutes, allowing you to + quickly scale capacity, both up and down, as your computing requirements + change. Amazon EC2 changes the economics of computing by allowing you to pay + only for capacity that you actually use. Amazon EC2 provides developers the + tools to build failure resilient applications and isolate themselves from + common failure scenarios. . /See:/ . @@ -204,5 +203,5 @@ Network.AWS.EC2.Internal build-depends: - amazonka-core == 0.0.1.* + amazonka-core == 0.0.2.* , base >= 4.7 && < 5 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 @@ -14,12 +14,12 @@ -- allows you to obtain and configure capacity with minimal friction. It -- provides you with complete control of your computing resources and lets you -- run on Amazon’s proven computing environment. Amazon EC2 reduces the time --- required to obtain and boot new server instances to minutes, allowing you --- to quickly scale capacity, both up and down, as your computing requirements --- change. Amazon EC2 changes the economics of computing by allowing you to --- pay only for capacity that you actually use. Amazon EC2 provides developers --- the tools to build failure resilient applications and isolate themselves --- from common failure scenarios. +-- required to obtain and boot new server instances to minutes, allowing you to +-- quickly scale capacity, both up and down, as your computing requirements +-- change. Amazon EC2 changes the economics of computing by allowing you to pay +-- only for capacity that you actually use. Amazon EC2 provides developers the +-- tools to build failure resilient applications and isolate themselves from +-- common failure scenarios. module Network.AWS.EC2 ( module Network.AWS.EC2.AcceptVpcPeeringConnection , module Network.AWS.EC2.AllocateAddress 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 @@ -20,10 +20,10 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | 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 the DescribeVpcPeeringConnections request to --- view your outstanding VPC peering connection requests. +-- | 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 the 'DescribeVpcPeeringConnections' request to view your +-- outstanding VPC peering connection requests. -- -- module Network.AWS.EC2.AcceptVpcPeeringConnection 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 @@ -20,10 +20,11 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Acquires an Elastic IP address. An Elastic IP address is for use either in --- the EC2-Classic platform or in a VPC. For more information, see Elastic IP --- Addresses in the Amazon Elastic Compute Cloud User Guide. +-- | Acquires an Elastic IP address. -- +-- An Elastic IP address is for use either in the EC2-Classic platform or in a +-- VPC. For more information, see in the /Amazon ElasticCompute Cloud User Guide/. +-- -- module Network.AWS.EC2.AllocateAddress ( @@ -69,7 +70,8 @@ , _aaDomain = Nothing } --- | Set to vpc to allocate the address for use with instances in a VPC. +-- | 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 }) @@ -100,13 +102,13 @@ , _aarAllocationId = Nothing } --- | [EC2-VPC] The ID that AWS assigns to represent the allocation of the --- Elastic IP address for use with instances in a VPC. +-- | [EC2-VPC] The ID that AWS assigns to represent the allocation of the Elastic +-- IP address for use with instances in a VPC. aarAllocationId :: Lens' AllocateAddressResponse (Maybe Text) aarAllocationId = lens _aarAllocationId (\s a -> s { _aarAllocationId = a }) -- | Indicates whether this Elastic IP address is for use with instances in --- EC2-Classic (standard) or instances in a VPC (vpc). +-- EC2-Classic ('standard') or instances in a VPC ('vpc'). aarDomain :: Lens' AllocateAddressResponse (Maybe DomainType) aarDomain = lens _aarDomain (\s a -> s { _aarDomain = a }) 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 @@ -25,9 +25,9 @@ -- you can specify the number of secondary IP addresses to be automatically -- assigned within the subnet's CIDR block range. The number of secondary IP -- addresses that you can assign to an instance varies by instance type. For --- information about instance types, see Instance Types in the Amazon Elastic --- Compute Cloud User Guide. For more information about Elastic IP addresses, --- see Elastic IP Addresses in the Amazon Elastic Compute Cloud User Guide. +-- information about instance types, see in the /Amazon ElasticCompute Cloud User Guide/. For more information about Elastic IP addresses, +-- see in the /Amazon Elastic Compute Cloud User Guide/. +-- -- AssignPrivateIpAddresses is available only in EC2-VPC. -- -- @@ -82,9 +82,9 @@ , _apiaAllowReassignment = Nothing } --- | 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. +-- | 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 }) @@ -94,19 +94,19 @@ apiaNetworkInterfaceId = lens _apiaNetworkInterfaceId (\s a -> s { _apiaNetworkInterfaceId = a }) --- | 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. +-- | 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 }) . _List --- | The number of secondary IP addresses to assign to the network interface. --- You can't specify this parameter when also specifying private IP --- addresses. +-- | 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 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 @@ -21,15 +21,19 @@ -- Portability : non-portable (GHC extensions) -- | Associates an Elastic IP address with an instance or a network interface. +-- -- An Elastic IP address is for use in either the EC2-Classic platform or in a --- VPC. For more information, see Elastic IP Addresses in the Amazon Elastic --- Compute Cloud User Guide. [EC2-Classic, VPC in an EC2-VPC-only account] If --- the Elastic IP address is already associated with a different instance, it --- is disassociated from that instance and associated with the specified --- instance. [VPC in an EC2-Classic account] If you don't specify a private IP --- address, the Elastic IP address is associated with the primary IP address. --- If the Elastic IP address is already associated with a different instance --- or a network interface, you get an error unless you allow reassociation. +-- VPC. For more information, see in the /Amazon ElasticCompute Cloud User Guide/. +-- +-- [EC2-Classic, VPC in an EC2-VPC-only account] If the Elastic IP address is +-- already associated with a different instance, it is disassociated from that +-- instance and associated with the specified instance. +-- +-- [VPC in an EC2-Classic account] If you don't specify a private IP address, +-- the Elastic IP address is associated with the primary IP address. If the +-- Elastic IP address is already associated with a different instance or a +-- network interface, you get an error unless you allow reassociation. +-- -- This is an idempotent operation. If you perform the operation more than -- once, Amazon EC2 doesn't return an error. -- @@ -106,9 +110,10 @@ aa1AllocationId = lens _aa1AllocationId (\s a -> s { _aa1AllocationId = a }) -- | [EC2-VPC] Allows an Elastic IP address that is already associated with an --- instance or network interface to be re-associated with the specified --- instance or network interface. Otherwise, the operation fails. Default: --- false. +-- instance or network interface to be re-associated with the specified instance +-- or network interface. Otherwise, the operation fails. +-- +-- Default: 'false' aa1AllowReassociation :: Lens' AssociateAddress (Maybe Bool) aa1AllowReassociation = lens _aa1AllowReassociation (\s a -> s { _aa1AllowReassociation = a }) @@ -116,22 +121,22 @@ aa1DryRun :: Lens' AssociateAddress (Maybe Bool) aa1DryRun = lens _aa1DryRun (\s a -> s { _aa1DryRun = a }) --- | 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. +-- | 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. aa1InstanceId :: Lens' AssociateAddress (Maybe Text) aa1InstanceId = lens _aa1InstanceId (\s a -> s { _aa1InstanceId = 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. +-- | [EC2-VPC] The ID of the network interface. If the instance has more than one +-- network interface, you must specify a network interface ID. aa1NetworkInterfaceId :: Lens' AssociateAddress (Maybe Text) aa1NetworkInterfaceId = lens _aa1NetworkInterfaceId (\s a -> s { _aa1NetworkInterfaceId = 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. +-- | [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. aa1PrivateIpAddress :: Lens' AssociateAddress (Maybe Text) aa1PrivateIpAddress = lens _aa1PrivateIpAddress (\s a -> s { _aa1PrivateIpAddress = a }) @@ -155,8 +160,8 @@ { _aarAssociationId = Nothing } --- | [EC2-VPC] The ID that represents the association of the Elastic IP --- address with an instance. +-- | [EC2-VPC] The ID that represents the association of the Elastic IP address +-- with an instance. aarAssociationId :: Lens' AssociateAddressResponse (Maybe Text) aarAssociationId = lens _aarAssociationId (\s a -> s { _aarAssociationId = a }) 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 @@ -21,15 +21,17 @@ -- Portability : non-portable (GHC extensions) -- | Associates a set of DHCP options (that you've previously created) with the --- specified VPC, or associates no DHCP options with the VPC. After you --- associate the options with the VPC, any existing instances and all new --- instances that you launch in that VPC use the options. You don't need to +-- specified VPC, or associates no DHCP options with the VPC. +-- +-- After you associate the options with the VPC, any existing instances and all +-- new instances that you launch in that VPC use the options. You don't need to -- restart or relaunch the instances. They automatically pick up the changes --- within a few hours, depending on how frequently the instance renews its --- DHCP lease. You can explicitly renew the lease using the operating system --- on the instance. For more information, see DHCP Options Sets in the Amazon --- Virtual Private Cloud User Guide. +-- within a few hours, depending on how frequently the instance renews its DHCP +-- lease. You can explicitly renew the lease using the operating system on the +-- instance. -- +-- For more information, see in the /Amazon Virtual PrivateCloud User Guide/. +-- -- module Network.AWS.EC2.AssociateDhcpOptions ( @@ -78,8 +80,8 @@ , _adoDryRun = Nothing } --- | The ID of the DHCP options set, or default to associate no DHCP options --- with the VPC. +-- | 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 }) 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 @@ -20,13 +20,13 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Associates a subnet with a route table. The subnet and route table must be --- in the same VPC. This association causes traffic originating from the --- subnet to be routed according to the routes in the route table. The action --- returns an association ID, which you need in order to disassociate the --- route table from the subnet later. A route table can be associated with --- multiple subnets. For more information about route tables, see Route Tables --- in the Amazon Virtual Private Cloud User Guide. +-- | Associates a subnet with a route table. The subnet and route table must be in +-- the same VPC. This association causes traffic originating from the subnet to +-- be routed according to the routes in the route table. The action returns an +-- association ID, which you need in order to disassociate the route table from +-- the subnet later. A route table can be associated with multiple subnets. +-- +-- For more information about route tables, see in the /AmazonVirtual Private Cloud User Guide/. -- -- module Network.AWS.EC2.AssociateRouteTable 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 @@ -22,7 +22,7 @@ -- | Attaches an Internet gateway to a VPC, enabling connectivity between the -- Internet and the VPC. For more information about your VPC and Internet --- gateway, see the Amazon Virtual Private Cloud User Guide. +-- gateway, see the . -- -- module Network.AWS.EC2.AttachInternetGateway 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 @@ -20,27 +20,26 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Attaches an Amazon EBS volume to a running or stopped instance and exposes --- it to the instance with the specified device name. Encrypted Amazon EBS --- volumes may only be attached to instances that support Amazon EBS --- encryption. For more information, see Amazon EBS Encryption in the Amazon --- Elastic Compute Cloud User Guide. For a list of supported device names, see --- Attaching an Amazon EBS Volume to an Instance. Any device names that aren't --- reserved for instance store volumes can be used for Amazon EBS volumes. For --- more information, see Amazon EC2 Instance Store in the Amazon Elastic --- Compute Cloud User Guide. If a volume has an AWS Marketplace product code: --- The volume can only be attached as the root device of a stopped instance. --- You must be subscribed to the AWS Marketplace code that is on the volume. +-- | Attaches an Amazon EBS volume to a running or stopped instance and exposes it +-- to the instance with the specified device name. +-- +-- Encrypted Amazon EBS volumes may only be attached to instances that support +-- Amazon EBS encryption. For more information, see in the /Amazon Elastic Compute Cloud User Guide/. +-- +-- For a list of supported device names, see . Any device names that aren't reserved for instance store volumes +-- can be used for Amazon EBS volumes. For more information, see in the /Amazon Elastic Compute Cloud User Guide/. +-- +-- If a volume has an AWS Marketplace product code: +-- +-- The volume can only be attached as the root device of a stopped instance. You must be subscribed to the AWS Marketplace code that is on the volume. -- The configuration (instance type, operating system) of the instance must -- support that specific AWS Marketplace code. For example, you cannot take a -- volume from a Windows instance and attach it to a Linux instance. AWS --- Marketplace product codes are copied from the volume to the instance. For --- an overview of the AWS Marketplace, see --- https://aws.amazon.com/marketplace/help/200900000. For more information --- about how to use the AWS Marketplace, see AWS Marketplace. For more --- information about Amazon EBS volumes, see Attaching Amazon EBS Volumes in --- the Amazon Elastic Compute Cloud User Guide. +-- Marketplace product codes are copied from the volume to the instance. For an +-- overview of the AWS Marketplace, see . For more information about how to use the AWS Marketplace, see . -- +-- For more information about Amazon EBS volumes, see in the /Amazon Elastic Compute Cloud User Guide/. +-- -- module Network.AWS.EC2.AttachVolume ( @@ -102,8 +101,7 @@ , _avDryRun = Nothing } --- | The device name to expose to the instance (for example, /dev/sdh or --- xvdh). +-- | The device name to expose to the instance (for example, '/dev/sdh' or 'xvdh'). avDevice :: Lens' AttachVolume Text avDevice = lens _avDevice (\s a -> s { _avDevice = a }) @@ -114,13 +112,13 @@ avInstanceId :: Lens' AttachVolume Text avInstanceId = lens _avInstanceId (\s a -> s { _avInstanceId = a }) --- | The ID of the Amazon EBS volume. The volume and instance must be within --- the same Availability Zone. +-- | The ID of the Amazon 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 }) data AttachVolumeResponse = AttachVolumeResponse - { _avrAttachTime :: Maybe RFC822 + { _avrAttachTime :: Maybe ISO8601 , _avrDeleteOnTermination :: Maybe Bool , _avrDevice :: Maybe Text , _avrInstanceId :: Maybe Text @@ -158,8 +156,7 @@ avrAttachTime :: Lens' AttachVolumeResponse (Maybe UTCTime) avrAttachTime = lens _avrAttachTime (\s a -> s { _avrAttachTime = a }) . mapping _Time --- | Indicates whether the Amazon EBS volume is deleted on instance --- termination. +-- | Indicates whether the Amazon EBS volume is deleted on instance termination. avrDeleteOnTermination :: Lens' AttachVolumeResponse (Maybe Bool) avrDeleteOnTermination = lens _avrDeleteOnTermination (\s a -> s { _avrDeleteOnTermination = a }) 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 @@ -20,9 +20,7 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Attaches a virtual private gateway to a VPC. For more information, see --- Adding a Hardware Virtual Private Gateway to Your VPC in the Amazon Virtual --- Private Cloud User Guide. +-- | Attaches a virtual private gateway to a VPC. For more information, see in the /Amazon Virtual PrivateCloud User Guide/. -- -- module Network.AWS.EC2.AttachVpnGateway 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 @@ -23,19 +23,25 @@ -- | Adds one or more egress rules to a security group for use with a VPC. -- Specifically, this action permits instances to send traffic to one or more -- destination CIDR IP address ranges, or to one or more destination security --- groups for the same VPC. You can have up to 50 rules per security group --- (covering both ingress and egress rules). A security group is for use with --- instances either in the EC2-Classic platform or in a specific VPC. This --- action doesn't apply to security groups for use in EC2-Classic. For more --- information, see Security Groups for Your VPC in the Amazon Virtual Private --- Cloud User Guide. Each rule consists of the protocol (for example, TCP), --- plus either a CIDR range or a source group. For the TCP and UDP protocols, --- you must also specify the destination port or port range. For the ICMP --- protocol, you must also specify the ICMP type and code. You can use -1 for --- the type or code to mean all types or all codes. Rule changes are --- propagated to affected instances as quickly as possible. However, a small --- delay might occur. +-- groups for the same VPC. -- +-- You can have up to 50 rules per security group (covering both ingress and +-- egress rules). +-- +-- A security group is for use with instances either in the EC2-Classic +-- platform or in a specific VPC. This action doesn't apply to security groups +-- for use in EC2-Classic. For more information, see +-- in the /Amazon Virtual Private Cloud User Guide/. +-- +-- Each rule consists of the protocol (for example, TCP), plus either a CIDR +-- range or a source group. For the TCP and UDP protocols, you must also specify +-- the destination port or port range. For the ICMP protocol, you must also +-- specify the ICMP type and code. You can use -1 for the type or code to mean +-- all types or all codes. +-- +-- Rule changes are propagated to affected instances as quickly as possible. +-- However, a small delay might occur. +-- -- module Network.AWS.EC2.AuthorizeSecurityGroupEgress ( @@ -113,8 +119,8 @@ , _asgeIpPermissions = mempty } --- | The CIDR IP address range. You can't specify this parameter when --- specifying a source security group. +-- | The CIDR IP address range. You can't specify this parameter when specifying a +-- source security group. asgeCidrIp :: Lens' AuthorizeSecurityGroupEgress (Maybe Text) asgeCidrIp = lens _asgeCidrIp (\s a -> s { _asgeCidrIp = a }) @@ -122,7 +128,7 @@ asgeDryRun = lens _asgeDryRun (\s a -> s { _asgeDryRun = a }) -- | 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. +-- number. For the ICMP type number, use '-1' to specify all ICMP types. asgeFromPort :: Lens' AuthorizeSecurityGroupEgress (Maybe Int) asgeFromPort = lens _asgeFromPort (\s a -> s { _asgeFromPort = a }) @@ -130,21 +136,20 @@ asgeGroupId :: Lens' AuthorizeSecurityGroupEgress Text asgeGroupId = lens _asgeGroupId (\s a -> s { _asgeGroupId = a }) --- | A set of IP permissions. You can't specify a destination security group --- and a CIDR IP address range. +-- | A set of IP permissions. You can't specify a destination security group and a +-- CIDR IP address range. asgeIpPermissions :: Lens' AuthorizeSecurityGroupEgress [IpPermission] asgeIpPermissions = lens _asgeIpPermissions (\s a -> s { _asgeIpPermissions = a }) . _List --- | The IP protocol name (tcp, udp, icmp) or number (see Protocol Numbers). --- Use -1 to specify all. +-- | The IP protocol name ('tcp', 'udp', 'icmp') or number (see ). Use '-1' +-- to specify all. asgeIpProtocol :: Lens' AuthorizeSecurityGroupEgress (Maybe Text) asgeIpProtocol = lens _asgeIpProtocol (\s a -> s { _asgeIpProtocol = a }) --- | [EC2-Classic, default VPC] The name of the destination security group. --- You can't specify a destination security group and a CIDR IP address --- range. +-- | [EC2-Classic, default VPC] The name of the destination security group. You +-- can't specify a destination security group and a CIDR IP address range. asgeSourceSecurityGroupName :: Lens' AuthorizeSecurityGroupEgress (Maybe Text) asgeSourceSecurityGroupName = lens _asgeSourceSecurityGroupName @@ -157,9 +162,8 @@ lens _asgeSourceSecurityGroupOwnerId (\s a -> s { _asgeSourceSecurityGroupOwnerId = 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. +-- | 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. asgeToPort :: Lens' AuthorizeSecurityGroupEgress (Maybe Int) asgeToPort = lens _asgeToPort (\s a -> s { _asgeToPort = a }) 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 @@ -20,20 +20,27 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Adds one or more ingress rules to a security group. EC2-Classic: You can --- have up to 100 rules per group. EC2-VPC: You can have up to 50 rules per --- group (covering both ingress and egress rules). Rule changes are propagated --- to instances within the security group as quickly as possible. However, a --- small delay might occur. [EC2-Classic] This action gives one or more CIDR --- IP address ranges permission to access a security group in your account, or --- gives one or more security groups (called the source groups) permission to --- access a security group for your account. A source group can be for your --- own AWS account, or another. [EC2-VPC] This action gives one or more CIDR --- IP address ranges permission to access a security group in your VPC, or --- gives one or more other security groups (called the source groups) --- permission to access a security group for your VPC. The security groups --- must all be for the same VPC. +-- | Adds one or more ingress rules to a security group. -- +-- EC2-Classic: You can have up to 100 rules per group. +-- +-- EC2-VPC: You can have up to 50 rules per group (covering both ingress and +-- egress rules). +-- +-- Rule changes are propagated to instances within the security group as +-- quickly as possible. However, a small delay might occur. +-- +-- [EC2-Classic] This action gives one or more CIDR IP address ranges +-- permission to access a security group in your account, or gives one or more +-- security groups (called the /source groups/) permission to access a security +-- group for your account. A source group can be for your own AWS account, or +-- another. +-- +-- [EC2-VPC] This action gives one or more CIDR IP address ranges permission to +-- access a security group in your VPC, or gives one or more other security +-- groups (called the /source groups/) permission to access a security group for +-- your VPC. The security groups must all be for the same VPC. +-- -- module Network.AWS.EC2.AuthorizeSecurityGroupIngress ( @@ -115,8 +122,8 @@ , _asgiIpPermissions = mempty } --- | The CIDR IP address range. You can't specify this parameter when --- specifying a source security group. +-- | The CIDR IP 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 }) @@ -124,7 +131,7 @@ asgiDryRun = lens _asgiDryRun (\s a -> s { _asgiDryRun = a }) -- | 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. +-- number. For the ICMP type number, use '-1' to specify all ICMP types. asgiFromPort :: Lens' AuthorizeSecurityGroupIngress (Maybe Int) asgiFromPort = lens _asgiFromPort (\s a -> s { _asgiFromPort = a }) @@ -136,20 +143,20 @@ asgiGroupName :: Lens' AuthorizeSecurityGroupIngress (Maybe Text) asgiGroupName = lens _asgiGroupName (\s a -> s { _asgiGroupName = a }) --- | A set of IP permissions. You can't specify a source security group and a --- CIDR IP address range. +-- | A set of IP permissions. You can't specify a source security group and a CIDR +-- IP address range. asgiIpPermissions :: Lens' AuthorizeSecurityGroupIngress [IpPermission] asgiIpPermissions = lens _asgiIpPermissions (\s a -> s { _asgiIpPermissions = a }) . _List --- | The IP protocol name (tcp, udp, icmp) or number (see Protocol Numbers). --- Use -1 to specify all. +-- | The IP protocol name ('tcp', 'udp', 'icmp') or number (see ). Use '-1' +-- to specify all. asgiIpProtocol :: Lens' AuthorizeSecurityGroupIngress (Maybe Text) asgiIpProtocol = lens _asgiIpProtocol (\s a -> s { _asgiIpProtocol = a }) --- | [EC2-Classic, default VPC] The name of the source security group. You --- can't specify a source security group and a CIDR IP address range. +-- | [EC2-Classic, default VPC] The name of the source security group. You can't +-- specify a source security group and a CIDR IP address range. asgiSourceSecurityGroupName :: Lens' AuthorizeSecurityGroupIngress (Maybe Text) asgiSourceSecurityGroupName = lens _asgiSourceSecurityGroupName @@ -162,9 +169,8 @@ lens _asgiSourceSecurityGroupOwnerId (\s a -> s { _asgiSourceSecurityGroupOwnerId = 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. +-- | 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. asgiToPort :: Lens' AuthorizeSecurityGroupIngress (Maybe Int) asgiToPort = lens _asgiToPort (\s a -> s { _asgiToPort = a }) 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 @@ -20,11 +20,13 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Bundles an Amazon instance store-backed Windows instance. During bundling, --- only the root device volume (C:\) is bundled. Data on other instance store --- volumes is not preserved. For more information, see Creating an Instance --- Store-Backed Windows AMI. +-- | Bundles an Amazon instance store-backed Windows instance. -- +-- During bundling, only the root device volume (C:\) is bundled. Data on other +-- instance store volumes is not preserved. +-- +-- For more information, see . +-- -- module Network.AWS.EC2.BundleInstance ( @@ -83,9 +85,8 @@ 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. +-- 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 }) 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 @@ -20,13 +20,13 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Cancels an active conversion task. The task can be the import of an --- instance or volume. The action removes all artifacts of the conversion, --- including a partially uploaded volume or instance. If the conversion is --- complete or is in the process of transferring the final disk image, the --- command fails and returns an exception. For more information, see Using the --- Command Line Tools to Import Your Virtual Machine to Amazon EC2 in the --- Amazon Elastic Compute Cloud User Guide. +-- | Cancels an active conversion task. The task can be the import of an instance +-- or volume. The action removes all artifacts of the conversion, including a +-- partially uploaded volume or instance. If the conversion is complete or is in +-- the process of transferring the final disk image, the command fails and +-- returns an exception. +-- +-- For more information, see in the /Amazon Elastic Compute Cloud User Guide/. -- -- module Network.AWS.EC2.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 @@ -21,9 +21,9 @@ -- Portability : non-portable (GHC extensions) -- | Cancels an active export task. The request removes all artifacts of the --- export, including any partially-created Amazon S3 objects. If the export --- task is complete or is in the process of transferring the final disk image, --- the command fails and returns an error. +-- export, including any partially-created Amazon S3 objects. If the export task +-- is complete or is in the process of transferring the final disk image, the +-- command fails and returns an error. -- -- module Network.AWS.EC2.CancelExportTask @@ -62,8 +62,8 @@ { _cetExportTaskId = p1 } --- | The ID of the export task. This is the ID returned by --- CreateInstanceExportTask. +-- | 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 }) 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 @@ -21,8 +21,9 @@ -- Portability : non-portable (GHC extensions) -- | Cancels the specified Reserved Instance listing in the Reserved Instance --- Marketplace. For more information, see Reserved Instance Marketplace in the --- Amazon Elastic Compute Cloud User Guide. +-- Marketplace. +-- +-- For more information, see in the /AmazonElastic Compute Cloud User Guide/. -- -- module Network.AWS.EC2.CancelReservedInstancesListing 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 @@ -20,14 +20,16 @@ -- Stability : experimental -- 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 maximum 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 about Spot Instances, see Spot --- Instances in the Amazon Elastic Compute Cloud User Guide. Canceling a Spot --- Instance request does not terminate running Spot Instances associated with --- the request. +-- | 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. Amazon EC2 periodically sets the Spot Price +-- based on available Spot Instance capacity and current Spot Instance requests. +-- For more information about Spot Instances, see in the /AmazonElastic Compute Cloud User Guide/. +-- +-- Canceling a Spot Instance request does not terminate running Spot Instances +-- associated with the request. +-- +-- -- -- module Network.AWS.EC2.CancelSpotInstanceRequests 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 @@ -20,9 +20,9 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Determines whether a product code is associated with an instance. This --- action can only be used by the owner of the product code. It is useful when --- a product code owner needs to verify whether another user's instance is +-- | Determines whether a product code is associated with an instance. This action +-- can only be used by the owner of the product code. It is useful when a +-- product code owner needs to verify whether another user's instance is -- eligible for support. -- -- @@ -101,8 +101,8 @@ { _cpirOwnerId = Nothing } --- | The AWS account ID of the instance owner. This is only present if the --- product code is attached to the instance. +-- | The AWS account ID of the instance owner. This is only present if the product +-- code is attached to the instance. cpirOwnerId :: Lens' ConfirmProductInstanceResponse (Maybe Text) cpirOwnerId = lens _cpirOwnerId (\s a -> s { _cpirOwnerId = a }) 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 @@ -23,9 +23,10 @@ -- | Initiates the copy of an AMI from the specified source region to the region -- in which the request was made. You specify the destination region by using -- its endpoint when making the request. AMIs that use encrypted Amazon EBS --- snapshots cannot be copied with this method. For more information, see --- Copying AMIs in the Amazon Elastic Compute Cloud User Guide. +-- snapshots cannot be copied with this method. -- +-- For more information, see in the /Amazon Elastic Compute CloudUser Guide/. +-- -- module Network.AWS.EC2.CopyImage ( @@ -92,9 +93,8 @@ , _ciClientToken = Nothing } --- | Unique, case-sensitive identifier you provide to ensure idempotency of --- the request. For more information, see How to Ensure Idempotency in the --- Amazon Elastic Compute Cloud User Guide. +-- | Unique, case-sensitive identifier you provide to ensure idempotency of the +-- request. For more information, see in the /AmazonElastic Compute Cloud User Guide/. ciClientToken :: Lens' CopyImage (Maybe Text) ciClientToken = lens _ciClientToken (\s a -> s { _ciClientToken = a }) 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 @@ -23,12 +23,14 @@ -- | Copies a point-in-time snapshot of an Amazon EBS volume and stores it in -- Amazon S3. You can copy the snapshot within the same region or from one -- region to another. You can use the snapshot to create Amazon EBS volumes or --- Amazon Machine Images (AMIs). The snapshot is copied to the regional --- endpoint that you send the HTTP request to. Copies of encrypted Amazon EBS --- snapshots remain encrypted. Copies of unencrypted snapshots remain --- unencrypted. For more information, see Copying an Amazon EBS Snapshot in --- the Amazon Elastic Compute Cloud User Guide. +-- Amazon Machine Images (AMIs). The snapshot is copied to the regional endpoint +-- that you send the HTTP request to. -- +-- Copies of encrypted Amazon EBS snapshots remain encrypted. Copies of +-- unencrypted snapshots remain unencrypted. +-- +-- For more information, see in the /AmazonElastic Compute Cloud User Guide/. +-- -- module Network.AWS.EC2.CopySnapshot ( @@ -99,7 +101,7 @@ csDescription = lens _csDescription (\s a -> s { _csDescription = a }) -- | The destination region of the snapshot copy operation. This parameter is --- required in the PresignedUrl. +-- required in the 'PresignedUrl'. csDestinationRegion :: Lens' CopySnapshot (Maybe Text) csDestinationRegion = lens _csDestinationRegion (\s a -> s { _csDestinationRegion = a }) @@ -108,18 +110,14 @@ csDryRun = lens _csDryRun (\s a -> s { _csDryRun = a }) -- | The pre-signed URL that facilitates copying an encrypted snapshot. This --- parameter is only required when copying an encrypted snapshot with the --- Amazon EC2 Query API; it is available as an optional parameter in all --- 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 Amazon EBS snapshots are stored in --- Amazon S3, the signing algorithm for this parameter uses the same logic --- that is described in Authenticating Requests by Using Query Parameters --- (AWS Signature Version 4) 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. +-- 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 Amazon EBS snapshots are stored in Amazon S3, the signing algorithm +-- for this parameter uses the same logic that is described in in the /AmazonSimple Storage Service API Reference/. An invalid or improperly signed 'PresignedUrl' will cause the copy operation to fail asynchronously, and the snapshot will +-- move to an 'error' state. csPresignedUrl :: Lens' CopySnapshot (Maybe Text) csPresignedUrl = lens _csPresignedUrl (\s a -> s { _csPresignedUrl = a }) 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 @@ -22,17 +22,18 @@ -- | Provides information to AWS about your VPN customer gateway device. The -- customer gateway is the appliance at your end of the VPN connection. (The --- device on the AWS side of the VPN connection is the virtual private --- gateway.) You must provide the Internet-routable IP address of the customer --- gateway's external interface. The IP address must be static and can't be --- behind a device performing network address translation (NAT). For devices --- that use Border Gateway Protocol (BGP), you can also provide the device's --- BGP Autonomous System Number (ASN). You can use an existing ASN assigned to --- your network. If you don't have an ASN already, you can use a private ASN --- (in the 64512 - 65534 range). For more information about VPN customer --- gateways, see Adding a Hardware Virtual Private Gateway to Your VPC in the --- Amazon Virtual Private Cloud User Guide. +-- device on the AWS side of the VPN connection is the virtual private gateway.) +-- You must provide the Internet-routable IP address of the customer gateway's +-- external interface. The IP address must be static and can't be behind a +-- device performing network address translation (NAT). -- +-- For devices that use Border Gateway Protocol (BGP), you can also provide the +-- device's BGP Autonomous System Number (ASN). You can use an existing ASN +-- assigned to your network. If you don't have an ASN already, you can use a +-- private ASN (in the 64512 - 65534 range). +-- +-- For more information about VPN customer gateways, see in the /Amazon Virtual Private Cloud UserGuide/. +-- -- module Network.AWS.EC2.CreateCustomerGateway ( @@ -89,8 +90,9 @@ , _ccgDryRun = Nothing } --- | For devices that support BGP, the customer gateway's BGP ASN. Default: --- 65000. +-- | 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 }) @@ -102,7 +104,7 @@ ccgPublicIp :: Lens' CreateCustomerGateway Text ccgPublicIp = lens _ccgPublicIp (\s a -> s { _ccgPublicIp = a }) --- | The type of VPN connection that this customer gateway supports (ipsec.1). +-- | The type of VPN connection that this customer gateway supports ('ipsec.1'). ccgType :: Lens' CreateCustomerGateway GatewayType ccgType = lens _ccgType (\s a -> s { _ccgType = a }) 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 @@ -20,30 +20,27 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Creates a set of DHCP options for your VPC. After creating the set, you --- must associate it with the VPC, causing all existing and new instances that --- you launch in the VPC to use this set of DHCP options. The following are --- the individual DHCP options you can specify. For more information about the --- options, see RFC 2132. domain-name-servers - The IP addresses of up to four --- domain name servers, or AmazonProvidedDNS. The default DHCP option set --- specifies AmazonProvidedDNS. If specifying more than one domain name --- server, specify the IP addresses in a single parameter, separated by --- commas. domain-name - If you're using AmazonProvidedDNS in us-east-1, --- specify ec2.internal. If you're using AmazonProvidedDNS in another region, --- specify region.compute.internal (for example, --- ap-northeast-1.compute.internal). Otherwise, specify a domain name (for --- example, MyCompany.com). If specifying more than one domain name, separate --- them with spaces. ntp-servers - The IP addresses of up to four Network Time --- Protocol (NTP) servers. netbios-name-servers - The IP addresses of up to --- four NetBIOS name servers. netbios-node-type - The NetBIOS node type (1, 2, --- 4, or 8). We recommend that you specify 2 (broadcast and multicast are not --- currently supported). For more information about these node types, see RFC --- 2132. Your VPC automatically starts out with a set of DHCP options that --- includes only a DNS server that we provide (AmazonProvidedDNS). If you --- create a set of options, and if your VPC has an Internet gateway, make sure --- to set the domain-name-servers option either to AmazonProvidedDNS or to a --- domain name server of your choice. For more information about DHCP options, --- see DHCP Options Sets in the Amazon Virtual Private Cloud User Guide. +-- | Creates a set of DHCP options for your VPC. After creating the set, you must +-- associate it with the VPC, causing all existing and new instances that you +-- launch in the VPC to use this set of DHCP options. The following are the +-- individual DHCP options you can specify. For more information about the +-- options, see . +-- +-- 'domain-name-servers' - The IP addresses of up to four domain name servers, +-- or 'AmazonProvidedDNS'. The default DHCP option set specifies 'AmazonProvidedDNS'. If specifying more than one domain name server, specify the IP addresses in a single parameter, separated by commas. +-- 'domain-name' - If you're using AmazonProvidedDNS in 'us-east-1', specify 'ec2.internal'. If you're using AmazonProvidedDNS in another region, specify 'region.compute.internal' (for example, 'ap-northeast-1.compute.internal'). Otherwise, specify a domain +-- name (for example, 'MyCompany.com'). If specifying more than one domain name, +-- separate them with spaces. 'ntp-servers' - The IP addresses of up to four +-- Network Time Protocol (NTP) servers. 'netbios-name-servers' - The IP addresses +-- of up to four NetBIOS name servers. 'netbios-node-type' - The NetBIOS node +-- type (1, 2, 4, or 8). We recommend that you specify 2 (broadcast and +-- multicast are not currently supported). For more information about these node +-- types, see . Your VPC automatically starts out with a set of DHCP +-- options that includes only a DNS server that we provide (AmazonProvidedDNS). +-- If you create a set of options, and if your VPC has an Internet gateway, make +-- sure to set the 'domain-name-servers' option either to 'AmazonProvidedDNS' or to +-- a domain name server of your choice. For more information about DHCP options, +-- see in the /Amazon Virtual Private Cloud User Guide/. -- -- module Network.AWS.EC2.CreateDhcpOptions 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 @@ -21,13 +21,15 @@ -- Portability : non-portable (GHC extensions) -- | Creates an Amazon EBS-backed AMI from an Amazon EBS-backed instance that is --- either running or stopped. If you customized your instance with instance --- store volumes or EBS volumes in addition to the root device volume, the new --- AMI contains block device mapping information for those volumes. When you --- launch an instance from this new AMI, the instance automatically launches --- with those additional volumes. For more information, see Creating Amazon --- EBS-Backed Linux AMIs in the Amazon Elastic Compute Cloud User Guide. +-- either running or stopped. -- +-- If you customized your instance with instance store volumes or EBS volumes +-- in addition to the root device volume, the new AMI contains block device +-- mapping information for those volumes. When you launch an instance from this +-- new AMI, the instance automatically launches with those additional volumes. +-- +-- For more information, see in the /Amazon Elastic Compute Cloud User Guide/. +-- -- module Network.AWS.EC2.CreateImage ( @@ -110,18 +112,19 @@ ci1InstanceId :: Lens' CreateImage Text ci1InstanceId = lens _ci1InstanceId (\s a -> s { _ci1InstanceId = 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(_). +-- | A name for the new image. +-- +-- Constraints: 3-128 alphanumeric characters, parentheses (()), square +-- brackets ([]), spaces ( ), periods (.), slashes (/), dashes (-), single +-- quotes ('), at-signs (@), or underscores(_) ci1Name :: Lens' CreateImage Text ci1Name = lens _ci1Name (\s a -> s { _ci1Name = a }) --- | By default, this parameter is set to false, which means Amazon EC2 --- attempts to shut down the instance cleanly before image creation and then --- reboots the instance. When the parameter is set to true, 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. +-- | By default, this parameter is set to 'false', which means Amazon EC2 attempts +-- to shut down the instance cleanly before image creation and then reboots the +-- instance. When the parameter is set to 'true', 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. ci1NoReboot :: Lens' CreateImage (Maybe Bool) ci1NoReboot = lens _ci1NoReboot (\s a -> s { _ci1NoReboot = a }) 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 @@ -20,10 +20,10 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Exports a running or stopped instance to an Amazon S3 bucket. For --- information about the supported operating systems, image formats, and known --- limitations for the types of instances you can export, see Exporting EC2 --- Instances in the Amazon Elastic Compute Cloud User Guide. +-- | Exports a running or stopped instance to an Amazon S3 bucket. +-- +-- For information about the supported operating systems, image formats, and +-- known limitations for the types of instances you can export, see in the /Amazon Elastic Compute Cloud User Guide/. -- -- module Network.AWS.EC2.CreateInstanceExportTask 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 @@ -21,9 +21,9 @@ -- Portability : non-portable (GHC extensions) -- | Creates an Internet gateway for use with a VPC. After creating the Internet --- gateway, you attach it to a VPC using AttachInternetGateway. For more --- information about your VPC and Internet gateway, see the Amazon Virtual --- Private Cloud User Guide. +-- gateway, you attach it to a VPC using 'AttachInternetGateway'. +-- +-- For more information about your VPC and Internet gateway, see the . -- -- module Network.AWS.EC2.CreateInternetGateway 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 @@ -22,14 +22,16 @@ -- | 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. 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. For --- more information about key pairs, see Key Pairs in the Amazon Elastic --- Compute Cloud User Guide. +-- 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. -- +-- 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'. +-- +-- For more information about key pairs, see in the /Amazon ElasticCompute Cloud User Guide/. +-- -- module Network.AWS.EC2.CreateKeyPair ( @@ -79,7 +81,9 @@ ckpDryRun :: Lens' CreateKeyPair (Maybe Bool) ckpDryRun = lens _ckpDryRun (\s a -> s { _ckpDryRun = a }) --- | A unique name for the key pair. Constraints: Up to 255 ASCII characters. +-- | 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 }) 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 @@ -22,8 +22,8 @@ -- | Creates a network ACL in a VPC. Network ACLs provide an optional layer of -- security (in addition to security groups) for the instances in your VPC. --- For more information about network ACLs, see Network ACLs in the Amazon --- Virtual Private Cloud User Guide. +-- +-- For more information about network ACLs, see in the /AmazonVirtual Private Cloud User Guide/. -- -- module Network.AWS.EC2.CreateNetworkAcl 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 @@ -22,18 +22,21 @@ -- | Creates an entry (a rule) in a network ACL with the specified rule number. -- Each network ACL has a set of numbered ingress rules and a separate set of --- numbered egress rules. When determining whether a packet should be allowed --- in or out of a subnet associated with the ACL, we process the entries in --- the ACL according to the rule numbers, in ascending order. Each network ACL --- has a set of ingress rules and a separate set of egress rules. We recommend --- that you leave room between the rule numbers (for example, 100, 110, 120, --- ...), and not number them one right after the other (for example, 101, 102, --- 103, ...). This makes it easier to add a rule between existing ones without --- having to renumber the rules. After you add an entry, you can't modify it; --- you must either replace it, or create an entry and delete the old one. For --- more information about network ACLs, see Network ACLs in the Amazon Virtual --- Private Cloud User Guide. +-- numbered egress rules. When determining whether a packet should be allowed in +-- or out of a subnet associated with the ACL, we process the entries in the ACL +-- according to the rule numbers, in ascending order. Each network ACL has a set +-- of ingress rules and a separate set of egress rules. -- +-- We recommend that you leave room between the rule numbers (for example, 100, +-- 110, 120, ...), and not number them one right after the other (for example, +-- 101, 102, 103, ...). This makes it easier to add a rule between existing ones +-- without having to renumber the rules. +-- +-- After you add an entry, you can't modify it; you must either replace it, or +-- create an entry and delete the old one. +-- +-- For more information about network ACLs, see in the /AmazonVirtual Private Cloud User Guide/. +-- -- module Network.AWS.EC2.CreateNetworkAclEntry ( @@ -116,21 +119,20 @@ , _cnaePortRange = Nothing } --- | The network range to allow or deny, in CIDR notation (for example --- 172.16.0.0/24). +-- | The network range to allow or deny, in CIDR notation (for example '172.16.0.0/24'). cnaeCidrBlock :: Lens' CreateNetworkAclEntry Text cnaeCidrBlock = lens _cnaeCidrBlock (\s a -> s { _cnaeCidrBlock = a }) cnaeDryRun :: Lens' CreateNetworkAclEntry (Maybe Bool) cnaeDryRun = lens _cnaeDryRun (\s a -> s { _cnaeDryRun = a }) --- | Indicates whether this is an egress rule (rule is applied to traffic --- leaving the subnet). +-- | 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 }) --- | ICMP protocol: The ICMP type and code. Required if specifying ICMP for --- the protocol. +-- | ICMP protocol: The ICMP type and code. Required if specifying ICMP for the +-- protocol. cnaeIcmpTypeCode :: Lens' CreateNetworkAclEntry (Maybe IcmpTypeCode) cnaeIcmpTypeCode = lens _cnaeIcmpTypeCode (\s a -> s { _cnaeIcmpTypeCode = a }) @@ -150,9 +152,10 @@ cnaeRuleAction :: Lens' CreateNetworkAclEntry RuleAction 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 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 cnaeRuleNumber :: Lens' CreateNetworkAclEntry Int cnaeRuleNumber = lens _cnaeRuleNumber (\s a -> s { _cnaeRuleNumber = a }) 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 @@ -20,10 +20,11 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Creates a network interface in the specified subnet. For more information --- about network interfaces, see Elastic Network Interfaces in the Amazon --- Elastic Compute Cloud User Guide. +-- | Creates a network interface in the specified subnet. -- +-- For more information about network interfaces, see +-- in the /Amazon Elastic Compute Cloud User Guide/. +-- -- module Network.AWS.EC2.CreateNetworkInterface ( @@ -104,11 +105,9 @@ cniGroups :: Lens' CreateNetworkInterface [Text] cniGroups = lens _cniGroups (\s a -> s { _cniGroups = a }) . _List --- | The primary private IP address of the network interface. If you don't --- specify an IP address, Amazon EC2 selects one for you from the subnet --- range. If you specify an IP address, you cannot indicate any IP addresses --- specified in privateIpAddresses as primary (only one IP address can be --- designated as primary). +-- | The primary private IP address of the network interface. If you don't specify +-- an IP address, Amazon EC2 selects one for you from the subnet range. If you +-- specify an IP address, you cannot indicate any IP 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 }) @@ -120,13 +119,12 @@ . _List -- | The number of secondary private IP addresses to assign to a network --- interface. When you specify a number of secondary IP addresses, Amazon --- EC2 selects these IP addresses within the subnet 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 --- Private IP Addresses Per ENI Per Instance Type in the Amazon Elastic --- Compute Cloud User Guide. +-- interface. When you specify a number of secondary IP addresses, Amazon EC2 +-- selects these IP addresses within the subnet 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 Elastic Compute Cloud User Guide/. cniSecondaryPrivateIpAddressCount :: Lens' CreateNetworkInterface (Maybe Int) cniSecondaryPrivateIpAddressCount = lens _cniSecondaryPrivateIpAddressCount 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 @@ -21,10 +21,10 @@ -- Portability : non-portable (GHC extensions) -- | Creates a placement group that you launch cluster instances into. You must --- give the group a name that's unique within the scope of your account. For --- more information about placement groups and cluster instances, see Cluster --- Instances in the Amazon Elastic Compute Cloud User Guide. +-- give the group a name that's unique within the scope of your account. -- +-- For more information about placement groups and cluster instances, see in the /Amazon Elastic Compute Cloud User Guide/. +-- -- module Network.AWS.EC2.CreatePlacementGroup ( @@ -76,7 +76,9 @@ cpgDryRun :: Lens' CreatePlacementGroup (Maybe Bool) 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. +-- +-- Constraints: Up to 255 ASCII characters cpgGroupName :: Lens' CreatePlacementGroup Text cpgGroupName = lens _cpgGroupName (\s a -> s { _cpgGroupName = a }) 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 @@ -22,21 +22,22 @@ -- | Creates a listing for Amazon EC2 Reserved Instances to be sold in the -- Reserved Instance Marketplace. You can submit one Reserved Instance listing --- at a time. To get a list of your Reserved Instances, you can use the --- DescribeReservedInstances operation. The Reserved Instance Marketplace --- matches sellers who want to resell Reserved Instance capacity that they no --- longer need with buyers who want to purchase additional capacity. Reserved --- Instances bought and sold through the Reserved Instance Marketplace work --- like any other Reserved Instances. To sell your Reserved Instances, you --- must first register as a Seller in the Reserved Instance Marketplace. After --- completing the registration process, you can create a Reserved Instance --- Marketplace listing of some or all of your Reserved Instances, and specify --- the upfront price to receive for them. Your Reserved Instance listings then --- become available for purchase. To view the details of your Reserved --- Instance listing, you can use the DescribeReservedInstancesListings --- operation. For more information, see Reserved Instance Marketplace in the --- Amazon Elastic Compute Cloud User Guide. +-- at a time. To get a list of your Reserved Instances, you can use the 'DescribeReservedInstances' operation. -- +-- The Reserved Instance Marketplace matches sellers who want to resell +-- Reserved Instance capacity that they no longer need with buyers who want to +-- purchase additional capacity. Reserved Instances bought and sold through the +-- Reserved Instance Marketplace work like any other Reserved Instances. +-- +-- To sell your Reserved Instances, you must first register as a Seller in the +-- Reserved Instance Marketplace. After completing the registration process, you +-- can create a Reserved Instance Marketplace listing of some or all of your +-- Reserved Instances, and specify the upfront price to receive for them. Your +-- Reserved Instance listings then become available for purchase. To view the +-- details of your Reserved Instance listing, you can use the 'DescribeReservedInstancesListings' operation. +-- +-- For more information, see in the /AmazonElastic Compute Cloud User Guide/. +-- -- module Network.AWS.EC2.CreateReservedInstancesListing ( @@ -93,22 +94,21 @@ , _crilPriceSchedules = mempty } --- | Unique, case-sensitive identifier you provide to ensure idempotency of --- your listings. This helps avoid duplicate listings. For more information, --- see Ensuring Idempotency in the Amazon Elastic Compute Cloud User Guide. +-- | Unique, case-sensitive identifier you provide to ensure idempotency of your +-- listings. This helps avoid duplicate listings. For more information, see in the /Amazon Elastic Compute Cloud User Guide/. crilClientToken :: Lens' CreateReservedInstancesListing Text 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. +-- | 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 }) --- | A list specifying the price of the Reserved Instance for each month --- remaining in the Reserved Instance term. +-- | A list specifying the price of the Reserved Instance for each month remaining +-- in the Reserved Instance term. crilPriceSchedules :: Lens' CreateReservedInstancesListing [PriceScheduleSpecification] crilPriceSchedules = lens _crilPriceSchedules (\s a -> s { _crilPriceSchedules = a }) 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 @@ -20,19 +20,26 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Creates a route in a route table within a VPC. You must specify one of the --- following targets: Internet gateway or virtual private gateway, NAT --- instance, VPC peering connection, or network interface. When determining --- how to route traffic, we use the route with the most specific match. For --- example, let's say the traffic is destined for 192.0.2.3, and the route --- table includes the following two routes: 192.0.2.0/24 (goes to some target --- A) 192.0.2.0/28 (goes to some target B) Both routes apply to the traffic --- destined for 192.0.2.3. However, the second route in the list covers a --- smaller number of IP addresses and is therefore more specific, so we use --- that route to determine where to target the traffic. For more information --- about route tables, see Route Tables in the Amazon Virtual Private Cloud --- User Guide. +-- | Creates a route in a route table within a VPC. -- +-- You must specify one of the following targets: Internet gateway or virtual +-- private gateway, NAT instance, VPC peering connection, or network interface. +-- +-- When determining how to route traffic, we use the route with the most +-- specific match. For example, let's say the traffic is destined for '192.0.2.3', +-- and the route table includes the following two routes: +-- +-- '192.0.2.0/24' (goes to some target A) +-- +-- '192.0.2.0/28' (goes to some target B) +-- +-- Both routes apply to the traffic destined for '192.0.2.3'. However, the +-- second route in the list covers a smaller number of IP addresses and is +-- therefore more specific, so we use that route to determine where to target +-- the traffic. +-- +-- For more information about route tables, see in the /AmazonVirtual Private Cloud User Guide/. +-- -- module Network.AWS.EC2.CreateRoute ( @@ -101,8 +108,8 @@ , _crVpcPeeringConnectionId = Nothing } --- | The CIDR address block used for the destination match. Routing decisions --- are based on the most specific match. +-- | The CIDR address block used for the destination match. Routing decisions are +-- based on the most specific match. crDestinationCidrBlock :: Lens' CreateRoute Text crDestinationCidrBlock = lens _crDestinationCidrBlock (\s a -> s { _crDestinationCidrBlock = a }) @@ -110,13 +117,12 @@ crDryRun :: Lens' CreateRoute (Maybe Bool) crDryRun = lens _crDryRun (\s a -> s { _crDryRun = a }) --- | The ID of an Internet gateway or virtual private gateway attached to your --- VPC. +-- | 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 }) --- | 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. +-- | 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 }) 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 @@ -20,10 +20,10 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Creates a route table for the specified VPC. After you create a route --- table, you can add routes and associate the table with a subnet. For more --- information about route tables, see Route Tables in the Amazon Virtual --- Private Cloud User Guide. +-- | Creates a route table for the specified VPC. After you create a route table, +-- you can add routes and associate the table with a subnet. +-- +-- For more information about route tables, see in the /AmazonVirtual Private Cloud User Guide/. -- -- module Network.AWS.EC2.CreateRouteTable 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 @@ -20,25 +20,29 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Creates a security group. A security group is for use with instances either --- in the EC2-Classic platform or in a specific VPC. For more information, see --- Amazon EC2 Security Groups in the Amazon Elastic Compute Cloud User Guide --- and Security Groups for Your VPC in the Amazon Virtual Private Cloud User --- Guide. EC2-Classic: You can have up to 500 security groups. EC2-VPC: You --- can create up to 100 security groups per VPC. When you create a security --- group, you specify a friendly name of your choice. You can have a security --- group for use in EC2-Classic with the same name as a security group for use --- in a VPC. However, you can't have two security groups for use in --- EC2-Classic with the same name or two security groups for use in a VPC with --- the same name. You have a default security group for use in EC2-Classic and --- a default security group for use in your VPC. If you don't specify a --- security group when you launch an instance, the instance is launched into --- the appropriate default security group. A default security group includes a --- default rule that grants instances unrestricted network access to each --- other. You can add or remove rules from your security groups using --- AuthorizeSecurityGroupIngress, AuthorizeSecurityGroupEgress, --- RevokeSecurityGroupIngress, and RevokeSecurityGroupEgress. +-- | Creates a security group. -- +-- A security group is for use with instances either in the EC2-Classic +-- platform or in a specific VPC. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ and in the /Amazon Virtual Private Cloud User Guide/. +-- +-- EC2-Classic: You can have up to 500 security groups. +-- +-- EC2-VPC: You can create up to 100 security groups per VPC. +-- +-- When you create a security group, you specify a friendly name of your +-- choice. You can have a security group for use in EC2-Classic with the same +-- name as a security group for use in a VPC. However, you can't have two +-- security groups for use in EC2-Classic with the same name or two security +-- groups for use in a VPC with the same name. +-- +-- You have a default security group for use in EC2-Classic and a default +-- security group for use in your VPC. If you don't specify a security group +-- when you launch an instance, the instance is launched into the appropriate +-- default security group. A default security group includes a default rule that +-- grants instances unrestricted network access to each other. +-- +-- You can add or remove rules from your security groups using 'AuthorizeSecurityGroupIngress', 'AuthorizeSecurityGroupEgress', 'RevokeSecurityGroupIngress', and 'RevokeSecurityGroupEgress'. +-- -- module Network.AWS.EC2.CreateSecurityGroup ( @@ -95,18 +99,25 @@ } -- | 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 --- ._-:/()#,@[]+=&;{}!$*. +-- +-- 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 }) csgDryRun :: Lens' CreateSecurityGroup (Maybe Bool) csgDryRun = lens _csgDryRun (\s a -> s { _csgDryRun = 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 +-- +-- 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 }) 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 @@ -22,26 +22,32 @@ -- | Creates a snapshot of an Amazon EBS volume and stores it in Amazon S3. You -- can use snapshots for backups, to make copies of Amazon EBS volumes, and to --- save data before shutting down an instance. When a snapshot is created, any --- AWS Marketplace product codes that are associated with the source volume --- are propagated to the snapshot. You can take a snapshot of an attached --- volume that is in use. However, snapshots only capture data that has been --- written to your Amazon EBS volume at the time the snapshot command is --- issued; this may exclude any data that has been cached by any applications --- or the operating system. If you can pause any file systems on the volume --- long enough to take a snapshot, your snapshot should be complete. However, --- if you cannot pause all file writes to the volume, you should unmount the --- volume from within the instance, issue the snapshot command, and then --- remount the volume to ensure a consistent and complete snapshot. You may --- remount and use your volume while the snapshot status is pending. To create --- a snapshot for Amazon EBS volumes that serve as root devices, you should --- stop the instance before taking the snapshot. Snapshots that are taken from --- encrypted volumes are automatically encrypted. Volumes that are created --- from encrypted snapshots are also automatically encrypted. Your encrypted --- volumes and any associated snapshots always remain protected. For more --- information, see Amazon Elastic Block Store and Amazon EBS Encryption in --- the Amazon Elastic Compute Cloud User Guide. +-- save data before shutting down an instance. -- +-- When a snapshot is created, any AWS Marketplace product codes that are +-- associated with the source volume are propagated to the snapshot. +-- +-- You can take a snapshot of an attached volume that is in use. However, +-- snapshots only capture data that has been written to your Amazon EBS volume +-- at the time the snapshot command is issued; this may exclude any data that +-- has been cached by any applications or the operating system. If you can pause +-- any file systems on the volume long enough to take a snapshot, your snapshot +-- should be complete. However, if you cannot pause all file writes to the +-- volume, you should unmount the volume from within the instance, issue the +-- snapshot command, and then remount the volume to ensure a consistent and +-- complete snapshot. You may remount and use your volume while the snapshot +-- status is 'pending'. +-- +-- To create a snapshot for Amazon EBS volumes that serve as root devices, you +-- should stop the instance before taking the snapshot. +-- +-- Snapshots that are taken from encrypted volumes are automatically encrypted. +-- Volumes that are created from encrypted snapshots are also automatically +-- encrypted. Your encrypted volumes and any associated snapshots always remain +-- protected. +-- +-- For more information, see and in the /Amazon Elastic Compute Cloud User Guide/. +-- -- module Network.AWS.EC2.CreateSnapshot ( @@ -119,7 +125,7 @@ , _csr1OwnerId :: Maybe Text , _csr1Progress :: Maybe Text , _csr1SnapshotId :: Maybe Text - , _csr1StartTime :: Maybe RFC822 + , _csr1StartTime :: Maybe ISO8601 , _csr1State :: Maybe SnapshotState , _csr1Tags :: List "item" Tag , _csr1VolumeId :: Maybe Text @@ -175,8 +181,8 @@ csr1Encrypted :: Lens' CreateSnapshotResponse (Maybe Bool) csr1Encrypted = lens _csr1Encrypted (\s a -> s { _csr1Encrypted = a }) --- | The AWS account alias (for example, amazon, self) or AWS account ID that --- owns the snapshot. +-- | The AWS account alias (for example, 'amazon', 'self') or AWS account ID that owns +-- the snapshot. csr1OwnerAlias :: Lens' CreateSnapshotResponse (Maybe Text) csr1OwnerAlias = lens _csr1OwnerAlias (\s a -> s { _csr1OwnerAlias = a }) 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 @@ -22,8 +22,8 @@ -- | Creates a datafeed for Spot Instances, enabling you to view Spot Instance -- usage logs. You can create one data feed per AWS account. For more --- information, see Spot Instances in the Amazon Elastic Compute Cloud User --- Guide. +-- information, see in the /Amazon Elastic Compute Cloud User Guide/ +-- . -- -- module Network.AWS.EC2.CreateSpotDatafeedSubscription @@ -75,6 +75,7 @@ } -- | The Amazon S3 bucket in which to store the Spot Instance datafeed. +-- -- Constraints: Must be a valid bucket associated with your AWS account. csdsBucket :: Lens' CreateSpotDatafeedSubscription Text csdsBucket = lens _csdsBucket (\s a -> s { _csdsBucket = a }) 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 @@ -20,25 +20,31 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Creates a subnet in an existing VPC. When you create each subnet, you --- provide the VPC ID and the CIDR block you want for the subnet. After you --- create a subnet, you can't change its CIDR block. The subnet's CIDR block --- can be the same as the VPC's CIDR block (assuming you want only a single --- subnet in the VPC), or a subset of the VPC's CIDR block. If you create more --- than one subnet in a VPC, the subnets' CIDR blocks must not overlap. The --- smallest subnet (and VPC) you can create uses a /28 netmask (16 IP --- addresses), and the largest uses a /16 netmask (65,536 IP addresses). AWS --- reserves both the first four and the last IP address in each subnet's CIDR --- block. They're not available for use. If you add more than one subnet to a --- VPC, they're set up in a star topology with a logical router in the middle. +-- | Creates a subnet in an existing VPC. +-- +-- When you create each subnet, you provide the VPC ID and the CIDR block you +-- want for the subnet. After you create a subnet, you can't change its CIDR +-- block. The subnet's CIDR block can be the same as the VPC's CIDR block +-- (assuming you want only a single subnet in the VPC), or a subset of the VPC's +-- CIDR block. If you create more than one subnet in a VPC, the subnets' CIDR +-- blocks must not overlap. The smallest subnet (and VPC) you can create uses a +-- /28 netmask (16 IP addresses), and the largest uses a /16 netmask (65,536 IP +-- addresses). +-- +-- AWS reserves both the first four and the last IP address in each subnet's +-- CIDR block. They're not available for use. +-- +-- If you add more than one subnet to a VPC, they're set up in a star topology +-- with a logical router in the middle. +-- -- If you launch an instance in a VPC using an Amazon EBS-backed AMI, the IP --- address doesn't change if you stop and restart the instance (unlike a --- similar instance launched outside a VPC, which gets a new IP address when --- restarted). It's therefore possible to have a subnet with no running --- instances (they're all stopped), but no remaining IP addresses available. --- For more information about subnets, see Your VPC and Subnets in the Amazon --- Virtual Private Cloud User Guide. +-- address doesn't change if you stop and restart the instance (unlike a similar +-- instance launched outside a VPC, which gets a new IP address when restarted). +-- It's therefore possible to have a subnet with no running instances (they're +-- all stopped), but no remaining IP addresses available. -- +-- For more information about subnets, see in the /AmazonVirtual Private Cloud User Guide/. +-- -- module Network.AWS.EC2.CreateSubnet ( @@ -94,14 +100,14 @@ , _cs1AvailabilityZone = Nothing } --- | The Availability Zone for the subnet. Default: Amazon EC2 selects one for --- you (recommended). +-- | The Availability Zone for the subnet. +-- +-- Default: Amazon EC2 selects one for you (recommended). cs1AvailabilityZone :: Lens' CreateSubnet (Maybe Text) cs1AvailabilityZone = lens _cs1AvailabilityZone (\s a -> s { _cs1AvailabilityZone = a }) --- | The network range for the subnet, in CIDR notation. For example, --- 10.0.0.0/24. +-- | The network range for the subnet, in CIDR notation. For example, '10.0.0.0/24'. cs1CidrBlock :: Lens' CreateSubnet Text cs1CidrBlock = lens _cs1CidrBlock (\s a -> s { _cs1CidrBlock = a }) 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 @@ -21,11 +21,11 @@ -- Portability : non-portable (GHC extensions) -- | Adds or overwrites one or more tags for the specified EC2 resource or --- resources. Each resource can have a maximum of 10 tags. Each tag consists --- of a key and optional value. Tag keys must be unique per resource. For more --- information about tags, see Tagging Your Resources in the Amazon Elastic --- Compute Cloud User Guide. +-- resources. Each resource can have a maximum of 10 tags. Each tag consists of +-- a key and optional value. Tag keys must be unique per resource. -- +-- For more information about tags, see in the /AmazonElastic Compute Cloud User Guide/. +-- -- module Network.AWS.EC2.CreateTags ( @@ -79,9 +79,9 @@ ct1Resources :: Lens' CreateTags [Text] ct1Resources = lens _ct1Resources (\s a -> s { _ct1Resources = a }) . _List --- | 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. +-- | 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. ct1Tags :: Lens' CreateTags [Tag] ct1Tags = lens _ct1Tags (\s a -> s { _ct1Tags = a }) . _List 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 @@ -20,18 +20,20 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Creates an Amazon EBS volume that can be attached to an instance in the --- same Availability Zone. The volume is created in the specified region. You --- can create a new empty volume or restore a volume from an Amazon EBS --- snapshot. Any AWS Marketplace product codes from the snapshot are --- propagated to the volume. You can create encrypted volumes with the --- Encrypted parameter. Encrypted volumes may only be attached to instances --- that support Amazon EBS encryption. Volumes that are created from encrypted --- snapshots are also automatically encrypted. For more information, see --- Amazon EBS Encryption in the Amazon Elastic Compute Cloud User Guide. For --- more information, see Creating or Restoring an Amazon EBS Volume in the --- Amazon Elastic Compute Cloud User Guide. +-- | Creates an Amazon EBS volume that can be attached to an instance in the same +-- Availability Zone. The volume is created in the specified region. -- +-- You can create a new empty volume or restore a volume from an Amazon EBS +-- snapshot. Any AWS Marketplace product codes from the snapshot are propagated +-- to the volume. +-- +-- You can create encrypted volumes with the 'Encrypted' parameter. Encrypted +-- volumes may only be attached to instances that support Amazon EBS encryption. +-- Volumes that are created from encrypted snapshots are also automatically +-- encrypted. For more information, see in the /AmazonElastic Compute Cloud User Guide/. +-- +-- For more information, see in the /Amazon Elastic Compute Cloud User Guide/. +-- -- module Network.AWS.EC2.CreateVolume ( @@ -111,9 +113,7 @@ , _cv1Encrypted = Nothing } --- | The Availability Zone in which to create the volume. Use --- DescribeAvailabilityZones to list the Availability Zones that are --- currently available to you. +-- | The Availability Zone in which to create the volume. Use 'DescribeAvailabilityZones' to list the Availability Zones that are currently available to you. cv1AvailabilityZone :: Lens' CreateVolume Text cv1AvailabilityZone = lens _cv1AvailabilityZone (\s a -> s { _cv1AvailabilityZone = a }) @@ -125,15 +125,18 @@ cv1Encrypted :: Lens' CreateVolume (Maybe Bool) cv1Encrypted = lens _cv1Encrypted (\s a -> s { _cv1Encrypted = a }) --- | Only valid for Provisioned IOPS (SSD) volumes. The number of I/O --- operations per second (IOPS) to provision for the volume. +-- | Only valid for Provisioned IOPS (SSD) volumes. The number of I/O operations +-- per second (IOPS) to provision for the volume. cv1Iops :: Lens' CreateVolume (Maybe Int) cv1Iops = lens _cv1Iops (\s a -> s { _cv1Iops = a }) --- | The size of the volume, in GiBs. Constraints: If the volume type is io1, --- the minimum size of the volume is 10 GiB. Default: If you're creating the --- volume from a snapshot and don't specify a volume size, the default is --- the snapshot size. +-- | The size of the volume, in GiBs. +-- +-- Constraints: If the volume type is 'io1', the minimum size of the volume is 10 +-- GiB. +-- +-- Default: If you're creating the volume from a snapshot and don't specify a +-- volume size, the default is the snapshot size. cv1Size :: Lens' CreateVolume (Maybe Int) cv1Size = lens _cv1Size (\s a -> s { _cv1Size = a }) @@ -141,16 +144,17 @@ cv1SnapshotId :: Lens' CreateVolume (Maybe Text) cv1SnapshotId = lens _cv1SnapshotId (\s a -> s { _cv1SnapshotId = a }) --- | The volume type. This can be gp2 for General Purpose (SSD) volumes, io1 --- for Provisioned IOPS (SSD) volumes, or standard for Magnetic volumes. --- Default: standard. +-- | The volume type. This can be 'gp2' for General Purpose (SSD) volumes, 'io1' for +-- Provisioned IOPS (SSD) volumes, or 'standard' for Magnetic volumes. +-- +-- Default: 'standard' cv1VolumeType :: Lens' CreateVolume (Maybe VolumeType) cv1VolumeType = lens _cv1VolumeType (\s a -> s { _cv1VolumeType = a }) data CreateVolumeResponse = CreateVolumeResponse { _cvrAttachments :: List "item" VolumeAttachment , _cvrAvailabilityZone :: Maybe Text - , _cvrCreateTime :: Maybe RFC822 + , _cvrCreateTime :: Maybe ISO8601 , _cvrEncrypted :: Maybe Bool , _cvrIops :: Maybe Int , _cvrSize :: Maybe Int @@ -218,17 +222,18 @@ cvrEncrypted :: Lens' CreateVolumeResponse (Maybe Bool) cvrEncrypted = lens _cvrEncrypted (\s a -> s { _cvrEncrypted = a }) --- | 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 Amazon EBS Volume Types in the Amazon Elastic Compute --- Cloud User Guide. Constraint: Range is 100 to 4000 for Provisioned IOPS --- (SSD) volumes and 3 to 3072 for General Purpose (SSD) volumes. Condition: --- This parameter is required for requests to create io1 volumes; it is not --- used in requests to create standard or gp2 volumes. +-- | 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 to 4000 for Provisioned IOPS (SSD) volumes and 3 to +-- 3072 for General Purpose (SSD) volumes. +-- +-- Condition: This parameter is required for requests to create 'io1' volumes; it +-- is not used in requests to create 'standard' or 'gp2' volumes. cvrIops :: Lens' CreateVolumeResponse (Maybe Int) cvrIops = lens _cvrIops (\s a -> s { _cvrIops = a }) @@ -252,8 +257,8 @@ cvrVolumeId :: Lens' CreateVolumeResponse (Maybe Text) cvrVolumeId = lens _cvrVolumeId (\s a -> s { _cvrVolumeId = a }) --- | The volume type. This can be gp2 for General Purpose (SSD) volumes, io1 --- for Provisioned IOPS (SSD) volumes, or standard for Magnetic volumes. +-- | The volume type. This can be 'gp2' for General Purpose (SSD) volumes, 'io1' for +-- Provisioned IOPS (SSD) volumes, or 'standard' for Magnetic volumes. cvrVolumeType :: Lens' CreateVolumeResponse (Maybe VolumeType) cvrVolumeType = lens _cvrVolumeType (\s a -> s { _cvrVolumeType = a }) 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 @@ -20,15 +20,16 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Creates a VPC with the specified CIDR block. The smallest VPC you can --- create uses a /28 netmask (16 IP addresses), and the largest uses a /16 --- netmask (65,536 IP addresses). To help you decide how big to make your VPC, --- see Your VPC and Subnets in the Amazon Virtual Private Cloud User Guide. By --- default, each instance you launch in the VPC has the default DHCP options, --- which includes only a default DNS server that we provide --- (AmazonProvidedDNS). For more information about DHCP options, see DHCP --- Options Sets in the Amazon Virtual Private Cloud User Guide. +-- | Creates a VPC with the specified CIDR block. -- +-- The smallest VPC you can create uses a /28 netmask (16 IP addresses), and +-- the largest uses a /16 netmask (65,536 IP addresses). To help you decide how +-- big to make your VPC, see in the /Amazon Virtual PrivateCloud User Guide/. +-- +-- By default, each instance you launch in the VPC has the default DHCP +-- options, which includes only a default DNS server that we provide +-- (AmazonProvidedDNS). For more information about DHCP options, see in the /Amazon Virtual Private Cloud User Guide/. +-- -- module Network.AWS.EC2.CreateVpc ( @@ -78,20 +79,18 @@ , _cvInstanceTenancy = Nothing } --- | The network range for the VPC, in CIDR notation. For example, --- 10.0.0.0/16. +-- | The 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 }) cvDryRun :: Lens' CreateVpc (Maybe Bool) cvDryRun = lens _cvDryRun (\s a -> s { _cvDryRun = a }) --- | The supported tenancy options for instances launched into the VPC. A --- value of default means that instances can be launched with any tenancy; a --- value of dedicated means all instances launched into the VPC are launched --- as dedicated tenancy instances regardless of the tenancy assigned to the --- instance at launch. Dedicated tenancy instances run on single-tenant --- hardware. Default: default. +-- | The supported tenancy options for instances launched into the VPC. A value of 'default' means that instances can be launched with any tenancy; a value of 'dedicated' means all instances launched into the VPC are launched as dedicated tenancy +-- instances regardless of the tenancy assigned to the instance at launch. +-- Dedicated tenancy instances run on single-tenant hardware. +-- +-- Default: 'default' cvInstanceTenancy :: Lens' CreateVpc (Maybe Tenancy) cvInstanceTenancy = lens _cvInstanceTenancy (\s a -> s { _cvInstanceTenancy = a }) 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 @@ -20,16 +20,18 @@ -- Stability : experimental -- 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. 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. A CreateVpcPeeringConnection request between VPCs with --- overlapping CIDR blocks results in the VPC peering connection having a --- status of failed. +-- | 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. -- +-- 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. +-- +-- A 'CreateVpcPeeringConnection' request between VPCs with overlapping CIDR +-- blocks results in the VPC peering connection having a status of 'failed'. +-- -- module Network.AWS.EC2.CreateVpcPeeringConnection ( @@ -86,8 +88,9 @@ cvpcDryRun :: Lens' CreateVpcPeeringConnection (Maybe Bool) cvpcDryRun = lens _cvpcDryRun (\s a -> s { _cvpcDryRun = 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 peer VPC. +-- +-- Default: Your AWS account ID cvpcPeerOwnerId :: Lens' CreateVpcPeeringConnection (Maybe Text) cvpcPeerOwnerId = lens _cvpcPeerOwnerId (\s a -> s { _cvpcPeerOwnerId = a }) 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 @@ -21,17 +21,21 @@ -- Portability : non-portable (GHC extensions) -- | Creates a VPN connection between an existing virtual private gateway and a --- VPN customer gateway. The only supported connection type is ipsec.1. The --- response includes information that you need to give to your network --- administrator to configure your customer gateway. We strongly recommend --- that you use HTTPS when calling this operation because the response --- contains sensitive cryptographic information for configuring your customer --- gateway. If you decide to shut down your VPN connection for any reason and --- later create a new VPN connection, you must reconfigure your customer --- gateway with the new information returned from this call. For more --- information about VPN connections, see Adding a Hardware Virtual Private --- Gateway to Your VPC in the Amazon Virtual Private Cloud User Guide. +-- VPN customer gateway. The only supported connection type is 'ipsec.1'. -- +-- The response includes information that you need to give to your network +-- administrator to configure your customer gateway. +-- +-- We strongly recommend that you use HTTPS when calling this operation +-- because the response contains sensitive cryptographic information for +-- configuring your customer gateway. +-- +-- If you decide to shut down your VPN connection for any reason and later +-- create a new VPN connection, you must reconfigure your customer gateway with +-- the new information returned from this call. +-- +-- For more information about VPN connections, see in the /Amazon Virtual Private Cloud User Guide/. +-- -- module Network.AWS.EC2.CreateVpnConnection ( @@ -102,12 +106,14 @@ cvcDryRun = lens _cvcDryRun (\s a -> s { _cvcDryRun = a }) -- | Indicates whether the VPN connection requires static routes. If you are --- creating a VPN connection for a device that does not support BGP, you --- must specify true. Default: false. +-- creating a VPN connection for a device that does not support BGP, you must +-- specify 'true'. +-- +-- Default: 'false' cvcOptions :: Lens' CreateVpnConnection (Maybe VpnConnectionOptionsSpecification) cvcOptions = lens _cvcOptions (\s a -> s { _cvcOptions = a }) --- | The type of VPN connection (ipsec.1). +-- | The type of VPN connection ('ipsec.1'). cvcType :: Lens' CreateVpnConnection Text cvcType = lens _cvcType (\s a -> s { _cvcType = a }) 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 @@ -23,9 +23,9 @@ -- | Creates a static route associated with a VPN connection between an existing -- virtual private gateway and a VPN customer gateway. The static route allows -- traffic to be routed from the virtual private gateway to the VPN customer --- gateway. For more information about VPN connections, see Adding a Hardware --- Virtual Private Gateway to Your VPC in the Amazon Virtual Private Cloud --- User Guide. +-- gateway. +-- +-- For more information about VPN connections, see in the /Amazon Virtual Private Cloud User Guide/. -- -- module Network.AWS.EC2.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 @@ -20,11 +20,11 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Creates a virtual private gateway. A virtual private gateway is the --- endpoint on the VPC side of your VPN connection. You can create a virtual --- private gateway before creating the VPC itself. For more information about --- virtual private gateways, see Adding a Hardware Virtual Private Gateway to --- Your VPC in the Amazon Virtual Private Cloud User Guide. +-- | Creates a virtual private gateway. A virtual private gateway is the endpoint +-- on the VPC side of your VPN connection. You can create a virtual private +-- gateway before creating the VPC itself. +-- +-- For more information about virtual private gateways, see in the /Amazon Virtual Private Cloud UserGuide/. -- -- module Network.AWS.EC2.CreateVpnGateway 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 @@ -20,8 +20,8 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Deletes the specified Internet gateway. You must detach the Internet --- gateway from the VPC before you can delete it. +-- | Deletes the specified Internet gateway. You must detach the Internet gateway +-- from the VPC before you can delete it. -- -- module Network.AWS.EC2.DeleteInternetGateway 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 @@ -22,8 +22,7 @@ -- | Deletes the specified placement group. You must terminate all instances in -- the placement group before you can delete the placement group. For more --- information about placement groups and cluster instances, see Cluster --- Instances in the Amazon Elastic Compute Cloud User Guide. +-- information about placement groups and cluster instances, see in the /Amazon Elastic Compute Cloud User Guide/. -- -- module Network.AWS.EC2.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 @@ -70,8 +70,8 @@ , _drDryRun = Nothing } --- | The CIDR range for the route. The value you specify must match the CIDR --- for the route exactly. +-- | The CIDR range for the route. The value you specify must match the CIDR for +-- the route exactly. drDestinationCidrBlock :: Lens' DeleteRoute Text drDestinationCidrBlock = lens _drDestinationCidrBlock (\s a -> s { _drDestinationCidrBlock = a }) 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 @@ -20,9 +20,8 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Deletes the specified route table. You must disassociate the route table --- from any subnets before you can delete it. You can't delete the main route --- table. +-- | Deletes the specified route table. You must disassociate the route table from +-- any subnets before you can delete it. You can't delete the main route table. -- -- module Network.AWS.EC2.DeleteRouteTable 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 @@ -20,11 +20,12 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Deletes a security group. If you attempt to delete a security group that is --- associated with an instance, or is referenced by another security group, --- the operation fails with InvalidGroup.InUse in EC2-Classic or --- DependencyViolation in EC2-VPC. +-- | Deletes a security group. -- +-- If you attempt to delete a security group that is associated with an +-- instance, or is referenced by another security group, the operation fails +-- with 'InvalidGroup.InUse' in EC2-Classic or 'DependencyViolation' in EC2-VPC. +-- -- module Network.AWS.EC2.DeleteSecurityGroup ( @@ -78,8 +79,8 @@ dsgGroupId :: Lens' DeleteSecurityGroup (Maybe Text) 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. +-- | [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 }) 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 @@ -20,16 +20,20 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Deletes the specified snapshot. When you make periodic snapshots of a --- volume, the snapshots are incremental, and only the blocks on the device --- that have changed since your last snapshot are saved in the new snapshot. --- When you delete a snapshot, only the data not needed for any other snapshot --- is removed. So regardless of which prior snapshots have been deleted, all --- active snapshots will have access to all the information needed to restore --- the volume. You cannot delete a snapshot of the root device of an Amazon --- EBS volume used by a registered AMI. You must first de-register the AMI --- before you can delete the snapshot. For more information, see Deleting an --- Amazon EBS Snapshot in the Amazon Elastic Compute Cloud User Guide. +-- | Deletes the specified snapshot. +-- +-- When you make periodic snapshots of a volume, the snapshots are incremental, +-- and only the blocks on the device that have changed since your last snapshot +-- are saved in the new snapshot. When you delete a snapshot, only the data not +-- needed for any other snapshot is removed. So regardless of which prior +-- snapshots have been deleted, all active snapshots will have access to all the +-- information needed to restore the volume. +-- +-- You cannot delete a snapshot of the root device of an Amazon EBS volume used +-- by a registered AMI. You must first de-register the AMI before you can delete +-- the snapshot. +-- +-- For more information, see in the /AmazonElastic Compute Cloud User Guide/. -- -- module Network.AWS.EC2.DeleteSnapshot 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 @@ -20,8 +20,7 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Deletes the datafeed for Spot Instances. For more information, see Spot --- Instances in the Amazon Elastic Compute Cloud User Guide. +-- | Deletes the datafeed for Spot Instances. For more information, see in the /Amazon Elastic Compute Cloud User Guide/. -- -- module Network.AWS.EC2.DeleteSpotDatafeedSubscription 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 @@ -20,8 +20,8 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Deletes the specified subnet. You must terminate all running instances in --- the subnet before you can delete the subnet. +-- | Deletes the specified subnet. You must terminate all running instances in the +-- subnet before you can delete the subnet. -- -- module Network.AWS.EC2.DeleteSubnet 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 @@ -21,10 +21,10 @@ -- Portability : non-portable (GHC extensions) -- | Deletes the specified set of tags from the specified set of resources. This --- call is designed to follow a DescribeTags request. For more information --- about tags, see Tagging Your Resources in the Amazon Elastic Compute Cloud --- User Guide. +-- call is designed to follow a 'DescribeTags' request. -- +-- For more information about tags, see in the /AmazonElastic Compute Cloud User Guide/. +-- -- module Network.AWS.EC2.DeleteTags ( @@ -74,15 +74,14 @@ dt1DryRun :: Lens' DeleteTags (Maybe Bool) dt1DryRun = lens _dt1DryRun (\s a -> s { _dt1DryRun = a }) --- | The ID of the resource. For example, ami-1a2b3c4d. You can specify more --- than one resource ID. +-- | The ID of the resource. For example, ami-1a2b3c4d. You can specify more than +-- one resource ID. dt1Resources :: Lens' DeleteTags [Text] dt1Resources = lens _dt1Resources (\s a -> s { _dt1Resources = a }) . _List --- | One or more tags to delete. If you omit the value parameter, we delete --- the tag regardless of its value. If you specify this parameter with an --- empty string as the value, we delete the key only if its value is an --- empty string. +-- | One or more tags to delete. If you omit the 'value' parameter, we delete the +-- tag regardless of its value. If you specify this parameter with an empty +-- string as the value, we delete the key only if its value is an empty string. dt1Tags :: Lens' DeleteTags [Tag] dt1Tags = lens _dt1Tags (\s a -> s { _dt1Tags = a }) . _List 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 @@ -20,10 +20,10 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Deletes the specified Amazon EBS volume. The volume must be in the --- available state (not attached to an instance). For more information, see --- Deleting an Amazon EBS Volume in the Amazon Elastic Compute Cloud User --- Guide. +-- | Deletes the specified Amazon EBS volume. The volume must be in the 'available' +-- state (not attached to an instance). +-- +-- For more information, see in the /AmazonElastic Compute Cloud User Guide/. -- -- module Network.AWS.EC2.DeleteVolume 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 @@ -23,9 +23,8 @@ -- | Deletes the specified VPC. You must detach or delete all gateways and -- resources that are associated with the VPC before you can delete it. For -- example, you must terminate all instances running in the VPC, delete all --- security groups associated with the VPC (except the default one), delete --- all route tables associated with the VPC (except the default one), and so --- on. +-- security groups associated with the VPC (except the default one), delete all +-- route tables associated with the VPC (except the default one), and so on. -- -- module Network.AWS.EC2.DeleteVpc 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 @@ -22,8 +22,8 @@ -- | 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. +-- the 'active' state. The owner of the requester VPC can delete a VPC peering +-- connection in the 'pending-acceptance' state. -- -- module Network.AWS.EC2.DeleteVpcPeeringConnection @@ -93,7 +93,7 @@ { _dvpcrReturn = Nothing } --- | Returns true if the request succeeds; otherwise, it returns an error. +-- | Returns 'true' if the request succeeds; otherwise, it returns an error. dvpcrReturn :: Lens' DeleteVpcPeeringConnectionResponse (Maybe Bool) dvpcrReturn = lens _dvpcrReturn (\s a -> s { _dvpcrReturn = a }) 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 @@ -20,15 +20,16 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Deletes the specified VPN connection. If you're deleting the VPC and its --- associated components, we recommend that you detach the virtual private --- gateway from the VPC and delete the VPC before deleting the VPN connection. --- If you believe that the tunnel credentials for your VPN connection have --- been compromised, you can delete the VPN connection and create a new one --- that has new keys, without needing to delete the VPC or virtual private --- gateway. If you create a new VPN connection, you must reconfigure the --- customer gateway using the new configuration information returned with the --- new VPN connection ID. +-- | Deletes the specified VPN connection. +-- +-- If you're deleting the VPC and its associated components, we recommend that +-- you detach the virtual private gateway from the VPC and delete the VPC before +-- deleting the VPN connection. If you believe that the tunnel credentials for +-- your VPN connection have been compromised, you can delete the VPN connection +-- and create a new one that has new keys, without needing to delete the VPC or +-- virtual private gateway. If you create a new VPN connection, you must +-- reconfigure the customer gateway using the new configuration information +-- returned with the new VPN connection ID. -- -- module Network.AWS.EC2.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 @@ -22,8 +22,8 @@ -- | Deletes the specified static route associated with a VPN connection between -- an existing virtual private gateway and a VPN customer gateway. The static --- route allows traffic to be routed from the virtual private gateway to the --- VPN customer gateway. +-- route allows traffic to be routed from the virtual private gateway to the VPN +-- customer gateway. -- -- module Network.AWS.EC2.DeleteVpnConnectionRoute 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 @@ -20,8 +20,10 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Deregisters the specified AMI. After you deregister an AMI, it can't be --- used to launch new instances. This command does not delete the AMI. +-- | Deregisters the specified AMI. After you deregister an AMI, it can't be used +-- to launch new instances. +-- +-- This command does not delete the AMI. -- -- module Network.AWS.EC2.DeregisterImage 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 @@ -20,11 +20,11 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Describes one or more of your Elastic IP addresses. An Elastic IP address --- is for use in either the EC2-Classic platform or in a VPC. For more --- information, see Elastic IP Addresses in the Amazon Elastic Compute Cloud --- User Guide. +-- | Describes one or more of your Elastic IP addresses. -- +-- An Elastic IP address is for use in either the EC2-Classic platform or in a +-- VPC. For more information, see in the /Amazon ElasticCompute Cloud User Guide/. +-- -- module Network.AWS.EC2.DescribeAddresses ( @@ -78,8 +78,9 @@ , _daAllocationIds = mempty } --- | [EC2-VPC] One or more allocation IDs. Default: Describes all your Elastic --- IP addresses. +-- | [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 }) . _List @@ -87,20 +88,34 @@ daDryRun = lens _daDryRun (\s a -> s { _daDryRun = a }) -- | 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. +-- +-- '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 :: Lens' DescribeAddresses [Filter] daFilters = lens _daFilters (\s a -> s { _daFilters = a }) . _List --- | [EC2-Classic] One or more Elastic IP addresses. Default: Describes all --- your Elastic IP addresses. +-- | [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 }) . _List 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 @@ -22,11 +22,11 @@ -- | Describes one or more of the Availability Zones that are available to you. -- The results include zones only for the region you're currently using. If --- there is an event impacting an Availability Zone, you can use this request --- to view the state and any provided message for that Availability Zone. For --- more information, see Regions and Availability Zones in the Amazon Elastic --- Compute Cloud User Guide. +-- there is an event impacting an Availability Zone, you can use this request to +-- view the state and any provided message for that Availability Zone. -- +-- For more information, see in the /AmazonElastic Compute Cloud User Guide/. +-- -- module Network.AWS.EC2.DescribeAvailabilityZones ( @@ -78,11 +78,18 @@ dazDryRun :: Lens' DescribeAvailabilityZones (Maybe Bool) dazDryRun = lens _dazDryRun (\s a -> s { _dazDryRun = a }) --- | 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 | impaired | unavailable). zone-name - The name of the --- Availability Zone (for example, us-east-1a). +-- | 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' | '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 }) . _List 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 @@ -70,23 +70,40 @@ , _dbtFilters = mempty } --- | One or more bundle task IDs. Default: Describes all your bundle tasks. +-- | One or more bundle task IDs. +-- +-- Default: Describes all your bundle tasks. dbtBundleIds :: Lens' DescribeBundleTasks [Text] dbtBundleIds = lens _dbtBundleIds (\s a -> s { _dbtBundleIds = a }) . _List dbtDryRun :: Lens' DescribeBundleTasks (Maybe Bool) dbtDryRun = lens _dbtDryRun (\s a -> s { _dbtDryRun = a }) --- | 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. +-- | 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 }) . _List 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 @@ -20,9 +20,7 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Describes one or more of your conversion tasks. For more information, see --- Using the Command Line Tools to Import Your Virtual Machine to Amazon EC2 --- in the Amazon Elastic Compute Cloud User Guide. +-- | Describes one or more of your conversion tasks. For more information, see in the /Amazon Elastic Compute Cloud User Guide/. -- -- module Network.AWS.EC2.DescribeConversionTasks 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 @@ -20,10 +20,10 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Describes one or more of your VPN customer gateways. For more information --- about VPN customer gateways, see Adding a Hardware Virtual Private Gateway --- to Your VPC in the Amazon Virtual Private Cloud User Guide. +-- | Describes one or more of your VPN customer gateways. -- +-- For more information about VPN customer gateways, see in the /Amazon Virtual Private Cloud UserGuide/. +-- -- module Network.AWS.EC2.DescribeCustomerGateways ( @@ -72,8 +72,9 @@ , _dcgFilters = mempty } --- | One or more customer gateway IDs. Default: Describes all your customer --- gateways. +-- | One or more customer gateway IDs. +-- +-- Default: Describes all your customer gateways. dcgCustomerGatewayIds :: Lens' DescribeCustomerGateways [Text] dcgCustomerGatewayIds = lens _dcgCustomerGatewayIds (\s a -> s { _dcgCustomerGatewayIds = a }) @@ -82,21 +83,35 @@ dcgDryRun :: Lens' DescribeCustomerGateways (Maybe Bool) dcgDryRun = lens _dcgDryRun (\s a -> s { _dcgDryRun = a }) --- | 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. 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. +-- | 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. +-- +-- '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 }) . _List 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 @@ -20,10 +20,10 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Describes one or more of your DHCP options sets. For more information about --- DHCP options sets, see DHCP Options Sets in the Amazon Virtual Private --- Cloud User Guide. +-- | Describes one or more of your DHCP options sets. -- +-- For more information about DHCP options sets, see in the /Amazon Virtual Private Cloud User Guide/. +-- -- module Network.AWS.EC2.DescribeDhcpOptions ( @@ -72,8 +72,9 @@ , _ddoFilters = mempty } --- | The IDs of one or more DHCP options sets. Default: Describes all your --- DHCP options sets. +-- | 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 }) @@ -82,18 +83,28 @@ ddoDryRun :: Lens' DescribeDhcpOptions (Maybe Bool) ddoDryRun = lens _ddoDryRun (\s a -> s { _ddoDryRun = a }) --- | 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. 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. +-- | 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. +-- +-- '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 }) . _List 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 @@ -20,8 +20,8 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Describes the specified attribute of the specified AMI. You can specify --- only one attribute at a time. +-- | Describes the specified attribute of the specified AMI. You can specify only +-- one attribute at a time. -- -- module Network.AWS.EC2.DescribeImageAttribute 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 @@ -20,9 +20,9 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Describes one or more of the images (AMIs, AKIs, and ARIs) available to --- you. Images available to you include public images, private images that you --- own, and private images owned by other AWS accounts but for which you have +-- | Describes one or more of the images (AMIs, AKIs, and ARIs) available to you. +-- Images available to you include public images, private images that you own, +-- and private images owned by other AWS accounts but for which you have -- explicit launch permissions. -- -- @@ -86,57 +86,100 @@ di2DryRun :: Lens' DescribeImages (Maybe Bool) di2DryRun = lens _di2DryRun (\s a -> s { _di2DryRun = a }) --- | Scopes the images by users with explicit launch permissions. Specify an --- AWS account ID, self (the sender of the request), or all (public AMIs). +-- | Scopes the images by users with explicit launch permissions. Specify an AWS +-- account ID, 'self' (the sender of the request), or 'all' (public AMIs). di2ExecutableUsers :: Lens' DescribeImages [Text] di2ExecutableUsers = lens _di2ExecutableUsers (\s a -> s { _di2ExecutableUsers = a }) . _List --- | 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 for the --- Amazon EBS volume (for example, /dev/sdh). --- block-device-mapping.snapshot-id - The ID of the snapshot used for the --- Amazon EBS volume. block-device-mapping.volume-size - The volume size of --- the Amazon EBS volume, in GiB. block-device-mapping.volume-type - The --- volume type of the Amazon EBS volume (gp2 | standard | io1). description --- - The description of the image (provided during image creation). --- 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 - The AWS account alias (for example, amazon). 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 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. 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. --- virtualization-type - The virtualization type (paravirtual | hvm). +-- | 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 for the Amazon EBS +-- volume (for example, '/dev/sdh'). +-- +-- 'block-device-mapping.snapshot-id' - The ID of the snapshot used for the +-- Amazon EBS volume. +-- +-- 'block-device-mapping.volume-size' - The volume size of the Amazon EBS +-- volume, in GiB. +-- +-- 'block-device-mapping.volume-type' - The volume type of the Amazon EBS +-- volume ('gp2' | 'standard' | 'io1'). +-- +-- 'description' - The description of the image (provided during image +-- creation). +-- +-- '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' - The AWS account alias (for example, 'amazon'). +-- +-- '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 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. +-- +-- '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. +-- +-- 'virtualization-type' - The virtualization type ('paravirtual' | 'hvm'). +-- +-- di2Filters :: Lens' DescribeImages [Filter] di2Filters = lens _di2Filters (\s a -> s { _di2Filters = a }) . _List --- | One or more image IDs. Default: Describes all images available to you. +-- | One or more image IDs. +-- +-- Default: Describes all images available to you. di2ImageIds :: Lens' DescribeImages [Text] di2ImageIds = lens _di2ImageIds (\s a -> s { _di2ImageIds = a }) . _List --- | Filters the images by the owner. Specify an AWS account ID, amazon (owner --- is Amazon), aws-marketplace (owner is AWS Marketplace), self (owner is --- the sender of the request), or all (all owners). +-- | Filters the images by the owner. Specify an AWS account ID, 'amazon' (owner is +-- Amazon), 'aws-marketplace' (owner is AWS Marketplace), 'self' (owner is the +-- sender of the request), or 'all' (all owners). di2Owners :: Lens' DescribeImages [Text] di2Owners = lens _di2Owners (\s a -> s { _di2Owners = a }) . _List 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 @@ -20,11 +20,8 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Describes the specified attribute of the specified instance. You can --- specify only one attribute at a time. Valid attribute values are: --- instanceType | kernel | ramdisk | userData | disableApiTermination | --- instanceInitiatedShutdownBehavior | rootDeviceName | blockDeviceMapping | --- productCodes | sourceDestCheck | groupSet | ebsOptimized | sriovNetSupport. +-- | Describes the specified attribute of the specified instance. You can specify +-- only one attribute at a time. Valid attribute values are: 'instanceType' | 'kernel' | 'ramdisk' | 'userData' | 'disableApiTermination' | 'instanceInitiatedShutdownBehavior' | 'rootDeviceName' | 'blockDeviceMapping' | 'productCodes' | 'sourceDestCheck' | 'groupSet' | 'ebsOptimized' | 'sriovNetSupport' -- -- module Network.AWS.EC2.DescribeInstanceAttribute @@ -174,8 +171,8 @@ (\s a -> s { _diar1BlockDeviceMappings = a }) . _List --- | If the value is true, you can't terminate the instance through the Amazon --- EC2 console, CLI, or API; otherwise, you can. +-- | If the value is 'true', you can't terminate the instance through the Amazon EC2 +-- console, CLI, or API; otherwise, you can. diar1DisableApiTermination :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeBooleanValue) diar1DisableApiTermination = lens _diar1DisableApiTermination @@ -194,9 +191,8 @@ diar1InstanceId :: Lens' DescribeInstanceAttributeResponse (Maybe Text) diar1InstanceId = lens _diar1InstanceId (\s a -> s { _diar1InstanceId = a }) --- | Indicates whether an instance stops or terminates when you initiate --- shutdown from the instance (using the operating system command for system --- shutdown). +-- | Indicates whether an instance stops or terminates when you initiate shutdown +-- from the instance (using the operating system command for system shutdown). diar1InstanceInitiatedShutdownBehavior :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue) diar1InstanceInitiatedShutdownBehavior = lens _diar1InstanceInitiatedShutdownBehavior @@ -221,14 +217,14 @@ diar1RamdiskId :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue) diar1RamdiskId = lens _diar1RamdiskId (\s a -> s { _diar1RamdiskId = a }) --- | The name of the root device (for example, /dev/sda1). +-- | The name of the root device (for example, '/dev/sda1'). diar1RootDeviceName :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue) diar1RootDeviceName = lens _diar1RootDeviceName (\s a -> s { _diar1RootDeviceName = a }) --- | Indicates whether source/destination checking is enabled. A value of true --- means checking is enabled, and false means checking is disabled. This --- value must be false for a NAT instance to perform NAT. +-- | 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. diar1SourceDestCheck :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeBooleanValue) diar1SourceDestCheck = lens _diar1SourceDestCheck (\s a -> s { _diar1SourceDestCheck = a }) 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 @@ -20,54 +20,62 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Describes the status of one or more instances, including any scheduled --- events. Instance status has two main components: System Status reports --- impaired functionality that stems from issues related to the systems that --- support an instance, such as such as hardware failures and network --- connectivity problems. This call reports such problems as impaired --- reachability. Instance Status reports impaired functionality that arises --- from problems internal to the instance. This call reports such problems as --- impaired reachability. Instance status provides information about four --- types of scheduled events for an instance that may require your attention: +-- | Describes the status of one or more instances, including any scheduled events. +-- +-- Instance status has two main components: +-- +-- System Status reports impaired functionality that stems from issues +-- related to the systems that support an instance, such as such as hardware +-- failures and network connectivity problems. This call reports such problems +-- as impaired reachability. +-- +-- Instance Status reports impaired functionality that arises from problems +-- internal to the instance. This call reports such problems as impaired +-- reachability. +-- +-- Instance status provides information about four types of scheduled events +-- for an instance that may require your attention: +-- -- Scheduled Reboot: When Amazon EC2 determines that an instance must be --- rebooted, the instances status returns one of two event codes: --- system-reboot or instance-reboot. System reboot commonly occurs if certain --- maintenance or upgrade operations require a reboot of the underlying host --- that supports an instance. Instance reboot commonly occurs if the instance --- must be rebooted, rather than the underlying host. Rebooting events include --- a scheduled start and end time. System Maintenance: When Amazon EC2 --- determines that an instance requires maintenance that requires power or --- network impact, the instance status is the event code system-maintenance. --- System maintenance is either power maintenance or network maintenance. For --- power maintenance, your instance will be unavailable for a brief period of --- time and then rebooted. For network maintenance, your instance will --- experience a brief loss of network connectivity. System maintenance events --- include a scheduled start and end time. You will also be notified by email --- if one of your instances is set for system maintenance. The email message --- indicates when your instance is scheduled for maintenance. Scheduled --- Retirement: When Amazon EC2 determines that an instance must be shut down, --- the instance status is the event code instance-retirement. Retirement --- commonly occurs when the underlying host is degraded and must be replaced. --- Retirement events include a scheduled start and end time. You will also be --- notified by email if one of your instances is set to retiring. The email --- message indicates when your instance will be permanently retired. Scheduled --- Stop: When Amazon EC2 determines that an instance must be shut down, the --- instances status returns an event code called instance-stop. Stop events --- include a scheduled start and end time. You will also be notified by email --- if one of your instances is set to stop. The email message indicates when --- your instance will be stopped. When your instance is retired, it will --- either be terminated (if its root device type is the instance-store) or --- stopped (if its root device type is an EBS volume). Instances stopped due --- to retirement will not be restarted, but you can do so manually. You can --- also avoid retirement of EBS-backed instances by manually restarting your --- instance when its event code is instance-retirement. This ensures that your --- instance is started on a different underlying host. For more information --- about failed status checks, see Troubleshooting Instances with Failed --- Status Checks in the Amazon Elastic Compute Cloud User Guide. For more --- information about working with scheduled events, see Working with an --- Instance That Has a Scheduled Event in the Amazon Elastic Compute Cloud --- User Guide. +-- rebooted, the instances status returns one of two event codes: 'system-reboot' +-- or 'instance-reboot'. System reboot commonly occurs if certain maintenance or +-- upgrade operations require a reboot of the underlying host that supports an +-- instance. Instance reboot commonly occurs if the instance must be rebooted, +-- rather than the underlying host. Rebooting events include a scheduled start +-- and end time. -- +-- System Maintenance: When Amazon EC2 determines that an instance requires +-- maintenance that requires power or network impact, the instance status is the +-- event code 'system-maintenance'. System maintenance is either power maintenance +-- or network maintenance. For power maintenance, your instance will be +-- unavailable for a brief period of time and then rebooted. For network +-- maintenance, your instance will experience a brief loss of network +-- connectivity. System maintenance events include a scheduled start and end +-- time. You will also be notified by email if one of your instances is set for +-- system maintenance. The email message indicates when your instance is +-- scheduled for maintenance. +-- +-- Scheduled Retirement: When Amazon EC2 determines that an instance must be +-- shut down, the instance status is the event code 'instance-retirement'. +-- Retirement commonly occurs when the underlying host is degraded and must be +-- replaced. Retirement events include a scheduled start and end time. You will +-- also be notified by email if one of your instances is set to retiring. The +-- email message indicates when your instance will be permanently retired. +-- +-- Scheduled Stop: When Amazon EC2 determines that an instance must be shut +-- down, the instances status returns an event code called 'instance-stop'. Stop +-- events include a scheduled start and end time. You will also be notified by +-- email if one of your instances is set to stop. The email message indicates +-- when your instance will be stopped. +-- +-- When your instance is retired, it will either be terminated (if its root +-- device type is the instance-store) or stopped (if its root device type is an +-- EBS volume). Instances stopped due to retirement will not be restarted, but +-- you can do so manually. You can also avoid retirement of EBS-backed instances +-- by manually restarting your instance when its event code is 'instance-retirement'. This ensures that your instance is started on a different underlying host. +-- +-- For more information about failed status checks, see in the /Amazon Elastic Compute Cloud UserGuide/. For more information about working with scheduled events, see in the /Amazon Elastic ComputeCloud User Guide/. +-- -- module Network.AWS.EC2.DescribeInstanceStatus ( @@ -135,51 +143,67 @@ disDryRun :: Lens' DescribeInstanceStatus (Maybe Bool) disDryRun = lens _disDryRun (\s a -> s { _disDryRun = a }) --- | One or more filters. availability-zone - The Availability Zone of the --- instance. event.code - The code identifying the type of event --- (instance-reboot | system-reboot | system-maintenance | --- instance-retirement | instance-stop). event.description - A description --- of the event. event.not-after - The latest end time for the scheduled --- event, for example: 2010-09-15T17:15:20.000Z. event.not-before - The --- earliest start time for the scheduled event, for example: --- 2010-09-15T17:15:20.000Z. instance-state-code - A code representing the --- state of the instance, as a 16-bit unsigned integer. The high byte is an --- opaque internal value and should be ignored. The low byte is set based on --- the state represented. The valid values are 0 (pending), 16 (running), 32 --- (shutting-down), 48 (terminated), 64 (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). +-- | One or more filters. +-- +-- 'availability-zone' - The Availability Zone of the instance. +-- +-- 'event.code' - The code identifying the type of event ('instance-reboot' | 'system-reboot' | 'system-maintenance' | 'instance-retirement' | 'instance-stop'). +-- +-- 'event.description' - A description of the event. +-- +-- 'event.not-after' - The latest end time for the scheduled event, for +-- example: '2010-09-15T17:15:20.000Z'. +-- +-- 'event.not-before' - The earliest start time for the scheduled event, for +-- example: '2010-09-15T17:15:20.000Z'. +-- +-- 'instance-state-code' - A code representing the state of the instance, as a +-- 16-bit unsigned integer. The high byte is an opaque internal value and should +-- be ignored. The low byte is set based on the state represented. The valid +-- values are 0 (pending), 16 (running), 32 (shutting-down), 48 (terminated), 64 +-- (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 }) . _List --- | When true, includes the health status for all instances. When false, --- includes the health status for running instances only. Default: false. +-- | 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 }) --- | One or more instance IDs. Default: Describes all your instances. +-- | 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 }) . _List --- | The maximum number of paginated instance items per response. The call --- also returns a token that you can specify in a subsequent call to get the --- next set of results. If the value is greater than 1000, we return only --- 1000 items. Default: 1000. +-- | The maximum number of paginated instance items per response. The call also +-- returns a token that you can specify in a subsequent call to get the next set +-- of results. If the value is greater than 1000, we return only 1000 items. +-- +-- Default: 1000 disMaxResults :: Lens' DescribeInstanceStatus (Maybe Int) disMaxResults = lens _disMaxResults (\s a -> s { _disMaxResults = a }) --- | The next paginated set of results to return. (You received this token --- from a prior call.). +-- | The next paginated set of results to return. (You received this token from a +-- prior call.) disNextToken :: Lens' DescribeInstanceStatus (Maybe Text) disNextToken = lens _disNextToken (\s a -> s { _disNextToken = a }) 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 @@ -20,15 +20,17 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Describes one or more of your instances. If you specify one or more --- instance IDs, Amazon EC2 returns information for those instances. If you do --- not specify instance IDs, Amazon EC2 returns information for all relevant --- instances. If you specify an instance ID that is not valid, an error is --- returned. If you specify an instance that you do not own, it is not --- included in the returned results. Recently terminated instances might --- appear in the returned results. This interval is usually less than one --- hour. +-- | Describes one or more of your instances. -- +-- If you specify one or more instance IDs, Amazon EC2 returns information for +-- those instances. If you do not specify instance IDs, Amazon EC2 returns +-- information for all relevant instances. If you specify an instance ID that is +-- not valid, an error is returned. If you specify an instance that you do not +-- own, it is not included in the returned results. +-- +-- Recently terminated instances might appear in the returned results. This +-- interval is usually less than one hour. +-- -- module Network.AWS.EC2.DescribeInstances ( @@ -91,148 +93,251 @@ di1DryRun :: Lens' DescribeInstances (Maybe Bool) di1DryRun = lens _di1DryRun (\s a -> s { _di1DryRun = a }) --- | One or more filters. 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 Amazon EBS --- volume mapped to the instance, for example, 2010-09-15T17:15:20.000Z. --- block-device-mapping.delete-on-termination - A Boolean that indicates +-- | One or more filters. +-- +-- '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 Amazon EBS +-- volume mapped to the instance, for example, '2010-09-15T17:15:20.000Z'. +-- +-- 'block-device-mapping.delete-on-termination' - A Boolean that indicates -- whether the Amazon EBS volume is deleted on instance termination. --- block-device-mapping.device-name - The device name for the Amazon EBS --- volume (for example, /dev/sdh). block-device-mapping.status - The status --- for the Amazon EBS volume (attaching | attached | detaching | detached). --- block-device-mapping.volume-id - The volume ID of the Amazon 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. If the instance is in --- EC2-Classic or a default VPC, you can use group-name instead. group-name --- - The name of the security group for the instance. If the instance is in --- a nondefault VPC, you must use group-id instead. 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 (spot). 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, --- m1.small). instance.group-id - The ID of the security group for the --- instance. If the instance is in EC2-Classic or a default VPC, you can use --- instance.group-name instead. instance.group-name - The name of the --- security group for the instance. If the instance is in a nondefault VPC, --- you must use instance.group-id instead. ip-address - The public IP --- 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 --- monitoring is enabled for the instance (disabled | enabled). 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 DNS name of the instance. --- private-ip-address - The private IP 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 +-- +-- 'block-device-mapping.device-name' - The device name for the Amazon EBS +-- volume (for example, '/dev/sdh'). +-- +-- 'block-device-mapping.status' - The status for the Amazon EBS volume ('attaching' | 'attached' | 'detaching' | 'detached'). +-- +-- 'block-device-mapping.volume-id' - The volume ID of the Amazon 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. If the instance +-- is in EC2-Classic or a default VPC, you can use 'group-name' instead. +-- +-- 'group-name' - The name of the security group for the instance. If the +-- instance is in a nondefault VPC, you must use 'group-id' instead. +-- +-- '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 ('spot'). +-- +-- '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, 'm1.small'). +-- +-- 'instance.group-id' - The ID of the security group for the instance. If the +-- instance is in EC2-Classic or a default VPC, you can use 'instance.group-name' +-- instead. +-- +-- 'instance.group-name' - The name of the security group for the instance. If +-- the instance is in a nondefault VPC, you must use 'instance.group-id' instead. +-- +-- 'ip-address' - The public IP 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 monitoring is enabled for the +-- instance ('disabled' | 'enabled'). +-- +-- '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 DNS name of the instance. +-- +-- 'private-ip-address' - The private IP 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'll get one reservation ID. If you launch ten instances using the same --- launch request, you'll also get one reservation ID. root-device-name - --- The name of the root device for the instance (for example, /dev/sda1). --- root-device-type - The type of root device that the instance uses (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 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, where tag:key is --- the tag's key. 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. tenancy - The --- tenancy of an instance (dedicated | default). virtualization-type - The --- virtualization type of the instance (paravirtual | hvm). vpc-id - The ID --- of the VPC that the instance is running in. network-interface.description --- - The description of the network interface. 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. --- 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.availability-zone - The Availability Zone --- for 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.mac-address - The MAC address of --- the network interface. network-interface-private-dns-name - The private --- DNS name of the network interface. --- network-interface.source-destination-check - 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. 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.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 +-- +-- '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'll get one reservation +-- ID. If you launch ten instances using the same launch request, you'll also +-- get one reservation ID. +-- +-- 'root-device-name' - The name of the root device for the instance (for +-- example, '/dev/sda1'). +-- +-- 'root-device-type' - The type of root device that the instance uses ('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 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, where 'tag':/key/ is the tag's key. +-- +-- '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. +-- +-- 'tenancy' - The tenancy of an instance ('dedicated' | 'default'). +-- +-- 'virtualization-type' - The virtualization type of the instance ('paravirtual' +-- | 'hvm'). +-- +-- 'vpc-id' - The ID of the VPC that the instance is running in. +-- +-- 'network-interface.description' - The description of the network interface. +-- +-- '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. +-- +-- '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.availability-zone' - The Availability Zone for 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.mac-address' - The MAC address of the network interface. +-- +-- 'network-interface-private-dns-name' - The private DNS name of the network +-- interface. +-- +-- 'network-interface.source-destination-check' - 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. +-- +-- '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.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.addresses.private-ip-address - The private IP address +-- +-- 'network-interface.addresses.private-ip-address' - The private IP address -- associated with the network interface. --- 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 +-- +-- '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.addresses.primary - Specifies whether the IP address of +-- +-- 'network-interface.attachment.delete-on-termination' - Specifies whether the +-- attachment is deleted when an instance is terminated. +-- +-- 'network-interface.addresses.primary' - Specifies whether the IP address of -- the network interface is the primary private IP address. --- network-interface.addresses.association.public-ip - The ID of the +-- +-- 'network-interface.addresses.association.public-ip' - The ID of the -- association of an Elastic IP address with a network interface. --- network-interface.addresses.association.ip-owner-id - The owner ID of the +-- +-- 'network-interface.addresses.association.ip-owner-id' - The owner ID of the -- private IP address associated with the network interface. --- association.public-ip - The address of the Elastic IP address bound to --- the network interface. association.ip-owner-id - The owner of the Elastic --- IP address associated with the network interface. --- association.allocation-id - The allocation ID returned when you allocated +-- +-- 'association.public-ip' - The address of the Elastic IP address bound to the +-- network interface. +-- +-- 'association.ip-owner-id' - The owner of the Elastic IP address associated +-- with the network interface. +-- +-- 'association.allocation-id' - The allocation ID returned when you allocated -- the Elastic IP address for your network interface. --- association.association-id - The association ID returned when the network +-- +-- 'association.association-id' - The association ID returned when the network -- interface was associated with an IP address. +-- +-- di1Filters :: Lens' DescribeInstances [Filter] di1Filters = lens _di1Filters (\s a -> s { _di1Filters = a }) . _List --- | One or more instance IDs. Default: Describes all your instances. +-- | One or more instance IDs. +-- +-- Default: Describes all your instances. di1InstanceIds :: Lens' DescribeInstances [Text] di1InstanceIds = lens _di1InstanceIds (\s a -> s { _di1InstanceIds = a }) . _List --- | The maximum number of items to return for this call. The call also --- returns a token that you can specify in a subsequent call to get the next --- set of results. If the value is greater than 1000, we return only 1000 --- items. +-- | The maximum number of items to return for this call. The call also returns a +-- token that you can specify in a subsequent call to get the next set of +-- results. If the value is greater than 1000, we return only 1000 items. di1MaxResults :: Lens' DescribeInstances (Maybe Int) di1MaxResults = lens _di1MaxResults (\s a -> s { _di1MaxResults = a }) --- | The token for the next set of items to return. (You received this token --- from a prior call.). +-- | The token for the next set of items to return. (You received this token from +-- a prior call.) di1NextToken :: Lens' DescribeInstances (Maybe Text) di1NextToken = lens _di1NextToken (\s a -> s { _di1NextToken = a }) 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 @@ -73,24 +73,35 @@ dig1DryRun :: Lens' DescribeInternetGateways (Maybe Bool) dig1DryRun = lens _dig1DryRun (\s a -> s { _dig1DryRun = a }) --- | 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. 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 +-- | 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. +-- +-- '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. +-- 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. +-- +-- dig1Filters :: Lens' DescribeInternetGateways [Filter] dig1Filters = lens _dig1Filters (\s a -> s { _dig1Filters = a }) . _List --- | One or more Internet gateway IDs. Default: Describes all your Internet --- gateways. +-- | One or more Internet gateway IDs. +-- +-- Default: Describes all your Internet gateways. dig1InternetGatewayIds :: Lens' DescribeInternetGateways [Text] dig1InternetGatewayIds = lens _dig1InternetGatewayIds (\s a -> s { _dig1InternetGatewayIds = a }) 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 @@ -20,9 +20,10 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Describes one or more of your key pairs. For more information about key --- pairs, see Key Pairs in the Amazon Elastic Compute Cloud User Guide. +-- | Describes one or more of your key pairs. -- +-- For more information about key pairs, see in the /Amazon ElasticCompute Cloud User Guide/. +-- -- module Network.AWS.EC2.DescribeKeyPairs ( @@ -74,12 +75,19 @@ dkp1DryRun :: Lens' DescribeKeyPairs (Maybe Bool) dkp1DryRun = lens _dkp1DryRun (\s a -> s { _dkp1DryRun = a }) --- | One or more filters. fingerprint - The fingerprint of the key pair. --- key-name - The name of the key pair. +-- | One or more filters. +-- +-- 'fingerprint' - The fingerprint of the key pair. +-- +-- 'key-name' - The name of the key pair. +-- +-- dkp1Filters :: Lens' DescribeKeyPairs [Filter] dkp1Filters = lens _dkp1Filters (\s a -> s { _dkp1Filters = a }) . _List --- | One or more key pair names. Default: Describes all your key pairs. +-- | One or more key pair names. +-- +-- Default: Describes all your key pairs. dkp1KeyNames :: Lens' DescribeKeyPairs [Text] dkp1KeyNames = lens _dkp1KeyNames (\s a -> s { _dkp1KeyNames = a }) . _List 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 @@ -20,10 +20,10 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Describes one or more of your network ACLs. For more information about --- network ACLs, see Network ACLs in the Amazon Virtual Private Cloud User --- Guide. +-- | Describes one or more of your network ACLs. -- +-- For more information about network ACLs, see in the /AmazonVirtual Private Cloud User Guide/. +-- -- module Network.AWS.EC2.DescribeNetworkAcls ( @@ -75,34 +75,62 @@ dna1DryRun :: Lens' DescribeNetworkAcls (Maybe Bool) dna1DryRun = lens _dna1DryRun (\s a -> s { _dna1DryRun = a }) --- | 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 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.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. 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. +-- | 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 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.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. +-- +-- '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. +-- +-- dna1Filters :: Lens' DescribeNetworkAcls [Filter] dna1Filters = lens _dna1Filters (\s a -> s { _dna1Filters = a }) . _List --- | One or more network ACL IDs. Default: Describes all your network ACLs. +-- | One or more network ACL IDs. +-- +-- Default: Describes all your network ACLs. dna1NetworkAclIds :: Lens' DescribeNetworkAcls [Text] dna1NetworkAclIds = lens _dna1NetworkAclIds (\s a -> s { _dna1NetworkAclIds = a }) 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 @@ -73,65 +73,114 @@ dni1DryRun :: Lens' DescribeNetworkInterfaces (Maybe Bool) dni1DryRun = lens _dni1DryRun (\s a -> s { _dni1DryRun = a }) --- | One or more filters. addresses.private-ip-address - The private IP --- addresses associated with the network interface. addresses.primary - --- Whether the private IP 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. 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 --- IP address. association.allocation-id - The allocation ID returned when --- you allocated the Elastic IP address for your network interface. --- association.ip-owner-id - The owner of the Elastic IP address associated --- with the network interface. association.public-ip - The address of the --- Elastic IP address bound to the network interface. --- association.public-dns-name - The public DNS name for the network --- interface. attachment.attachment-id - The ID of the interface attachment. --- 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.device-index - The device index to which the network interface --- is attached. attachment.status - The status of the attachment (attaching --- | attached | detaching | detached). 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. 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. 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 IP address or addresses --- of the network interface. private-dns-name - The private DNS name of the --- network interface. 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. 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. +-- | One or more filters. +-- +-- 'addresses.private-ip-address' - The private IP addresses associated with +-- the network interface. +-- +-- 'addresses.primary' - Whether the private IP 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. +-- +-- '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 IP address. +-- +-- 'association.allocation-id' - The allocation ID returned when you allocated +-- the Elastic IP address for your network interface. +-- +-- 'association.ip-owner-id' - The owner of the Elastic IP address associated +-- with the network interface. +-- +-- 'association.public-ip' - The address of the Elastic IP address bound to the +-- network interface. +-- +-- 'association.public-dns-name' - The public DNS name for the network +-- interface. +-- +-- 'attachment.attachment-id' - The ID of the interface attachment. +-- +-- '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.device-index' - The device index to which the network interface +-- is attached. +-- +-- 'attachment.status' - The status of the attachment ('attaching' | 'attached' | 'detaching' | 'detached'). +-- +-- '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. +-- +-- '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. +-- +-- '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 IP address or addresses of the network +-- interface. +-- +-- 'private-dns-name' - The private DNS name of the network interface. +-- +-- '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. +-- +-- '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. +-- +-- dni1Filters :: Lens' DescribeNetworkInterfaces [Filter] dni1Filters = lens _dni1Filters (\s a -> s { _dni1Filters = a }) . _List --- | One or more network interface IDs. Default: Describes all your network --- interfaces. +-- | One or more network interface IDs. +-- +-- Default: Describes all your network interfaces. dni1NetworkInterfaceIds :: Lens' DescribeNetworkInterfaces [Text] dni1NetworkInterfaceIds = lens _dni1NetworkInterfaceIds (\s a -> s { _dni1NetworkInterfaceIds = a }) 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 @@ -21,8 +21,7 @@ -- Portability : non-portable (GHC extensions) -- | Describes one or more of your placement groups. For more information about --- placement groups and cluster instances, see Cluster Instances in the Amazon --- Elastic Compute Cloud User Guide. +-- placement groups and cluster instances, see in the /AmazonElastic Compute Cloud User Guide/. -- -- module Network.AWS.EC2.DescribePlacementGroups @@ -75,14 +74,22 @@ dpg1DryRun :: Lens' DescribePlacementGroups (Maybe Bool) dpg1DryRun = lens _dpg1DryRun (\s a -> s { _dpg1DryRun = a }) --- | 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'). +-- +-- dpg1Filters :: Lens' DescribePlacementGroups [Filter] dpg1Filters = lens _dpg1Filters (\s a -> s { _dpg1Filters = a }) . _List --- | One or more placement group names. Default: Describes all your placement --- groups, or only those otherwise specified. +-- | One or more placement group names. +-- +-- Default: Describes all your placement groups, or only those otherwise +-- specified. dpg1GroupNames :: Lens' DescribePlacementGroups [Text] dpg1GroupNames = lens _dpg1GroupNames (\s a -> s { _dpg1GroupNames = a }) . _List 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 @@ -20,9 +20,10 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Describes one or more regions that are currently available to you. For a --- list of the regions supported by Amazon EC2, see Regions and Endpoints. +-- | Describes one or more regions that are currently available to you. -- +-- For a list of the regions supported by Amazon EC2, see . +-- -- module Network.AWS.EC2.DescribeRegions ( @@ -74,9 +75,13 @@ dr1DryRun :: Lens' DescribeRegions (Maybe Bool) dr1DryRun = lens _dr1DryRun (\s a -> s { _dr1DryRun = a }) --- | 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). +-- | 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'). +-- +-- dr1Filters :: Lens' DescribeRegions [Filter] dr1Filters = lens _dr1Filters (\s a -> s { _dr1Filters = a }) . _List 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 @@ -20,10 +20,10 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Describes one or more of the Reserved Instances that you purchased. For --- more information about Reserved Instances, see Reserved Instances in the --- Amazon Elastic Compute Cloud User Guide. +-- | Describes one or more of the Reserved Instances that you purchased. -- +-- For more information about Reserved Instances, see in the /Amazon Elastic Compute Cloud User Guide/. +-- -- module Network.AWS.EC2.DescribeReservedInstances ( @@ -80,40 +80,62 @@ driDryRun :: Lens' DescribeReservedInstances (Maybe Bool) driDryRun = lens _driDryRun (\s a -> s { _driDryRun = a }) --- | 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, --- 2014-08-07T11:54:42.000Z). fixed-price - The purchase price of the --- Reserved Instance (for example, 9800.0). instance-type - The instance --- type on which the Reserved Instance can be used. product-description - --- The product description of the Reserved Instance (Linux/UNIX | Linux/UNIX --- (Amazon VPC) | Windows | Windows (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 --- (pending-payment | active | payment-failed | retired). 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 +-- | 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, +-- 2014-08-07T11:54:42.000Z). +-- +-- 'fixed-price' - The purchase price of the Reserved Instance (for example, +-- 9800.0). +-- +-- 'instance-type' - The instance type on which the Reserved Instance can be +-- used. +-- +-- 'product-description' - The product description of the Reserved Instance ('Linux/UNIX' | 'Linux/UNIX (Amazon VPC)' | 'Windows' | 'Windows (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 ('pending-payment' | 'active' | 'payment-failed' | 'retired'). +-- +-- '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. usage-price - The usage --- price of the Reserved Instance, per hour (for example, 0.84). +-- 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 }) . _List --- | 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. +-- | The Reserved Instance offering type. If you are using tools that predate the +-- 2011-11-01 API version, you only have access to the 'Medium Utilization' +-- Reserved Instance offering type. driOfferingType :: Lens' DescribeReservedInstances (Maybe OfferingTypeValues) driOfferingType = lens _driOfferingType (\s a -> s { _driOfferingType = a }) --- | One or more Reserved Instance IDs. Default: Describes all your Reserved --- Instances, or only those otherwise specified. +-- | 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 }) 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 @@ -20,23 +20,28 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Describes your account's Reserved Instance listings in the Reserved --- Instance Marketplace. The Reserved Instance Marketplace matches sellers who --- want to resell Reserved Instance capacity that they no longer need with --- buyers who want to purchase additional capacity. Reserved Instances bought --- and sold through the Reserved Instance Marketplace work like any other --- Reserved Instances. As a seller, you choose to list some or all of your --- Reserved Instances, and you specify the upfront price to receive for them. --- Your Reserved Instances are then listed in the Reserved Instance --- Marketplace and are available for purchase. As a buyer, you specify the --- configuration of the Reserved Instance to purchase, and the Marketplace --- matches what you're searching for with what's available. The Marketplace --- first sells the lowest priced Reserved Instances to you, and continues to --- sell available Reserved Instance listings to you until your demand is met. --- You are charged based on the total price of all of the listings that you --- purchase. For more information, see Reserved Instance Marketplace in the --- Amazon Elastic Compute Cloud User Guide. +-- | Describes your account's Reserved Instance listings in the Reserved Instance +-- Marketplace. -- +-- The Reserved Instance Marketplace matches sellers who want to resell +-- Reserved Instance capacity that they no longer need with buyers who want to +-- purchase additional capacity. Reserved Instances bought and sold through the +-- Reserved Instance Marketplace work like any other Reserved Instances. +-- +-- As a seller, you choose to list some or all of your Reserved Instances, and +-- you specify the upfront price to receive for them. Your Reserved Instances +-- are then listed in the Reserved Instance Marketplace and are available for +-- purchase. +-- +-- As a buyer, you specify the configuration of the Reserved Instance to +-- purchase, and the Marketplace matches what you're searching for with what's +-- available. The Marketplace first sells the lowest priced Reserved Instances +-- to you, and continues to sell available Reserved Instance listings to you +-- until your demand is met. You are charged based on the total price of all of +-- the listings that you purchase. +-- +-- For more information, see in the /AmazonElastic Compute Cloud User Guide/. +-- -- module Network.AWS.EC2.DescribeReservedInstancesListings ( @@ -85,11 +90,17 @@ , _drilFilters = mempty } --- | 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. +-- | 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 }) . _List 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 @@ -20,13 +20,14 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Describes the modifications made to your Reserved Instances. If no --- parameter is specified, information about all your Reserved Instances --- modification requests is returned. If a modification ID is specified, only --- information about the specific modification is returned. For more --- information, see Modifying Reserved Instances in the Amazon Elastic Compute --- Cloud User Guide. +-- | Describes the modifications made to your Reserved Instances. If no parameter +-- is specified, information about all your Reserved Instances modification +-- requests is returned. If a modification ID is specified, only information +-- about the specific modification is returned. -- +-- For more information, see in the Amazon Elastic +-- Compute Cloud User Guide. +-- -- module Network.AWS.EC2.DescribeReservedInstancesModifications ( @@ -76,26 +77,41 @@ , _drimFilters = mempty } --- | 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 +-- | 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 +-- +-- '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. +-- +-- '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 }) . _List 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 @@ -24,9 +24,10 @@ -- Reserved Instances, you purchase the right to launch instances for a period -- of time. During that time period, you do not receive insufficient capacity -- errors, and you pay a lower usage rate than the rate charged for On-Demand --- instances for the actual time used. For more information, see Reserved --- Instance Marketplace in the Amazon Elastic Compute Cloud User Guide. +-- instances for the actual time used. -- +-- For more information, see in the /AmazonElastic Compute Cloud User Guide/. +-- -- module Network.AWS.EC2.DescribeReservedInstancesOfferings ( @@ -139,19 +140,33 @@ drioDryRun :: Lens' DescribeReservedInstancesOfferings (Maybe Bool) drioDryRun = lens _drioDryRun (\s a -> s { _drioDryRun = 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 on which the Reserved --- Instance can be used. 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 AWS and Reserved Instance --- Marketplace are listed. product-description - The description of the --- Reserved Instance (Linux/UNIX | Linux/UNIX (Amazon VPC) | Windows | --- Windows (Amazon VPC)). reserved-instances-offering-id - The Reserved --- Instances offering ID. usage-price - The usage price of the Reserved --- Instance, per hour (for example, 0.84). +-- | 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 on which the Reserved Instance can be +-- used. +-- +-- '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 AWS and Reserved Instance Marketplace are listed. +-- +-- 'product-description' - The description of the Reserved Instance ('Linux/UNIX' +-- | 'Linux/UNIX (Amazon VPC)' | 'Windows' | 'Windows (Amazon VPC)'). +-- +-- 'reserved-instances-offering-id' - The Reserved Instances offering ID. +-- +-- '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 }) . _List @@ -160,37 +175,41 @@ drioIncludeMarketplace = lens _drioIncludeMarketplace (\s a -> s { _drioIncludeMarketplace = a }) --- | The tenancy of the Reserved Instance offering. A Reserved Instance with --- dedicated tenancy runs on single-tenant hardware and can only be launched --- within a VPC. Default: default. +-- | The tenancy of the Reserved Instance offering. A Reserved Instance with 'dedicated' tenancy runs on single-tenant hardware and can only be launched within a VPC. +-- +-- Default: 'default' drioInstanceTenancy :: Lens' DescribeReservedInstancesOfferings (Maybe Tenancy) drioInstanceTenancy = lens _drioInstanceTenancy (\s a -> s { _drioInstanceTenancy = a }) -- | The instance type on which the Reserved Instance can be used. For more --- information, see Instance Types in the Amazon Elastic Compute Cloud User --- Guide. +-- information, see in the /Amazon Elastic Compute Cloud User Guide/ +-- . drioInstanceType :: Lens' DescribeReservedInstancesOfferings (Maybe InstanceType) drioInstanceType = lens _drioInstanceType (\s a -> s { _drioInstanceType = a }) -- | The maximum duration (in seconds) to filter when searching for offerings. --- Default: 94608000 (3 years). +-- +-- Default: 94608000 (3 years) drioMaxDuration :: Lens' DescribeReservedInstancesOfferings (Maybe Integer) drioMaxDuration = lens _drioMaxDuration (\s a -> s { _drioMaxDuration = a }) -- | The maximum number of instances to filter when searching for offerings. --- Default: 20. +-- +-- Default: 20 drioMaxInstanceCount :: Lens' DescribeReservedInstancesOfferings (Maybe Int) drioMaxInstanceCount = lens _drioMaxInstanceCount (\s a -> s { _drioMaxInstanceCount = a }) --- | The maximum number of offerings to return. The maximum is 100. Default: --- 100. +-- | The maximum number of offerings to return. The maximum is 100. +-- +-- Default: 100 drioMaxResults :: Lens' DescribeReservedInstancesOfferings (Maybe Int) drioMaxResults = lens _drioMaxResults (\s a -> s { _drioMaxResults = a }) -- | The minimum duration (in seconds) to filter when searching for offerings. --- Default: 2592000 (1 month). +-- +-- Default: 2592000 (1 month) drioMinDuration :: Lens' DescribeReservedInstancesOfferings (Maybe Integer) drioMinDuration = lens _drioMinDuration (\s a -> s { _drioMinDuration = a }) @@ -198,14 +217,14 @@ drioNextToken :: Lens' DescribeReservedInstancesOfferings (Maybe Text) drioNextToken = lens _drioNextToken (\s a -> s { _drioNextToken = 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. +-- | 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 }) --- | The Reserved Instance description. Instances that include (Amazon VPC) in --- the description are for use with Amazon VPC. +-- | The Reserved Instance 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 }) 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 @@ -20,10 +20,10 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Describes one or more of your route tables. For more information about --- route tables, see Route Tables in the Amazon Virtual Private Cloud User --- Guide. +-- | Describes one or more of your route tables. -- +-- For more information about route tables, see in the /AmazonVirtual Private Cloud User Guide/. +-- -- module Network.AWS.EC2.DescribeRouteTables ( @@ -75,39 +75,63 @@ drt2DryRun :: Lens' DescribeRouteTables (Maybe Bool) drt2DryRun = lens _drt2DryRun (\s a -> s { _drt2DryRun = a }) --- | 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. --- route-table-id - The ID of the route table. route.destination-cidr-block --- - The CIDR range specified in a route in the 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.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. 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 +-- | 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. +-- +-- 'route-table-id' - The ID of the route table. +-- +-- 'route.destination-cidr-block' - The CIDR range specified in a route in the +-- 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.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. +-- +-- '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. +-- 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. +-- +-- drt2Filters :: Lens' DescribeRouteTables [Filter] drt2Filters = lens _drt2Filters (\s a -> s { _drt2Filters = a }) . _List --- | One or more route table IDs. Default: Describes all your route tables. +-- | One or more route table IDs. +-- +-- Default: Describes all your route tables. drt2RouteTableIds :: Lens' DescribeRouteTables [Text] drt2RouteTableIds = lens _drt2RouteTableIds (\s a -> s { _drt2RouteTableIds = a }) 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 @@ -20,12 +20,11 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Describes one or more of your security groups. A security group is for use --- with instances either in the EC2-Classic platform or in a specific VPC. For --- more information, see Amazon EC2 Security Groups in the Amazon Elastic --- Compute Cloud User Guide and Security Groups for Your VPC in the Amazon --- Virtual Private Cloud User Guide. +-- | Describes one or more of your security groups. -- +-- A security group is for use with instances either in the EC2-Classic +-- platform or in a specific VPC. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ and in the /Amazon Virtual Private Cloud User Guide/. +-- -- module Network.AWS.EC2.DescribeSecurityGroups ( @@ -82,32 +81,55 @@ dsg1DryRun :: Lens' DescribeSecurityGroups (Maybe Bool) dsg1DryRun = lens _dsg1DryRun (\s a -> s { _dsg1DryRun = a }) --- | One or more filters. description - The description of the security group. --- group-id - The ID of the security group. group-name - The name of the --- security group. ip-permission.cidr - A CIDR range that has been granted --- permission. ip-permission.from-port - 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 granted permission. --- ip-permission.group-name - The name of a security group that has been --- granted permission. ip-permission.protocol - The IP protocol for the --- permission (tcp | udp | icmp or a protocol number). ip-permission.to-port --- - 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 granted --- permission. 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. +-- | One or more filters. +-- +-- 'description' - The description of the security group. +-- +-- 'group-id' - The ID of the security group. +-- +-- 'group-name' - The name of the security group. +-- +-- 'ip-permission.cidr' - A CIDR range that has been granted permission. +-- +-- 'ip-permission.from-port' - 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 granted +-- permission. +-- +-- 'ip-permission.group-name' - The name of a security group that has been +-- granted permission. +-- +-- 'ip-permission.protocol' - The IP protocol for the permission ('tcp' | 'udp' | 'icmp' or a protocol number). +-- +-- 'ip-permission.to-port' - 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 granted +-- permission. +-- +-- '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. +-- +-- dsg1Filters :: Lens' DescribeSecurityGroups [Filter] dsg1Filters = lens _dsg1Filters (\s a -> s { _dsg1Filters = a }) . _List --- | One or more security group IDs. Required for nondefault VPCs. Default: --- Describes all your security groups. +-- | One or more security group IDs. Required for nondefault VPCs. +-- +-- Default: Describes all your security groups. dsg1GroupIds :: Lens' DescribeSecurityGroups [Text] dsg1GroupIds = lens _dsg1GroupIds (\s a -> s { _dsg1GroupIds = a }) . _List --- | [EC2-Classic, default VPC] One or more security group names. You can --- specify either the security group name or the security group ID. Default: --- Describes all your security groups. +-- | [EC2-Classic, default VPC] One or more security group names. You can specify +-- either the security group name or the security group ID. +-- +-- Default: Describes all your security groups. dsg1GroupNames :: Lens' DescribeSecurityGroups [Text] dsg1GroupNames = lens _dsg1GroupNames (\s a -> s { _dsg1GroupNames = a }) . _List 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 @@ -20,10 +20,11 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Describes the specified attribute of the specified snapshot. You can --- specify only one attribute at a time. For more information about Amazon EBS --- snapshots, see Amazon EBS Snapshots in the Amazon Elastic Compute Cloud --- User Guide. +-- | Describes the specified attribute of the specified snapshot. You can specify +-- only one attribute at a time. +-- +-- For more information about Amazon EBS snapshots, see in +-- the /Amazon Elastic Compute Cloud User Guide/. -- -- module Network.AWS.EC2.DescribeSnapshotAttribute 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 @@ -20,34 +20,38 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Describes one or more of the Amazon EBS snapshots available to you. --- Available snapshots include public snapshots available for any AWS account --- to launch, private snapshots that you own, and private snapshots owned by --- another AWS account but for which you've been given explicit create volume --- permissions. The create volume permissions fall into the following --- categories: public: The owner of the snapshot granted create volume --- permissions for the snapshot to the all group. All AWS accounts have create --- volume permissions for these snapshots. explicit: The owner of the snapshot --- granted create volume permissions to a specific AWS account. implicit: An --- AWS account has implicit create volume permissions for all snapshots it --- owns. The list of snapshots returned can be modified by specifying snapshot --- IDs, snapshot owners, or AWS accounts with create volume permissions. If no --- options are specified, Amazon EC2 returns all snapshots for which you have --- create volume permissions. If you specify one or more snapshot IDs, only --- snapshots that have the specified IDs are returned. If you specify an --- invalid snapshot ID, an error is returned. If you specify a snapshot ID for --- which you do not have access, it is not included in the returned results. +-- | Describes one or more of the Amazon EBS snapshots available to you. Available +-- snapshots include public snapshots available for any AWS account to launch, +-- private snapshots that you own, and private snapshots owned by another AWS +-- account but for which you've been given explicit create volume permissions. +-- +-- The create volume permissions fall into the following categories: +-- +-- /public/: The owner of the snapshot granted create volume permissions for +-- the snapshot to the 'all' group. All AWS accounts have create volume +-- permissions for these snapshots. /explicit/: The owner of the snapshot granted +-- create volume permissions to a specific AWS account. /implicit/: An AWS +-- account has implicit create volume permissions for all snapshots it owns. The list of snapshots returned can be modified by specifying snapshot IDs, snapshot owners, or AWS accounts with create volume permissions. If no options are specified, Amazon EC2 returns all snapshots for which you have create volume permissions. +-- +-- +-- If you specify one or more snapshot IDs, only snapshots that have the +-- specified IDs are returned. If you specify an invalid snapshot ID, an error +-- is returned. If you specify a snapshot ID for which you do not have access, +-- it is not included in the returned results. +-- -- If you specify one or more snapshot owners, only snapshots from the --- specified owners and for which you have access are returned. The results --- can include the AWS account IDs of the specified owners, amazon for --- snapshots owned by Amazon, or self for snapshots that you own. If you --- specify a list of restorable users, only snapshots with create snapshot --- permissions for those users are returned. You can specify AWS account IDs --- (if you own the snapshots), self for snapshots for which you own or have --- explicit permissions, or all for public snapshots. For more information --- about Amazon EBS snapshots, see Amazon EBS Snapshots in the Amazon Elastic --- Compute Cloud User Guide. +-- specified owners and for which you have access are returned. The results can +-- include the AWS account IDs of the specified owners, 'amazon' for snapshots +-- owned by Amazon, or 'self' for snapshots that you own. -- +-- If you specify a list of restorable users, only snapshots with create +-- snapshot permissions for those users are returned. You can specify AWS +-- account IDs (if you own the snapshots), 'self' for snapshots for which you own +-- or have explicit permissions, or 'all' for public snapshots. +-- +-- For more information about Amazon EBS snapshots, see in +-- the /Amazon Elastic Compute Cloud User Guide/. +-- -- module Network.AWS.EC2.DescribeSnapshots ( @@ -109,28 +113,47 @@ ds1DryRun :: Lens' DescribeSnapshots (Maybe Bool) ds1DryRun = lens _ds1DryRun (\s a -> s { _ds1DryRun = a }) --- | One or more filters. description - A description of the snapshot. --- owner-alias - The AWS account alias (for example, amazon) that owns the --- snapshot. 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. 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. +-- | One or more filters. +-- +-- 'description' - A description of the snapshot. +-- +-- 'owner-alias' - The AWS account alias (for example, 'amazon') that owns the +-- snapshot. +-- +-- '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. +-- +-- '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. +-- +-- ds1Filters :: Lens' DescribeSnapshots [Filter] ds1Filters = lens _ds1Filters (\s a -> s { _ds1Filters = a }) . _List --- | Returns the snapshots owned by the specified owner. Multiple owners can --- be specified. +-- | Returns the snapshots owned by the specified owner. Multiple owners can be +-- specified. ds1OwnerIds :: Lens' DescribeSnapshots [Text] ds1OwnerIds = lens _ds1OwnerIds (\s a -> s { _ds1OwnerIds = a }) . _List @@ -140,8 +163,9 @@ lens _ds1RestorableByUserIds (\s a -> s { _ds1RestorableByUserIds = a }) . _List --- | One or more snapshot IDs. Default: Describes snapshots for which you have --- launch permissions. +-- | One or more snapshot IDs. +-- +-- Default: Describes snapshots for which you have launch permissions. ds1SnapshotIds :: Lens' DescribeSnapshots [Text] ds1SnapshotIds = lens _ds1SnapshotIds (\s a -> s { _ds1SnapshotIds = a }) . _List 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 @@ -20,8 +20,7 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Describes the datafeed for Spot Instances. For more information, see Spot --- Instances in the Amazon Elastic Compute Cloud User Guide. +-- | Describes the datafeed for Spot Instances. For more information, see in the /Amazon Elastic Compute Cloud User Guide/. -- -- module Network.AWS.EC2.DescribeSpotDatafeedSubscription 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 @@ -25,13 +25,14 @@ -- maximum 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 about Spot --- Instances, see Spot Instances in the Amazon Elastic Compute Cloud User --- Guide. You can use DescribeSpotInstanceRequests to find a running Spot --- Instance by examining the response. If the status of the Spot Instance is --- fulfilled, the 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. +-- Instances, see in the /Amazon Elastic Compute Cloud User Guide/. -- +-- You can use 'DescribeSpotInstanceRequests' to find a running Spot Instance by +-- examining the response. If the status of the Spot Instance is 'fulfilled', the +-- 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'. +-- -- module Network.AWS.EC2.DescribeSpotInstanceRequests ( @@ -83,62 +84,114 @@ dsirDryRun :: Lens' DescribeSpotInstanceRequests (Maybe Bool) dsirDryRun = lens _dsirDryRun (\s a -> s { _dsirDryRun = a }) --- | 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 +-- | 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 -- Amazon EBS volume is deleted on instance termination. --- launch.block-device-mapping.device-name - The device name for the Amazon --- EBS volume (for example, /dev/sdh). --- launch.block-device-mapping.snapshot-id - The ID of the snapshot used for --- the Amazon EBS volume. launch.block-device-mapping.volume-size - The size --- of the Amazon EBS volume, in GiB. launch.block-device-mapping.volume-type --- - The type of the Amazon EBS volume (gp2 | standard | io1). --- 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, m1.small). launch.kernel-id - The kernel ID. launch.key-name - --- The name of the key pair the instance launched with. --- launch.monitoring-enabled - Whether monitoring is enabled for the Spot --- Instance. launch.ramdisk-id - The RAM disk ID. --- network-interface.network-interface-id - The ID of the network interface. --- network-interface.device-index - The index of the device for the network --- interface attachment on the instance. network-interface.subnet-id - The --- ID of the subnet for the instance. network-interface.description - A --- description of the network interface. --- network-interface.private-ip-address - The primary private IP address of --- the network interface. network-interface.delete-on-termination - --- Indicates whether the network interface is deleted when the instance is --- terminated. network-interface.group-id - The ID of the security group --- associated with the network interface. network-interface.group-name - The --- name of the security group associated with the network interface. --- network-interface.addresses.primary - Indicates whether the IP address is --- the primary private IP address. 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 information, see --- Tracking Spot Requests with Bid Status Codes 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. 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). --- launched-availability-zone - The Availability Zone in which the bid is --- launched. valid-from - The start date of the request. valid-until - The --- end date of the request. +-- +-- 'launch.block-device-mapping.device-name' - The device name for the Amazon +-- EBS volume (for example, '/dev/sdh'). +-- +-- 'launch.block-device-mapping.snapshot-id' - The ID of the snapshot used for +-- the Amazon EBS volume. +-- +-- 'launch.block-device-mapping.volume-size' - The size of the Amazon EBS +-- volume, in GiB. +-- +-- 'launch.block-device-mapping.volume-type' - The type of the Amazon EBS +-- volume ('gp2' | 'standard' | 'io1'). +-- +-- '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, 'm1.small'). +-- +-- 'launch.kernel-id' - The kernel ID. +-- +-- 'launch.key-name' - The name of the key pair the instance launched with. +-- +-- 'launch.monitoring-enabled' - Whether monitoring is enabled for the Spot +-- Instance. +-- +-- 'launch.ramdisk-id' - The RAM disk ID. +-- +-- 'network-interface.network-interface-id' - The ID of the network interface. +-- +-- 'network-interface.device-index' - The index of the device for the network +-- interface attachment on the instance. +-- +-- 'network-interface.subnet-id' - The ID of the subnet for the instance. +-- +-- 'network-interface.description' - A description of the network interface. +-- +-- 'network-interface.private-ip-address' - The primary private IP address of +-- the network interface. +-- +-- 'network-interface.delete-on-termination' - Indicates whether the network +-- interface is deleted when the instance is terminated. +-- +-- 'network-interface.group-id' - The ID of the security group associated with +-- the network interface. +-- +-- 'network-interface.group-name' - The name of the security group associated +-- with the network interface. +-- +-- 'network-interface.addresses.primary' - Indicates whether the IP address is +-- the primary private IP address. +-- +-- '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 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. +-- +-- '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'). +-- +-- 'launched-availability-zone' - The Availability Zone in which the bid is +-- launched. +-- +-- '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 }) . _List 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 @@ -21,24 +21,26 @@ -- Portability : non-portable (GHC extensions) -- | Describes the Spot Price history. Spot Instances are instances that Amazon --- EC2 starts on your behalf when the maximum 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 about Spot Instances, see Spot Instances in the Amazon --- Elastic Compute Cloud User Guide. When you specify an Availability Zone, --- this operation describes the price history for the specified Availability --- Zone with the most recent set of prices listed first. If you don't specify --- an Availability Zone, you get the prices across all Availability Zones, --- starting with the most recent set. However, if you're using an API version --- earlier than 2011-05-15, you get the lowest price across the region for the --- specified time period. The prices returned are listed in chronological --- order, from the oldest to the most recent. When you specify the start and --- end time options, this operation returns two pieces of data: 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. +-- EC2 starts on your behalf when the maximum 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 about Spot Instances, see in the /Amazon ElasticCompute Cloud User Guide/. -- +-- When you specify an Availability Zone, this operation describes the price +-- history for the specified Availability Zone with the most recent set of +-- prices listed first. If you don't specify an Availability Zone, you get the +-- prices across all Availability Zones, starting with the most recent set. +-- However, if you're using an API version earlier than 2011-05-15, you get the +-- lowest price across the region for the specified time period. The prices +-- returned are listed in chronological order, from the oldest to the most +-- recent. +-- +-- When you specify the start and end time options, this operation returns two +-- pieces of data: 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. +-- -- module Network.AWS.EC2.DescribeSpotPriceHistory ( @@ -74,13 +76,13 @@ data DescribeSpotPriceHistory = DescribeSpotPriceHistory { _dsphAvailabilityZone :: Maybe Text , _dsphDryRun :: Maybe Bool - , _dsphEndTime :: Maybe RFC822 + , _dsphEndTime :: Maybe ISO8601 , _dsphFilters :: List "Filter" Filter , _dsphInstanceTypes :: List "InstanceType" InstanceType , _dsphMaxResults :: Maybe Int , _dsphNextToken :: Maybe Text , _dsphProductDescriptions :: List "ProductDescription" Text - , _dsphStartTime :: Maybe RFC822 + , _dsphStartTime :: Maybe ISO8601 } deriving (Eq, Show) -- | 'DescribeSpotPriceHistory' constructor. @@ -130,16 +132,23 @@ dsphEndTime :: Lens' DescribeSpotPriceHistory (Maybe UTCTime) dsphEndTime = lens _dsphEndTime (\s a -> s { _dsphEndTime = 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, m1.small). 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 (for example, 2010-08-16T05:06:11.000Z). 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, 'm1.small'). +-- +-- '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 (for example, +-- 2010-08-16T05:06:11.000Z). 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 }) . _List 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 @@ -20,9 +20,10 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Describes one or more of your subnets. For more information about subnets, --- see Your VPC and Subnets in the Amazon Virtual Private Cloud User Guide. +-- | Describes one or more of your subnets. -- +-- For more information about subnets, see in the /AmazonVirtual Private Cloud User Guide/. +-- -- module Network.AWS.EC2.DescribeSubnets ( @@ -74,30 +75,46 @@ dsDryRun :: Lens' DescribeSubnets (Maybe Bool) dsDryRun = lens _dsDryRun (\s a -> s { _dsDryRun = a }) --- | 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 IP addresses in the subnet --- that are available. cidrBlock - The 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. 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. 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 +-- | 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 IP addresses in the subnet that +-- are available. +-- +-- 'cidrBlock' - The 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. +-- +-- '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. +-- +-- '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. +-- 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 }) . _List --- | One or more subnet IDs. Default: Describes all your subnets. +-- | One or more subnet IDs. +-- +-- Default: Describes all your subnets. dsSubnetIds :: Lens' DescribeSubnets [Text] dsSubnetIds = lens _dsSubnetIds (\s a -> s { _dsSubnetIds = a }) . _List 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 @@ -20,10 +20,10 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Describes one or more of the tags for your EC2 resources. For more --- information about tags, see Tagging Your Resources in the Amazon Elastic --- Compute Cloud User Guide. +-- | Describes one or more of the tags for your EC2 resources. -- +-- For more information about tags, see in the /AmazonElastic Compute Cloud User Guide/. +-- -- module Network.AWS.EC2.DescribeTags ( @@ -81,24 +81,30 @@ dtDryRun :: Lens' DescribeTags (Maybe Bool) dtDryRun = lens _dtDryRun (\s a -> s { _dtDryRun = a }) --- | 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' | '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 :: Lens' DescribeTags [Filter] dtFilters = lens _dtFilters (\s a -> s { _dtFilters = a }) . _List --- | The maximum number of items to return for this call. The call also --- returns a token that you can specify in a subsequent call to get the next --- set of results. If the value is greater than 1000, we return only 1000 --- items. +-- | The maximum number of items to return for this call. The call also returns a +-- token that you can specify in a subsequent call to get the next set of +-- results. If the value is greater than 1000, we return only 1000 items. dtMaxResults :: Lens' DescribeTags (Maybe Int) dtMaxResults = lens _dtMaxResults (\s a -> s { _dtMaxResults = a }) --- | The token for the next set of items to return. (You received this token --- from a prior call.). +-- | The token for the next set of items to return. (You received this token from +-- a prior call.) dtNextToken :: Lens' DescribeTags (Maybe Text) dtNextToken = lens _dtNextToken (\s a -> s { _dtNextToken = a }) 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 @@ -21,10 +21,10 @@ -- Portability : non-portable (GHC extensions) -- | Describes the specified attribute of the specified volume. You can specify --- only one attribute at a time. For more information about Amazon EBS --- volumes, see Amazon EBS Volumes in the Amazon Elastic Compute Cloud User --- Guide. +-- only one attribute at a time. -- +-- For more information about Amazon EBS volumes, see in the /Amazon Elastic Compute Cloud User Guide/. +-- -- module Network.AWS.EC2.DescribeVolumeAttribute ( @@ -110,7 +110,7 @@ , _dvarProductCodes = mempty } --- | The state of autoEnableIO attribute. +-- | The state of 'autoEnableIO' attribute. dvarAutoEnableIO :: Lens' DescribeVolumeAttributeResponse (Maybe AttributeBooleanValue) dvarAutoEnableIO = lens _dvarAutoEnableIO (\s a -> s { _dvarAutoEnableIO = a }) 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 @@ -23,28 +23,33 @@ -- | Describes the status of the specified volumes. Volume status provides the -- result of the checks performed on your volumes to determine events that can -- impair the performance of your volumes. The performance of a volume can be --- affected if an issue occurs on the volume's underlying host. If the --- volume's underlying host experiences a power outage or system issue, after --- the system is restored, there could be data inconsistencies on the volume. --- Volume events notify you if this occurs. Volume actions notify you if any --- action needs to be taken in response to the event. The DescribeVolumeStatus --- operation provides the following information about the specified volumes: --- Status: Reflects the current status of the volume. The possible values are --- ok, impaired , warning, or insufficient-data. If all checks pass, the --- overall status of the volume is ok. If the check fails, the overall status --- is impaired. If the status is insufficient-data, then the checks may still --- be taking place on your volume at the time. We recommend that you retry the --- request. For more information on volume status, see Monitoring the Status --- of Your Volumes. Events: Reflect the cause of a volume status and may --- require you to take action. For example, if your volume returns an impaired --- status, then the volume event might be potential-data-inconsistency. This --- means that your volume has been affected by an issue with the underlying --- host, has all I/O operations disabled, and may have inconsistent data. --- Actions: Reflect the actions you may have to take in response to an event. --- For example, if the status of the volume is impaired and the volume event --- shows potential-data-inconsistency, then the action shows enable-volume-io. +-- affected if an issue occurs on the volume's underlying host. If the volume's +-- underlying host experiences a power outage or system issue, after the system +-- is restored, there could be data inconsistencies on the volume. Volume events +-- notify you if this occurs. Volume actions notify you if any action needs to +-- be taken in response to the event. +-- +-- The 'DescribeVolumeStatus' operation provides the following information about +-- the specified volumes: +-- +-- /Status/: Reflects the current status of the volume. The possible values are 'ok' +-- , 'impaired' , 'warning', or 'insufficient-data'. If all checks pass, the overall +-- status of the volume is 'ok'. If the check fails, the overall status is 'impaired' +-- . If the status is 'insufficient-data', then the checks may still be taking +-- place on your volume at the time. We recommend that you retry the request. +-- For more information on volume status, see . +-- +-- /Events/: Reflect the cause of a volume status and may require you to take +-- action. For example, if your volume returns an 'impaired' status, then the +-- volume event might be 'potential-data-inconsistency'. This means that your +-- volume has been affected by an issue with the underlying host, has all I/O +-- operations disabled, and may have inconsistent data. +-- +-- /Actions/: Reflect the actions you may have to take in response to an event. +-- For example, if the status of the volume is 'impaired' and the volume event +-- shows 'potential-data-inconsistency', then the action shows 'enable-volume-io'. -- This means that you may want to enable the I/O operations for the volume by --- calling the EnableVolumeIO action and then check the volume for data +-- calling the 'EnableVolumeIO' action and then check the volume for data -- consistency. -- -- @@ -109,21 +114,36 @@ dvsDryRun :: Lens' DescribeVolumeStatus (Maybe Bool) dvsDryRun = lens _dvsDryRun (\s a -> s { _dvsDryRun = a }) --- | 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). +-- | 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'). +-- +-- dvsFilters :: Lens' DescribeVolumeStatus [Filter] dvsFilters = lens _dvsFilters (\s a -> s { _dvsFilters = a }) . _List @@ -136,7 +156,9 @@ dvsNextToken :: Lens' DescribeVolumeStatus (Maybe Text) dvsNextToken = lens _dvsNextToken (\s a -> s { _dvsNextToken = a }) --- | One or more volume IDs. Default: Describes all your volumes. +-- | One or more volume IDs. +-- +-- Default: Describes all your volumes. dvsVolumeIds :: Lens' DescribeVolumeStatus [Text] dvsVolumeIds = lens _dvsVolumeIds (\s a -> s { _dvsVolumeIds = a }) . _List 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 @@ -20,15 +20,16 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Describes the specified Amazon EBS volumes. If you are describing a long --- list of volumes, you can paginate the output to make the list more --- manageable. The MaxResults parameter sets the maximum number of results --- returned in a single page. If the list of results exceeds your MaxResults --- value, then that number of results is returned along with a NextToken value --- that can be passed to a subsequent DescribeVolumes request to retrieve the --- remaining results. For more information about Amazon EBS volumes, see --- Amazon EBS Volumes in the Amazon Elastic Compute Cloud User Guide. +-- | Describes the specified Amazon EBS volumes. -- +-- If you are describing a long list of volumes, you can paginate the output to +-- make the list more manageable. The 'MaxResults' parameter sets the maximum +-- number of results returned in a single page. If the list of results exceeds +-- your 'MaxResults' value, then that number of results is returned along with a 'NextToken' value that can be passed to a subsequent 'DescribeVolumes' request to retrieve +-- the remaining results. +-- +-- For more information about Amazon EBS volumes, see in the /Amazon Elastic Compute Cloud User Guide/. +-- -- module Network.AWS.EC2.DescribeVolumes ( @@ -91,48 +92,72 @@ dv2DryRun :: Lens' DescribeVolumes (Maybe Bool) dv2DryRun = lens _dv2DryRun (\s a -> s { _dv2DryRun = a }) --- | 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 that is exposed to the instance (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. 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) volumes, io1 for --- Provisioned IOPS (SSD) volumes, 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 that is exposed to the instance (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. +-- +-- '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) volumes, 'io1' for Provisioned IOPS (SSD) volumes, or 'standard' +-- for Magnetic volumes. +-- +-- dv2Filters :: Lens' DescribeVolumes [Filter] dv2Filters = lens _dv2Filters (\s a -> s { _dv2Filters = a }) . _List --- | 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 1000; if MaxResults is --- given a value larger than 1000, only 1000 results are returned. If this --- parameter is not used, then DescribeVolumes returns all results. +-- | 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 +-- 1000; if 'MaxResults' is given a value larger than 1000, only 1000 results are +-- returned. If this parameter is not used, then 'DescribeVolumes' returns all +-- results. dv2MaxResults :: Lens' DescribeVolumes (Maybe Int) dv2MaxResults = lens _dv2MaxResults (\s a -> s { _dv2MaxResults = a }) --- | 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. +-- | 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. dv2NextToken :: Lens' DescribeVolumes (Maybe Text) dv2NextToken = lens _dv2NextToken (\s a -> s { _dv2NextToken = a }) @@ -159,10 +184,10 @@ , _dvrNextToken = Nothing } --- | 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. +-- | 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. dvrNextToken :: Lens' DescribeVolumesResponse (Maybe Text) dvrNextToken = lens _dvrNextToken (\s a -> s { _dvrNextToken = a }) 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 @@ -20,8 +20,8 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Describes the specified attribute of the specified VPC. You can specify --- only one attribute at a time. +-- | Describes the specified attribute of the specified VPC. You can specify only +-- one attribute at a time. -- -- module Network.AWS.EC2.DescribeVpcAttribute @@ -109,15 +109,14 @@ } -- | 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. +-- this attribute is 'true', instances in the VPC get DNS hostnames; otherwise, +-- they do not. dvarEnableDnsHostnames :: Lens' DescribeVpcAttributeResponse (Maybe AttributeBooleanValue) dvarEnableDnsHostnames = lens _dvarEnableDnsHostnames (\s a -> s { _dvarEnableDnsHostnames = 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. +-- | 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. dvarEnableDnsSupport :: Lens' DescribeVpcAttributeResponse (Maybe AttributeBooleanValue) dvarEnableDnsSupport = lens _dvarEnableDnsSupport (\s a -> s { _dvarEnableDnsSupport = a }) 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 @@ -73,32 +73,53 @@ dvpc1DryRun :: Lens' DescribeVpcPeeringConnections (Maybe Bool) dvpc1DryRun = lens _dvpc1DryRun (\s a -> s { _dvpc1DryRun = a }) --- | One or more filters. accepter-vpc-info.cidr-block - The 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 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. 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 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 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. +-- +-- '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. +-- +-- dvpc1Filters :: Lens' DescribeVpcPeeringConnections [Filter] dvpc1Filters = lens _dvpc1Filters (\s a -> s { _dvpc1Filters = a }) . _List --- | One or more VPC peering connection IDs. Default: Describes all your VPC --- peering connections. +-- | One or more VPC peering connection IDs. +-- +-- Default: Describes all your VPC peering connections. dvpc1VpcPeeringConnectionIds :: Lens' DescribeVpcPeeringConnections [Text] dvpc1VpcPeeringConnectionIds = lens _dvpc1VpcPeeringConnectionIds 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 @@ -73,25 +73,40 @@ dv1DryRun :: Lens' DescribeVpcs (Maybe Bool) dv1DryRun = lens _dv1DryRun (\s a -> s { _dv1DryRun = a }) --- | One or more filters. cidr - The 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). dhcp-options-id - The ID of a set of DHCP --- options. 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. 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 +-- | One or more filters. +-- +-- 'cidr' - The 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'). +-- +-- 'dhcp-options-id' - The ID of a set of DHCP options. +-- +-- '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. +-- +-- '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. +-- 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. +-- +-- dv1Filters :: Lens' DescribeVpcs [Filter] dv1Filters = lens _dv1Filters (\s a -> s { _dv1Filters = a }) . _List --- | One or more VPC IDs. Default: Describes all your VPCs. +-- | One or more VPC IDs. +-- +-- Default: Describes all your VPCs. dv1VpcIds :: Lens' DescribeVpcs [Text] dv1VpcIds = lens _dv1VpcIds (\s a -> s { _dv1VpcIds = a }) . _List 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 @@ -20,10 +20,10 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Describes one or more of your VPN connections. For more information about --- VPN connections, see Adding a Hardware Virtual Private Gateway to Your VPC --- in the Amazon Virtual Private Cloud User Guide. +-- | Describes one or more of your VPN connections. -- +-- For more information about VPN connections, see in the /Amazon Virtual Private Cloud User Guide/. +-- -- module Network.AWS.EC2.DescribeVpnConnections ( @@ -75,31 +75,53 @@ dvc1DryRun :: Lens' DescribeVpnConnections (Maybe Bool) dvc1DryRun = lens _dvc1DryRun (\s a -> s { _dvc1DryRun = a }) --- | 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 +-- | 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. 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. +-- (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. +-- +-- '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. +-- +-- dvc1Filters :: Lens' DescribeVpnConnections [Filter] dvc1Filters = lens _dvc1Filters (\s a -> s { _dvc1Filters = a }) . _List --- | One or more VPN connection IDs. Default: Describes your VPN connections. +-- | One or more VPN connection IDs. +-- +-- Default: Describes your VPN connections. dvc1VpnConnectionIds :: Lens' DescribeVpnConnections [Text] dvc1VpnConnectionIds = lens _dvc1VpnConnectionIds (\s a -> s { _dvc1VpnConnectionIds = a }) 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 @@ -20,10 +20,10 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Describes one or more of your virtual private gateways. For more --- information about virtual private gateways, see Adding an IPsec Hardware --- VPN to Your VPC in the Amazon Virtual Private Cloud User Guide. +-- | Describes one or more of your virtual private gateways. -- +-- For more information about virtual private gateways, see in the /Amazon Virtual Private Cloud User Guide/. +-- -- module Network.AWS.EC2.DescribeVpnGateways ( @@ -75,28 +75,42 @@ dvg2DryRun :: Lens' DescribeVpnGateways (Maybe Bool) dvg2DryRun = lens _dvg2DryRun (\s a -> s { _dvg2DryRun = a }) --- | One or more filters. 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. 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. 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. +-- | One or more filters. +-- +-- '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. +-- +-- '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. +-- +-- '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. +-- +-- dvg2Filters :: Lens' DescribeVpnGateways [Filter] dvg2Filters = lens _dvg2Filters (\s a -> s { _dvg2Filters = a }) . _List --- | One or more virtual private gateway IDs. Default: Describes all your --- virtual private gateways. +-- | One or more virtual private gateway IDs. +-- +-- Default: Describes all your virtual private gateways. dvg2VpnGatewayIds :: Lens' DescribeVpnGateways [Text] dvg2VpnGatewayIds = lens _dvg2VpnGatewayIds (\s a -> s { _dvg2VpnGatewayIds = a }) 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 @@ -20,17 +20,21 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Detaches an Amazon EBS volume from an instance. Make sure to unmount any --- file systems on the device within your operating system before detaching --- the volume. Failure to do so results in the volume being stuck in a busy --- state while detaching. If an Amazon EBS volume is the root device of an --- instance, it can't be detached while the instance is running. To detach the --- root volume, stop the instance first. If the root volume is detached from --- an instance with an AWS Marketplace product code, then the AWS Marketplace --- product codes from that volume are no longer associated with the instance. --- For more information, see Detaching an Amazon EBS Volume in the Amazon --- Elastic Compute Cloud User Guide. +-- | Detaches an Amazon EBS volume from an instance. Make sure to unmount any file +-- systems on the device within your operating system before detaching the +-- volume. Failure to do so results in the volume being stuck in a busy state +-- while detaching. -- +-- If an Amazon EBS volume is the root device of an instance, it can't be +-- detached while the instance is running. To detach the root volume, stop the +-- instance first. +-- +-- If the root volume is detached from an instance with an AWS Marketplace +-- product code, then the AWS Marketplace product codes from that volume are no +-- longer associated with the instance. +-- +-- For more information, see in the /AmazonElastic Compute Cloud User Guide/. +-- -- module Network.AWS.EC2.DetachVolume ( @@ -102,13 +106,13 @@ dvDryRun :: Lens' DetachVolume (Maybe Bool) dvDryRun = lens _dvDryRun (\s a -> s { _dvDryRun = 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. +-- | 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 }) @@ -121,7 +125,7 @@ dvVolumeId = lens _dvVolumeId (\s a -> s { _dvVolumeId = a }) data DetachVolumeResponse = DetachVolumeResponse - { _dvrAttachTime :: Maybe RFC822 + { _dvrAttachTime :: Maybe ISO8601 , _dvrDeleteOnTermination :: Maybe Bool , _dvrDevice :: Maybe Text , _dvrInstanceId :: Maybe Text @@ -159,8 +163,7 @@ dvrAttachTime :: Lens' DetachVolumeResponse (Maybe UTCTime) dvrAttachTime = lens _dvrAttachTime (\s a -> s { _dvrAttachTime = a }) . mapping _Time --- | Indicates whether the Amazon EBS volume is deleted on instance --- termination. +-- | Indicates whether the Amazon EBS volume is deleted on instance termination. dvrDeleteOnTermination :: Lens' DetachVolumeResponse (Maybe Bool) dvrDeleteOnTermination = lens _dvrDeleteOnTermination (\s a -> s { _dvrDeleteOnTermination = a }) 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 @@ -20,13 +20,14 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Detaches a virtual private gateway from a VPC. You do this if you're --- planning to turn off the VPC and not use it anymore. You can confirm a --- virtual private gateway has been completely detached from a VPC by --- describing the virtual private gateway (any attachments to the virtual --- private gateway are also described). You must wait for the attachment's --- state to switch to detached before you can delete the VPC or attach a --- different VPC to the virtual private gateway. +-- | Detaches a virtual private gateway from a VPC. You do this if you're planning +-- to turn off the VPC and not use it anymore. You can confirm a virtual private +-- gateway has been completely detached from a VPC by describing the virtual +-- private gateway (any attachments to the virtual private gateway are also +-- described). +-- +-- You must wait for the attachment's state to switch to 'detached' before you +-- can delete the VPC or attach a different VPC to the virtual private gateway. -- -- module Network.AWS.EC2.DetachVpnGateway 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 @@ -21,11 +21,13 @@ -- Portability : non-portable (GHC extensions) -- | Disassociates an Elastic IP address from the instance or network interface --- it's associated with. An Elastic IP address is for use in either the --- EC2-Classic platform or in a VPC. For more information, see Elastic IP --- Addresses in the Amazon Elastic Compute Cloud User Guide. This is an --- idempotent operation. If you perform the operation more than once, Amazon --- EC2 doesn't return an error. +-- it's associated with. +-- +-- An Elastic IP address is for use in either the EC2-Classic platform or in a +-- VPC. For more information, see in the /Amazon ElasticCompute Cloud User Guide/. +-- +-- This is an idempotent operation. If you perform the operation more than +-- once, Amazon EC2 doesn't return an error. -- -- module Network.AWS.EC2.DisassociateAddress 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 @@ -20,10 +20,11 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Disassociates a subnet from a route table. After you perform this action, --- the subnet no longer uses the routes in the route table. Instead, it uses --- the routes in the VPC's main route table. For more information about route --- tables, see Route Tables in the Amazon Virtual Private Cloud User Guide. +-- | Disassociates a subnet from a route table. +-- +-- After you perform this action, the subnet no longer uses the routes in the +-- route table. Instead, it uses the routes in the VPC's main route table. For +-- more information about route tables, see in the /Amazon VirtualPrivate Cloud User Guide/. -- -- module Network.AWS.EC2.DisassociateRouteTable 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 @@ -20,8 +20,8 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Enables a virtual private gateway (VGW) to propagate routes to the --- specified route table of a VPC. +-- | Enables a virtual private gateway (VGW) to propagate routes to the specified +-- route table of a VPC. -- -- module Network.AWS.EC2.EnableVgwRoutePropagation 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 @@ -20,8 +20,8 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Enables I/O operations for a volume that had I/O operations disabled --- because the data on the volume was potentially inconsistent. +-- | Enables I/O operations for a volume that had I/O operations disabled because +-- the data on the volume was potentially inconsistent. -- -- module Network.AWS.EC2.EnableVolumeIO 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 @@ -20,20 +20,25 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Gets the console output for the specified instance. 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. For Linux/Unix instances, the instance console output --- displays the exact console output that would normally be displayed on a --- physical monitor attached to a machine. This output is buffered because the --- instance produces it and then posts it to a store where the instance's --- owner can retrieve it. For Windows instances, the instance console output --- displays the last three system event log errors. +-- | Gets the console output for the specified instance. -- +-- 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. +-- +-- For Linux/Unix instances, the instance console output displays the exact +-- console output that would normally be displayed on a physical monitor +-- attached to a machine. This output is buffered because the instance produces +-- it and then posts it to a store where the instance's owner can retrieve it. +-- +-- For Windows instances, the instance console output displays the last three +-- system event log errors. +-- -- module Network.AWS.EC2.GetConsoleOutput ( @@ -90,7 +95,7 @@ data GetConsoleOutputResponse = GetConsoleOutputResponse { _gcorInstanceId :: Maybe Text , _gcorOutput :: Maybe Text - , _gcorTimestamp :: Maybe RFC822 + , _gcorTimestamp :: Maybe ISO8601 } deriving (Eq, Ord, Show) -- | 'GetConsoleOutputResponse' constructor. 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 @@ -21,16 +21,19 @@ -- Portability : non-portable (GHC extensions) -- | Retrieves the encrypted administrator password for an instance running --- Windows. The Windows password is generated at boot if the EC2Config service --- plugin, Ec2SetPassword, is enabled. This usually only happens the first --- time an AMI is launched, and then Ec2SetPassword is automatically disabled. --- The password is not generated for rebundled AMIs unless Ec2SetPassword is --- enabled before bundling. The password is encrypted using the key pair that --- you specified when you launched the instance. You must provide the --- corresponding key pair file. Password generation and encryption takes a few --- moments. We recommend that you wait up to 15 minutes after launching an --- instance before trying to retrieve the generated password. +-- Windows. -- +-- The Windows password is generated at boot if the 'EC2Config' service plugin, 'Ec2SetPassword', is enabled. This usually only happens the first time an AMI is launched, +-- and then 'Ec2SetPassword' is automatically disabled. The password is not +-- generated for rebundled AMIs unless 'Ec2SetPassword' is enabled before bundling. +-- +-- The password is encrypted using the key pair that you specified when you +-- launched the instance. You must provide the corresponding key pair file. +-- +-- Password generation and encryption takes a few moments. We recommend that +-- you wait up to 15 minutes after launching an instance before trying to +-- retrieve the generated password. +-- -- module Network.AWS.EC2.GetPasswordData ( @@ -87,7 +90,7 @@ data GetPasswordDataResponse = GetPasswordDataResponse { _gpdrInstanceId :: Maybe Text , _gpdrPasswordData :: Maybe Text - , _gpdrTimestamp :: Maybe RFC822 + , _gpdrTimestamp :: Maybe ISO8601 } deriving (Eq, Ord, Show) -- | 'GetPasswordDataResponse' constructor. 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 @@ -20,11 +20,11 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Creates an import instance task using metadata from the specified disk --- image. After importing the image, you then upload it using the --- ec2-import-volume command in the EC2 command line tools. For more --- information, see Using the Command Line Tools to Import Your Virtual --- Machine to Amazon EC2 in the Amazon Elastic Compute Cloud User Guide. +-- | Creates an import instance task using metadata from the specified disk image. +-- After importing the image, you then upload it using the ec2-import-volume +-- command in the EC2 command line tools. For more information, see Using the +-- Command Line Tools to Import Your Virtual Machine to Amazon EC2 in the Amazon +-- Elastic Compute Cloud User Guide. -- -- module Network.AWS.EC2.ImportInstance @@ -95,7 +95,7 @@ iiDryRun :: Lens' ImportInstance (Maybe Bool) iiDryRun = lens _iiDryRun (\s a -> s { _iiDryRun = a }) --- | + iiLaunchSpecification :: Lens' ImportInstance (Maybe ImportInstanceLaunchSpecification) iiLaunchSpecification = lens _iiLaunchSpecification (\s a -> s { _iiLaunchSpecification = a }) 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 @@ -21,13 +21,13 @@ -- Portability : non-portable (GHC extensions) -- | Imports the public key from an RSA key pair that you created with a --- third-party tool. Compare this with CreateKeyPair, in which AWS creates the --- key pair and gives the keys to you (AWS keeps a copy of the public key). --- With ImportKeyPair, you create the key pair and give AWS just the public --- key. The private key is never transferred between you and AWS. For more --- information about key pairs, see Key Pairs in the Amazon Elastic Compute --- Cloud User Guide. +-- third-party tool. Compare this with 'CreateKeyPair', in which AWS creates the +-- key pair and gives the keys to you (AWS keeps a copy of the public key). With +-- ImportKeyPair, you create the key pair and give AWS just the public key. The +-- private key is never transferred between you and AWS. -- +-- For more information about key pairs, see in the /Amazon ElasticCompute Cloud User Guide/. +-- -- module Network.AWS.EC2.ImportKeyPair ( @@ -86,8 +86,8 @@ ikpKeyName :: Lens' ImportKeyPair Text ikpKeyName = lens _ikpKeyName (\s a -> s { _ikpKeyName = a }) --- | The public key. You must base64 encode the public key material before --- sending it to AWS. +-- | The public key. You must base64 encode the public key material before sending +-- it to AWS. ikpPublicKeyMaterial :: Lens' ImportKeyPair Base64 ikpPublicKeyMaterial = lens _ikpPublicKeyMaterial (\s a -> s { _ikpPublicKeyMaterial = a }) 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 @@ -23,8 +23,7 @@ -- | Creates an import volume task using metadata from the specified disk image. -- After importing the image, you then upload it using the ec2-import-volume -- command in the Amazon EC2 command-line interface (CLI) tools. For more --- information, see Using the Command Line Tools to Import Your Virtual --- Machine to Amazon EC2 in the Amazon Elastic Compute Cloud User Guide. +-- information, see in the /Amazon Elastic Compute Cloud User Guide/. -- -- module Network.AWS.EC2.ImportVolume 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 @@ -120,7 +120,7 @@ miaImageId :: Lens' ModifyImageAttribute Text miaImageId = lens _miaImageId (\s a -> s { _miaImageId = a }) --- | + miaLaunchPermission :: Lens' ModifyImageAttribute (Maybe LaunchPermissionModifications) miaLaunchPermission = lens _miaLaunchPermission (\s a -> s { _miaLaunchPermission = a }) @@ -129,24 +129,21 @@ miaOperationType :: Lens' ModifyImageAttribute (Maybe Text) miaOperationType = lens _miaOperationType (\s a -> s { _miaOperationType = a }) --- | One or more product codes. After you add a product code to an AMI, it --- can't be removed. This is only valid when modifying the productCodes --- attribute. +-- | One or more product codes. After you add a product code to an AMI, it can't +-- be removed. This is only valid when modifying the 'productCodes' attribute. miaProductCodes :: Lens' ModifyImageAttribute [Text] miaProductCodes = lens _miaProductCodes (\s a -> s { _miaProductCodes = a }) . _List --- | One or more user groups. This is only valid when modifying the --- launchPermission attribute. +-- | One or more user groups. This is only valid when modifying the 'launchPermission' attribute. miaUserGroups :: Lens' ModifyImageAttribute [Text] miaUserGroups = lens _miaUserGroups (\s a -> s { _miaUserGroups = a }) . _List --- | One or more AWS account IDs. This is only valid when modifying the --- launchPermission attribute. +-- | One or more AWS account IDs. This is only valid when modifying the 'launchPermission' attribute. miaUserIds :: Lens' ModifyImageAttribute [Text] miaUserIds = lens _miaUserIds (\s a -> s { _miaUserIds = a }) . _List --- | The value of the attribute being modified. This is only valid when --- modifying the description attribute. +-- | The value of the attribute being modified. This is only valid when modifying +-- the 'description' attribute. miaValue :: Lens' ModifyImageAttribute (Maybe Text) miaValue = lens _miaValue (\s a -> s { _miaValue = a }) 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 @@ -21,10 +21,11 @@ -- Portability : non-portable (GHC extensions) -- | Modifies the specified attribute of the specified instance. You can specify --- only one attribute at a time. To modify some attributes, the instance must --- be stopped. For more information, see Modifying Attributes of a Stopped --- Instance in the Amazon Elastic Compute Cloud User Guide. +-- only one attribute at a time. -- +-- To modify some attributes, the instance must be stopped. For more +-- information, see in the /AmazonElastic Compute Cloud User Guide/. +-- -- module Network.AWS.EC2.ModifyInstanceAttribute ( @@ -136,21 +137,20 @@ mia1Attribute :: Lens' ModifyInstanceAttribute (Maybe InstanceAttributeName) mia1Attribute = lens _mia1Attribute (\s a -> s { _mia1Attribute = 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 Updating the Block Device Mapping --- when Launching an Instance in the Amazon Elastic Compute Cloud User --- Guide. +-- | 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 ComputeCloud User Guide/. mia1BlockDeviceMappings :: Lens' ModifyInstanceAttribute [InstanceBlockDeviceMappingSpecification] mia1BlockDeviceMappings = lens _mia1BlockDeviceMappings (\s a -> s { _mia1BlockDeviceMappings = a }) . _List --- | If the value is true, you can't terminate the instance using the Amazon --- EC2 console, CLI, or API; otherwise, you can. +-- | If the value is 'true', you can't terminate the instance using the Amazon EC2 +-- console, CLI, or API; otherwise, you can. mia1DisableApiTermination :: Lens' ModifyInstanceAttribute (Maybe AttributeBooleanValue) mia1DisableApiTermination = lens _mia1DisableApiTermination @@ -159,19 +159,20 @@ mia1DryRun :: Lens' ModifyInstanceAttribute (Maybe Bool) mia1DryRun = lens _mia1DryRun (\s a -> s { _mia1DryRun = a }) --- | Specifies 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. +-- | Specifies 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. mia1EbsOptimized :: Lens' ModifyInstanceAttribute (Maybe AttributeBooleanValue) mia1EbsOptimized = lens _mia1EbsOptimized (\s a -> s { _mia1EbsOptimized = a }) --- | [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. For example, if you want the instance to be in sg-1a1a1a1a --- and sg-9b9b9b9b, specify GroupId.1=sg-1a1a1a1a and GroupId.2=sg-9b9b9b9b. +-- | [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. +-- +-- For example, if you want the instance to be in sg-1a1a1a1a and sg-9b9b9b9b, +-- specify 'GroupId.1=sg-1a1a1a1a' and 'GroupId.2=sg-9b9b9b9b'. mia1Groups :: Lens' ModifyInstanceAttribute [Text] mia1Groups = lens _mia1Groups (\s a -> s { _mia1Groups = a }) . _List @@ -179,43 +180,40 @@ mia1InstanceId :: Lens' ModifyInstanceAttribute Text mia1InstanceId = lens _mia1InstanceId (\s a -> s { _mia1InstanceId = a }) --- | Specifies whether an instance stops or terminates when you initiate --- shutdown from the instance (using the operating system command for system --- shutdown). +-- | Specifies whether an instance stops or terminates when you initiate shutdown +-- from the instance (using the operating system command for system shutdown). mia1InstanceInitiatedShutdownBehavior :: Lens' ModifyInstanceAttribute (Maybe AttributeValue) mia1InstanceInitiatedShutdownBehavior = lens _mia1InstanceInitiatedShutdownBehavior (\s a -> s { _mia1InstanceInitiatedShutdownBehavior = a }) --- | Changes the instance type to the specified value. For more information, --- see Instance Types. If the instance type is not valid, the error returned --- is InvalidInstanceAttributeValue. +-- | Changes the instance type to the specified value. For more information, see . If the instance type is not valid, the error returned is 'InvalidInstanceAttributeValue'. mia1InstanceType :: Lens' ModifyInstanceAttribute (Maybe AttributeValue) mia1InstanceType = lens _mia1InstanceType (\s a -> s { _mia1InstanceType = 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 PV-GRUB. +-- | 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 . mia1Kernel :: Lens' ModifyInstanceAttribute (Maybe AttributeValue) mia1Kernel = lens _mia1Kernel (\s a -> s { _mia1Kernel = 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 PV-GRUB. +-- | 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 . mia1Ramdisk :: Lens' ModifyInstanceAttribute (Maybe AttributeValue) mia1Ramdisk = lens _mia1Ramdisk (\s a -> s { _mia1Ramdisk = a }) --- | Specifies whether source/destination checking is enabled. A value of true --- means that checking is enabled, and false means checking is disabled. --- This value must be false for a NAT instance to perform NAT. +-- | Specifies whether source/destination checking is enabled. A value of 'true' +-- means that checking is enabled, and 'false' means checking is disabled. This +-- value must be 'false' for a NAT instance to perform NAT. mia1SourceDestCheck :: Lens' ModifyInstanceAttribute (Maybe AttributeBooleanValue) mia1SourceDestCheck = lens _mia1SourceDestCheck (\s a -> s { _mia1SourceDestCheck = a }) --- | Set to simple to enable enhanced networking for the instance. There is no --- way to disable enhanced networking at this time. This option is supported --- only for HVM instances. Specifying this option with a PV instance can --- make it unreachable. +-- | Set to 'simple' to enable enhanced networking for the instance. +-- +-- There is no way to disable enhanced networking at this time. +-- +-- This option is supported only for HVM instances. Specifying this option with +-- a PV instance can make it unreachable. mia1SriovNetSupport :: Lens' ModifyInstanceAttribute (Maybe AttributeValue) mia1SriovNetSupport = lens _mia1SriovNetSupport (\s a -> s { _mia1SriovNetSupport = a }) @@ -224,9 +222,7 @@ mia1UserData :: Lens' ModifyInstanceAttribute (Maybe BlobAttributeValue) mia1UserData = lens _mia1UserData (\s a -> s { _mia1UserData = a }) --- | A new value for the attribute. Use only with the kernel, ramdisk, --- userData, disableApiTermination, or intanceInitiateShutdownBehavior --- attribute. +-- | A new value for the attribute. Use only with the 'kernel', 'ramdisk', 'userData', 'disableApiTermination', or 'intanceInitiateShutdownBehavior' attribute. mia1Value :: Lens' ModifyInstanceAttribute (Maybe Text) mia1Value = lens _mia1Value (\s a -> s { _mia1Value = a }) 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 @@ -20,8 +20,8 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Modifies the specified network interface attribute. You can specify only --- one attribute at a time. +-- | Modifies the specified network interface attribute. You can specify only one +-- attribute at a time. -- -- module Network.AWS.EC2.ModifyNetworkInterfaceAttribute @@ -86,8 +86,7 @@ } -- | Information about the interface attachment. If modifying the 'delete on --- termination' attribute, you must specify the ID of the interface --- attachment. +-- termination' attribute, you must specify the ID of the interface attachment. mniaAttachment :: Lens' ModifyNetworkInterfaceAttribute (Maybe NetworkInterfaceAttachmentChanges) mniaAttachment = lens _mniaAttachment (\s a -> s { _mniaAttachment = a }) @@ -98,10 +97,10 @@ mniaDryRun :: Lens' ModifyNetworkInterfaceAttribute (Maybe Bool) mniaDryRun = lens _mniaDryRun (\s a -> s { _mniaDryRun = a }) --- | 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. +-- | 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 }) . _List @@ -110,11 +109,9 @@ mniaNetworkInterfaceId = lens _mniaNetworkInterfaceId (\s a -> s { _mniaNetworkInterfaceId = a }) --- | Indicates whether source/destination checking is enabled. A value of true --- means checking is enabled, and false means checking is disabled. This --- value must be false for a NAT instance to perform NAT. For more --- information, see NAT Instances in the Amazon Virtual Private Cloud User --- Guide. +-- | 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 }) 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 @@ -23,8 +23,10 @@ -- | Modifies the Availability Zone, instance count, instance type, or network -- platform (EC2-Classic or EC2-VPC) of your Reserved Instances. The Reserved -- Instances to be modified must be identical, except for Availability Zone, --- network platform, and instance type. For more information, see Modifying --- Reserved Instances in the Amazon Elastic Compute Cloud User Guide. +-- network platform, and instance type. +-- +-- For more information, see in the Amazon Elastic +-- Compute Cloud User Guide. -- -- module Network.AWS.EC2.ModifyReservedInstances 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 @@ -22,10 +22,11 @@ -- | Adds or removes permission settings for the specified snapshot. You may add -- or remove specified AWS account IDs from a snapshot's list of create volume --- permissions, but you cannot do both in a single API call. If you need to --- both add and remove account IDs for a snapshot, you must use multiple API --- calls. For more information on modifying snapshot permissions, see Sharing --- Snapshots in the Amazon Elastic Compute Cloud User Guide. +-- permissions, but you cannot do both in a single API call. If you need to both +-- add and remove account IDs for a snapshot, you must use multiple API calls. +-- +-- For more information on modifying snapshot permissions, see +-- in the /Amazon Elastic Compute Cloud User Guide/. -- -- module Network.AWS.EC2.ModifySnapshotAttribute 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 @@ -20,13 +20,17 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Modifies a volume attribute. By default, all I/O operations for the volume --- are suspended when the data on the volume is determined to be potentially --- inconsistent, to prevent undetectable, latent data corruption. The I/O --- access to the volume can be resumed by first enabling I/O access and then --- checking the data consistency on your volume. You can change the default --- behavior to resume I/O operations. We recommend that you change this only --- for boot volumes or for volumes that are stateless or disposable. +-- | Modifies a volume attribute. +-- +-- By default, all I/O operations for the volume are suspended when the data on +-- the volume is determined to be potentially inconsistent, to prevent +-- undetectable, latent data corruption. The I/O access to the volume can be +-- resumed by first enabling I/O access and then checking the data consistency +-- on your volume. +-- +-- You can change the default behavior to resume I/O operations. We recommend +-- that you change this only for boot volumes or for volumes that are stateless +-- or disposable. -- -- module Network.AWS.EC2.ModifyVolumeAttribute 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 @@ -71,17 +71,17 @@ -- | 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 can only enable DNS hostnames if you also enable DNS support. mvaEnableDnsHostnames :: Lens' ModifyVpcAttribute (Maybe AttributeBooleanValue) 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. +-- | 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. mvaEnableDnsSupport :: Lens' ModifyVpcAttribute (Maybe AttributeBooleanValue) mvaEnableDnsSupport = lens _mvaEnableDnsSupport (\s a -> s { _mvaEnableDnsSupport = a }) 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 @@ -21,8 +21,7 @@ -- Portability : non-portable (GHC extensions) -- | Enables monitoring for a running instance. For more information about --- monitoring instances, see Monitoring Your Instances and Volumes in the --- Amazon Elastic Compute Cloud User Guide. +-- monitoring instances, see in the /AmazonElastic Compute Cloud User Guide/. -- -- module Network.AWS.EC2.MonitorInstances 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 @@ -21,16 +21,17 @@ -- Portability : non-portable (GHC extensions) -- | Purchases a Reserved Instance for use with your account. With Amazon EC2 --- Reserved Instances, you obtain a capacity reservation for a certain --- instance configuration over a specified period of time. You pay a lower --- usage rate than with On-Demand instances for the time that you actually use --- the capacity reservation. Use DescribeReservedInstancesOfferings to get a --- list of Reserved Instance offerings that match your specifications. After --- you've purchased a Reserved Instance, you can check for your new Reserved --- Instance with DescribeReservedInstances. For more information, see Reserved --- Instances and Reserved Instance Marketplace in the Amazon Elastic Compute --- Cloud User Guide. +-- Reserved Instances, you obtain a capacity reservation for a certain instance +-- configuration over a specified period of time. You pay a lower usage rate +-- than with On-Demand instances for the time that you actually use the capacity +-- reservation. -- +-- Use 'DescribeReservedInstancesOfferings' to get a list of Reserved Instance +-- offerings that match your specifications. After you've purchased a Reserved +-- Instance, you can check for your new Reserved Instance with 'DescribeReservedInstances'. +-- +-- For more information, see and in the /Amazon Elastic Compute Cloud User Guide/. +-- -- module Network.AWS.EC2.PurchaseReservedInstancesOffering ( @@ -95,8 +96,8 @@ lens _prioInstanceCount (\s a -> s { _prioInstanceCount = a }) -- | Specified for Reserved Instance Marketplace offerings to limit the total --- order and ensure that the Reserved Instances are not purchased at --- unexpected prices. +-- 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 }) 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 @@ -23,10 +23,12 @@ -- | Requests a reboot of one or more instances. This operation is asynchronous; -- it only queues a request to reboot the specified instances. The operation -- succeeds if the instances are valid and belong to you. Requests to reboot --- terminated instances are ignored. If a Linux/Unix instance does not cleanly --- shut down within four minutes, Amazon EC2 performs a hard reboot. For more --- information about troubleshooting, see Getting Console Output and Rebooting --- Instances in the Amazon Elastic Compute Cloud User Guide. +-- terminated instances are ignored. +-- +-- If a Linux/Unix instance does not cleanly shut down within four minutes, +-- Amazon EC2 performs a hard reboot. +-- +-- For more information about troubleshooting, see in the /Amazon Elastic Compute Cloud User Guide/. -- -- module Network.AWS.EC2.RebootInstances 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 @@ -22,15 +22,16 @@ -- | Registers an AMI. When you're creating an AMI, this is the final step you -- must complete before you can launch an instance from the AMI. For more --- information about creating AMIs, see Creating Your Own AMIs in the Amazon --- Elastic Compute Cloud User Guide. You can also use RegisterImage to create --- an Amazon EBS-backed AMI from a snapshot of a root device volume. For more --- information, see Launching an Instance from a Snapshot in the Amazon --- Elastic Compute Cloud User Guide. If needed, you can deregister an AMI at --- any time. Any modifications you make to an AMI backed by an instance store --- volume invalidates its registration. If you make changes to an image, --- deregister the previous image and register the new image. +-- information about creating AMIs, see in the /AmazonElastic Compute Cloud User Guide/. -- +-- You can also use 'RegisterImage' to create an Amazon EBS-backed AMI from a +-- snapshot of a root device volume. For more information, see in the /Amazon Elastic Compute Cloud User Guide/. +-- +-- If needed, you can deregister an AMI at any time. Any modifications you make +-- to an AMI backed by an instance store volume invalidates its registration. If +-- you make changes to an image, deregister the previous image and register the +-- new image. +-- -- module Network.AWS.EC2.RegisterImage ( @@ -120,9 +121,10 @@ , _ri1SriovNetSupport = Nothing } --- | The architecture of the AMI. Default: For Amazon EBS-backed AMIs, i386. --- For instance store-backed AMIs, the architecture specified in the --- manifest file. +-- | The architecture of the AMI. +-- +-- Default: For Amazon EBS-backed AMIs, 'i386'. For instance store-backed AMIs, +-- the architecture specified in the manifest file. ri1Architecture :: Lens' RegisterImage (Maybe ArchitectureValues) ri1Architecture = lens _ri1Architecture (\s a -> s { _ri1Architecture = a }) @@ -147,9 +149,11 @@ ri1KernelId :: Lens' RegisterImage (Maybe Text) ri1KernelId = lens _ri1KernelId (\s a -> s { _ri1KernelId = a }) --- | A name for your AMI. Constraints: 3-128 alphanumeric characters, --- parentheses (()), square brackets ([]), spaces ( ), periods (.), slashes --- (/), dashes (-), single quotes ('), at-signs (@), or underscores(_). +-- | A name for your AMI. +-- +-- Constraints: 3-128 alphanumeric characters, parentheses (()), square +-- brackets ([]), spaces ( ), periods (.), slashes (/), dashes (-), single +-- quotes ('), at-signs (@), or underscores(_) ri1Name :: Lens' RegisterImage Text ri1Name = lens _ri1Name (\s a -> s { _ri1Name = a }) @@ -157,21 +161,25 @@ ri1RamdiskId :: Lens' RegisterImage (Maybe Text) ri1RamdiskId = lens _ri1RamdiskId (\s a -> s { _ri1RamdiskId = a }) --- | The name of the root device (for example, /dev/sda1, or xvda). +-- | The name of the root device (for example, '/dev/sda1', or 'xvda'). ri1RootDeviceName :: Lens' RegisterImage (Maybe Text) ri1RootDeviceName = lens _ri1RootDeviceName (\s a -> s { _ri1RootDeviceName = a }) --- | Set to simple to enable enhanced networking for the AMI and any instances --- that you launch from the AMI. There is no way to disable enhanced --- networking 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. +-- | Set to 'simple' to enable enhanced networking for the AMI and any instances +-- that you launch from the AMI. +-- +-- There is no way to disable enhanced networking 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. ri1SriovNetSupport :: Lens' RegisterImage (Maybe Text) ri1SriovNetSupport = lens _ri1SriovNetSupport (\s a -> s { _ri1SriovNetSupport = a }) --- | The type of virtualization. Default: paravirtual. +-- | The type of virtualization. +-- +-- Default: 'paravirtual' ri1VirtualizationType :: Lens' RegisterImage (Maybe Text) ri1VirtualizationType = lens _ri1VirtualizationType (\s a -> s { _ri1VirtualizationType = a }) 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 @@ -20,11 +20,11 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Rejects a VPC peering connection request. The VPC peering connection must --- be in the pending-acceptance state. Use the DescribeVpcPeeringConnections +-- | Rejects a VPC peering connection request. The VPC peering connection must be +-- in the 'pending-acceptance' state. Use the 'DescribeVpcPeeringConnections' -- request to view your outstanding VPC peering connection requests. To delete -- an active VPC peering connection, or to delete a VPC peering connection --- request that you initiated, use DeleteVpcPeeringConnection. +-- request that you initiated, use 'DeleteVpcPeeringConnection'. -- -- module Network.AWS.EC2.RejectVpcPeeringConnection @@ -94,7 +94,7 @@ { _rvpcrReturn = Nothing } --- | Returns true if the request succeeds; otherwise, it returns an error. +-- | Returns 'true' if the request succeeds; otherwise, it returns an error. rvpcrReturn :: Lens' RejectVpcPeeringConnectionResponse (Maybe Bool) rvpcrReturn = lens _rvpcrReturn (\s a -> s { _rvpcrReturn = a }) 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 @@ -20,18 +20,20 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Releases the specified Elastic IP address. After releasing an Elastic IP --- address, it is released to the IP address pool and might be unavailable to --- you. Be sure to update your DNS records and any servers or devices that --- communicate with the address. If you attempt to release an Elastic IP --- address that you already released, you'll get an AuthFailure error if the --- address is already allocated to another AWS account. [EC2-Classic, default --- VPC] Releasing an Elastic IP address automatically disassociates it from --- any instance that it's associated with. To disassociate an Elastic IP --- address without releasing it, use DisassociateAddress. [Nondefault VPC] You --- must use DisassociateAddress to disassociate the Elastic IP address before --- you try to release it. Otherwise, Amazon EC2 returns an error --- (InvalidIPAddress.InUse). +-- | Releases the specified Elastic IP address. +-- +-- After releasing an Elastic IP address, it is released to the IP address pool +-- and might be unavailable to you. Be sure to update your DNS records and any +-- servers or devices that communicate with the address. If you attempt to +-- release an Elastic IP address that you already released, you'll get an 'AuthFailure' error if the address is already allocated to another AWS account. +-- +-- [EC2-Classic, default VPC] Releasing an Elastic IP address automatically +-- disassociates it from any instance that it's associated with. To disassociate +-- an Elastic IP address without releasing it, use 'DisassociateAddress'. +-- +-- [Nondefault VPC] You must use 'DisassociateAddress' to disassociate the +-- Elastic IP address before you try to release it. Otherwise, Amazon EC2 +-- returns an error ('InvalidIPAddress.InUse'). -- -- module Network.AWS.EC2.ReleaseAddress 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 @@ -21,9 +21,8 @@ -- Portability : non-portable (GHC extensions) -- | 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 Network ACLs in the --- Amazon Virtual Private Cloud User Guide. +-- create a subnet, it's automatically associated with the default network ACL. +-- For more information about network ACLs, see in the /AmazonVirtual Private Cloud User Guide/. -- -- module Network.AWS.EC2.ReplaceNetworkAclAssociation @@ -75,8 +74,8 @@ , _rnaaDryRun = Nothing } --- | The ID of the current association between the original network ACL and --- the subnet. +-- | 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 }) 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 @@ -20,9 +20,8 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Replaces an entry (rule) in a network ACL. For more information about --- network ACLs, see Network ACLs in the Amazon Virtual Private Cloud User --- Guide. +-- | Replaces an entry (rule) in a network ACL. For more information about network +-- ACLs, see in the /Amazon Virtual Private Cloud User Guide/. -- -- module Network.AWS.EC2.ReplaceNetworkAclEntry @@ -113,13 +112,14 @@ rnaeDryRun :: Lens' ReplaceNetworkAclEntry (Maybe Bool) 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. +-- | 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 }) --- | ICMP protocol: The ICMP type and code. Required if specifying 1 (ICMP) --- for the protocol. +-- | ICMP protocol: The ICMP type and code. Required if specifying 1 (ICMP) for +-- the protocol. rnaeIcmpTypeCode :: Lens' ReplaceNetworkAclEntry (Maybe IcmpTypeCode) rnaeIcmpTypeCode = lens _rnaeIcmpTypeCode (\s a -> s { _rnaeIcmpTypeCode = a }) @@ -132,7 +132,7 @@ rnaePortRange :: Lens' ReplaceNetworkAclEntry (Maybe PortRange) rnaePortRange = lens _rnaePortRange (\s a -> s { _rnaePortRange = a }) --- | The IP protocol. You can specify all or -1 to mean all protocols. +-- | The IP protocol. You can specify 'all' or '-1' to mean all protocols. rnaeProtocol :: Lens' ReplaceNetworkAclEntry Text rnaeProtocol = lens _rnaeProtocol (\s a -> s { _rnaeProtocol = a }) 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 @@ -22,10 +22,10 @@ -- | Replaces an existing route within a route table in a VPC. You must provide -- only one of the following: Internet gateway or virtual private gateway, NAT --- instance, VPC peering connection, or network interface. For more --- information about route tables, see Route Tables in the Amazon Virtual --- Private Cloud User Guide. +-- instance, VPC peering connection, or network interface. -- +-- For more information about route tables, see in the /AmazonVirtual Private Cloud User Guide/. +-- -- module Network.AWS.EC2.ReplaceRoute ( @@ -94,8 +94,8 @@ , _rrVpcPeeringConnectionId = Nothing } --- | The CIDR address block used for the destination match. The value you --- provide must match the CIDR of an existing route in the table. +-- | The 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 Text rrDestinationCidrBlock = lens _rrDestinationCidrBlock (\s a -> s { _rrDestinationCidrBlock = a }) 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 @@ -22,11 +22,12 @@ -- | Changes the route table associated with a given subnet in a VPC. After the -- operation completes, the subnet uses the routes in the new route table it's --- associated with. For more information about route tables, see Route Tables --- in the Amazon Virtual Private Cloud User Guide. You can also use --- ReplaceRouteTableAssociation to change which table is the main route table --- in the VPC. You just specify the main route table's association ID and the --- route table to be the new main route table. +-- associated with. For more information about route tables, see in +-- the /Amazon Virtual Private Cloud User Guide/. +-- +-- You can also use ReplaceRouteTableAssociation to change which table is the +-- main route table in the VPC. You just specify the main route table's +-- association ID and the route table to be the new main route table. -- -- module Network.AWS.EC2.ReplaceRouteTableAssociation 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 @@ -20,14 +20,13 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Submits feedback about the status of an instance. The instance must be in --- the running state. If your experience with the instance differs from the --- instance status returned by DescribeInstanceStatus, use --- ReportInstanceStatus to report your experience with the instance. Amazon --- EC2 collects this information to improve the accuracy of status checks. Use --- of this action does not change the value returned by --- DescribeInstanceStatus. +-- | Submits feedback about the status of an instance. The instance must be in the 'running' state. If your experience with the instance differs from the instance +-- status returned by 'DescribeInstanceStatus', use 'ReportInstanceStatus' to report +-- your experience with the instance. Amazon EC2 collects this information to +-- improve the accuracy of status checks. -- +-- Use of this action does not change the value returned by 'DescribeInstanceStatus'. +-- -- module Network.AWS.EC2.ReportInstanceStatus ( @@ -58,10 +57,10 @@ data ReportInstanceStatus = ReportInstanceStatus { _risDescription :: Maybe Text , _risDryRun :: Maybe Bool - , _risEndTime :: Maybe RFC822 + , _risEndTime :: Maybe ISO8601 , _risInstances :: List "InstanceId" Text , _risReasonCodes :: List "item" ReportInstanceReasonCodes - , _risStartTime :: Maybe RFC822 + , _risStartTime :: Maybe ISO8601 , _risStatus :: ReportStatusType } deriving (Eq, Show) @@ -110,18 +109,30 @@ risInstances :: Lens' ReportInstanceStatus [Text] risInstances = lens _risInstances (\s a -> s { _risInstances = a }) . _List --- | One or more reason codes that describes 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 which I believe are network --- related. performance-instance-store: My instance is experiencing --- performance problems which I believe are related to the instance stores. --- performance-ebs-volume: My instance is experiencing performance problems --- which I believe are related to an EBS volume. performance-other: My --- instance is experiencing performance problems. other: [explain using the --- description parameter]. +-- | One or more reason codes that describes 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 which +-- I believe are network related. +-- +-- 'performance-instance-store': My instance is experiencing performance problems +-- which I believe are related to the instance stores. +-- +-- 'performance-ebs-volume': My instance is experiencing performance problems +-- which 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 }) . _List 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 @@ -20,14 +20,15 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Creates a Spot Instance request. Spot Instances are instances that Amazon --- EC2 starts on your behalf when the maximum 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 about Spot Instances, see Spot Instances in the Amazon --- Elastic Compute Cloud User Guide. Users must be subscribed to the required --- product to run an instance with AWS Marketplace product codes. +-- | Creates a Spot Instance request. Spot Instances are instances that Amazon EC2 +-- starts on your behalf when the maximum 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 about Spot Instances, see in the /Amazon ElasticCompute Cloud User Guide/. -- +-- Users must be subscribed to the required product to run an instance with AWS +-- Marketplace product codes. +-- -- module Network.AWS.EC2.RequestSpotInstances ( @@ -67,8 +68,8 @@ , _rsiLaunchSpecification :: Maybe RequestSpotLaunchSpecification , _rsiSpotPrice :: Text , _rsiType :: Maybe SpotInstanceType - , _rsiValidFrom :: Maybe RFC822 - , _rsiValidUntil :: Maybe RFC822 + , _rsiValidFrom :: Maybe ISO8601 + , _rsiValidUntil :: Maybe ISO8601 } deriving (Eq, Show) -- | 'RequestSpotInstances' constructor. @@ -107,23 +108,26 @@ , _rsiLaunchSpecification = Nothing } --- | 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 +-- | 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. +-- Availability Zone group. +-- +-- Default: Instances are launched in any available Availability Zone. rsiAvailabilityZoneGroup :: Lens' RequestSpotInstances (Maybe Text) rsiAvailabilityZoneGroup = lens _rsiAvailabilityZoneGroup @@ -132,13 +136,16 @@ rsiDryRun :: Lens' RequestSpotInstances (Maybe Bool) rsiDryRun = lens _rsiDryRun (\s a -> s { _rsiDryRun = a }) --- | The maximum number of Spot Instances to launch. Default: 1. +-- | The maximum number of Spot Instances to launch. +-- +-- Default: 1 rsiInstanceCount :: Lens' RequestSpotInstances (Maybe Int) rsiInstanceCount = lens _rsiInstanceCount (\s a -> s { _rsiInstanceCount = a }) -- | The instance launch group. Launch groups are Spot Instances that launch --- together and terminate together. Default: Instances are launched and --- terminated individually. +-- together and terminate together. +-- +-- Default: Instances are launched and terminated individually rsiLaunchGroup :: Lens' RequestSpotInstances (Maybe Text) rsiLaunchGroup = lens _rsiLaunchGroup (\s a -> s { _rsiLaunchGroup = a }) @@ -151,24 +158,28 @@ rsiSpotPrice :: Lens' RequestSpotInstances Text rsiSpotPrice = lens _rsiSpotPrice (\s a -> s { _rsiSpotPrice = a }) --- | The Spot Instance request type. Default: one-time. +-- | The Spot Instance request type. +-- +-- Default: 'one-time' rsiType :: Lens' RequestSpotInstances (Maybe SpotInstanceType) rsiType = lens _rsiType (\s a -> s { _rsiType = 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. +-- 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. rsiValidFrom :: Lens' RequestSpotInstances (Maybe UTCTime) rsiValidFrom = lens _rsiValidFrom (\s a -> s { _rsiValidFrom = 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 and time is reached. Default: The --- request is effective indefinitely. +-- 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. rsiValidUntil :: Lens' RequestSpotInstances (Maybe UTCTime) rsiValidUntil = lens _rsiValidUntil (\s a -> s { _rsiValidUntil = a }) . mapping _Time 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 @@ -70,8 +70,8 @@ , _ria1DryRun = Nothing } --- | The attribute to reset (currently you can only reset the launch --- permission attribute). +-- | The attribute to reset (currently you can only reset the launch permission +-- attribute). ria1Attribute :: Lens' ResetImageAttribute ResetImageAttributeName ria1Attribute = lens _ria1Attribute (\s a -> s { _ria1Attribute = a }) 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 @@ -20,14 +20,13 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Resets an attribute of an instance to its default value. To reset the --- kernel or ramdisk, the instance must be in a stopped state. To reset the --- SourceDestCheck, the instance can be either running or stopped. The --- SourceDestCheck attribute controls whether source/destination checking is --- enabled. The default value is true, which means checking is enabled. This --- value must be false for a NAT instance to perform NAT. For more --- information, see NAT Instances in the Amazon Virtual Private Cloud User --- Guide. +-- | Resets an attribute of an instance to its default value. To reset the 'kernel' +-- or 'ramdisk', the instance must be in a stopped state. To reset the 'SourceDestCheck', the instance can be either running or stopped. +-- +-- The 'SourceDestCheck' attribute controls whether source/destination checking +-- is enabled. The default value is 'true', which means checking is enabled. This +-- value must be 'false' for a NAT instance to perform NAT. For more information, +-- see in the /Amazon Virtual Private Cloud User Guide/. -- -- module Network.AWS.EC2.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 @@ -20,8 +20,8 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Resets a network interface attribute. You can specify only one attribute at --- a time. +-- | Resets a network interface attribute. You can specify only one attribute at a +-- time. -- -- module Network.AWS.EC2.ResetNetworkInterfaceAttribute @@ -78,7 +78,7 @@ rniaNetworkInterfaceId = lens _rniaNetworkInterfaceId (\s a -> s { _rniaNetworkInterfaceId = a }) --- | The source/destination checking attribute. Resets the value to true. +-- | The source/destination checking attribute. Resets the value to 'true'. rniaSourceDestCheck :: Lens' ResetNetworkInterfaceAttribute (Maybe Text) rniaSourceDestCheck = lens _rniaSourceDestCheck (\s a -> s { _rniaSourceDestCheck = a }) 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 @@ -20,10 +20,11 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Resets permission settings for the specified snapshot. For more information --- on modifying snapshot permissions, see Sharing Snapshots in the Amazon --- Elastic Compute Cloud User Guide. +-- | Resets permission settings for the specified snapshot. -- +-- For more information on modifying snapshot permissions, see +-- in the /Amazon Elastic Compute Cloud User Guide/. +-- -- module Network.AWS.EC2.ResetSnapshotAttribute ( @@ -72,8 +73,8 @@ , _rsaDryRun = Nothing } --- | The attribute to reset (currently only the attribute for permission to --- create volumes can be reset). +-- | 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 }) 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 @@ -21,14 +21,17 @@ -- Portability : non-portable (GHC extensions) -- | Removes one or more egress rules from a security group for EC2-VPC. The --- values that you specify in the revoke request (for example, ports) must --- match the existing rule's values for the rule to be revoked. Each rule --- consists of the protocol and the CIDR range or source security group. For --- the TCP and UDP protocols, you must also specify the destination port or --- range of ports. For the ICMP protocol, you must also specify the ICMP type --- and code. Rule changes are propagated to instances within the security --- group as quickly as possible. However, a small delay might occur. +-- values that you specify in the revoke request (for example, ports) must match +-- the existing rule's values for the rule to be revoked. -- +-- Each rule consists of the protocol and the CIDR range or source security +-- group. For the TCP and UDP protocols, you must also specify the destination +-- port or range of ports. For the ICMP protocol, you must also specify the ICMP +-- type and code. +-- +-- Rule changes are propagated to instances within the security group as +-- quickly as possible. However, a small delay might occur. +-- -- module Network.AWS.EC2.RevokeSecurityGroupEgress ( @@ -106,8 +109,8 @@ , _rsgeIpPermissions = mempty } --- | The CIDR IP address range. You can't specify this parameter when --- specifying a source security group. +-- | The CIDR IP address range. You can't specify this parameter when specifying a +-- source security group. rsgeCidrIp :: Lens' RevokeSecurityGroupEgress (Maybe Text) rsgeCidrIp = lens _rsgeCidrIp (\s a -> s { _rsgeCidrIp = a }) @@ -115,7 +118,7 @@ rsgeDryRun = lens _rsgeDryRun (\s a -> s { _rsgeDryRun = a }) -- | 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. +-- number. For the ICMP type number, use '-1' to specify all ICMP types. rsgeFromPort :: Lens' RevokeSecurityGroupEgress (Maybe Int) rsgeFromPort = lens _rsgeFromPort (\s a -> s { _rsgeFromPort = a }) @@ -123,21 +126,20 @@ rsgeGroupId :: Lens' RevokeSecurityGroupEgress Text rsgeGroupId = lens _rsgeGroupId (\s a -> s { _rsgeGroupId = a }) --- | A set of IP permissions. You can't specify a destination security group --- and a CIDR IP address range. +-- | A set of IP permissions. You can't specify a destination security group and a +-- CIDR IP address range. rsgeIpPermissions :: Lens' RevokeSecurityGroupEgress [IpPermission] rsgeIpPermissions = lens _rsgeIpPermissions (\s a -> s { _rsgeIpPermissions = a }) . _List --- | The IP protocol name (tcp, udp, icmp) or number (see Protocol Numbers). --- Use -1 to specify all. +-- | The IP protocol name ('tcp', 'udp', 'icmp') or number (see ). Use '-1' +-- to specify all. rsgeIpProtocol :: Lens' RevokeSecurityGroupEgress (Maybe Text) rsgeIpProtocol = lens _rsgeIpProtocol (\s a -> s { _rsgeIpProtocol = a }) --- | [EC2-Classic, default VPC] The name of the destination security group. --- You can't specify a destination security group and a CIDR IP address --- range. +-- | [EC2-Classic, default VPC] The name of the destination security group. You +-- can't specify a destination security group and a CIDR IP address range. rsgeSourceSecurityGroupName :: Lens' RevokeSecurityGroupEgress (Maybe Text) rsgeSourceSecurityGroupName = lens _rsgeSourceSecurityGroupName @@ -150,9 +152,8 @@ lens _rsgeSourceSecurityGroupOwnerId (\s a -> s { _rsgeSourceSecurityGroupOwnerId = 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. +-- | 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. rsgeToPort :: Lens' RevokeSecurityGroupEgress (Maybe Int) rsgeToPort = lens _rsgeToPort (\s a -> s { _rsgeToPort = a }) 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 @@ -20,12 +20,15 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Removes one or more ingress rules from a security group. The values that --- you specify in the revoke request (for example, ports) must match the --- existing rule's values for the rule to be removed. Each rule consists of --- the protocol and the CIDR range or source security group. For the TCP and --- UDP protocols, you must also specify the destination port or range of --- ports. For the ICMP protocol, you must also specify the ICMP type and code. +-- | Removes one or more ingress rules from a security group. The values that you +-- specify in the revoke request (for example, ports) must match the existing +-- rule's values for the rule to be removed. +-- +-- Each rule consists of the protocol and the CIDR range or source security +-- group. For the TCP and UDP protocols, you must also specify the destination +-- port or range of ports. For the ICMP protocol, you must also specify the ICMP +-- type and code. +-- -- Rule changes are propagated to instances within the security group as -- quickly as possible. However, a small delay might occur. -- @@ -110,8 +113,8 @@ , _rsgiIpPermissions = mempty } --- | The CIDR IP address range. You can't specify this parameter when --- specifying a source security group. +-- | 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 }) @@ -119,7 +122,7 @@ rsgiDryRun = lens _rsgiDryRun (\s a -> s { _rsgiDryRun = a }) -- | 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. +-- 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 }) @@ -131,20 +134,20 @@ rsgiGroupName :: Lens' RevokeSecurityGroupIngress (Maybe Text) rsgiGroupName = lens _rsgiGroupName (\s a -> s { _rsgiGroupName = a }) --- | A set of IP permissions. You can't specify a source security group and a --- CIDR IP address range. +-- | A set of IP permissions. You can't specify a source security group and a CIDR +-- IP address range. rsgiIpPermissions :: Lens' RevokeSecurityGroupIngress [IpPermission] rsgiIpPermissions = lens _rsgiIpPermissions (\s a -> s { _rsgiIpPermissions = a }) . _List --- | The IP protocol name (tcp, udp, icmp) or number (see Protocol Numbers). --- Use -1 to specify all. +-- | 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 }) --- | [EC2-Classic, default VPC] The name of the source security group. You --- can't specify a source security group and a CIDR IP address range. +-- | [EC2-Classic, default VPC] The name of the source security group. You can't +-- specify a source security group and a CIDR IP address range. rsgiSourceSecurityGroupName :: Lens' RevokeSecurityGroupIngress (Maybe Text) rsgiSourceSecurityGroupName = lens _rsgiSourceSecurityGroupName @@ -157,9 +160,8 @@ lens _rsgiSourceSecurityGroupOwnerId (\s a -> s { _rsgiSourceSecurityGroupOwnerId = 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. +-- | 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 }) 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 @@ -21,25 +21,34 @@ -- Portability : non-portable (GHC extensions) -- | Launches the specified number of instances using an AMI for which you have --- permissions. When you launch an instance, it enters the pending state. --- After the instance is ready for you, it enters the running state. To check --- the state of your instance, call DescribeInstances. If you don't specify a --- security group when launching an instance, Amazon EC2 uses the default --- security group. For more information, see Security Groups in the Amazon --- Elastic Compute Cloud User Guide. Linux instances have access to the public --- key of the key pair at boot. You can use this key to provide secure access --- to the instance. Amazon EC2 public images use this feature to provide --- secure access without passwords. For more information, see Key Pairs in the --- Amazon Elastic Compute Cloud User Guide. You can provide optional user data --- when launching an instance. For more information, see Instance Metadata in --- the Amazon Elastic Compute Cloud User Guide. If any of the AMIs have a --- product code attached for which the user has not subscribed, RunInstances --- fails. T2 instance types can only be launched into a VPC. If you do not --- have a default VPC, or if you do not specify a subnet ID in the request, --- RunInstances fails. For more information about troubleshooting, see What To --- Do If An Instance Immediately Terminates, and Troubleshooting Connecting to --- Your Instance in the Amazon Elastic Compute Cloud User Guide. +-- permissions. -- +-- When you launch an instance, it enters the 'pending' state. After the instance +-- is ready for you, it enters the 'running' state. To check the state of your +-- instance, call 'DescribeInstances'. +-- +-- If you don't specify a security group when launching an instance, Amazon EC2 +-- uses the default security group. For more information, see in +-- the /Amazon Elastic Compute Cloud User Guide/. +-- +-- Linux instances have access to the public key of the key pair at boot. You +-- can use this key to provide secure access to the instance. Amazon EC2 public +-- images use this feature to provide secure access without passwords. For more +-- information, see in the /Amazon Elastic Compute Cloud User Guide/. +-- +-- You can provide optional user data when launching an instance. For more +-- information, see in the /Amazon Elastic Compute Cloud UserGuide/. +-- +-- If any of the AMIs have a product code attached for which the user has not +-- subscribed, 'RunInstances' fails. +-- +-- T2 instance types can only be launched into a VPC. If you do not have a +-- default VPC, or if you do not specify a subnet ID in the request, 'RunInstances' +-- fails. +-- +-- For more information about troubleshooting, see , and in +-- the /Amazon Elastic Compute Cloud User Guide/. +-- -- module Network.AWS.EC2.RunInstances ( @@ -205,21 +214,20 @@ lens _riBlockDeviceMappings (\s a -> s { _riBlockDeviceMappings = a }) . _List --- | Unique, case-sensitive identifier you provide to ensure the idempotency --- of the request. For more information, see How to Ensure Idempotency in --- the Amazon Elastic Compute Cloud User Guide. Constraints: Maximum 64 --- ASCII characters. +-- | Unique, case-sensitive identifier you provide to ensure the idempotency of +-- the request. For more information, see in the /Amazon Elastic Compute Cloud User Guide/. +-- +-- Constraints: Maximum 64 ASCII characters riClientToken :: Lens' RunInstances (Maybe Text) riClientToken = lens _riClientToken (\s a -> s { _riClientToken = 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. If you set this --- parameter to true and then later want to be able to terminate the --- instance, you must first change the value of the disableApiTermination --- attribute to false using ModifyInstanceAttribute. Alternatively, if you --- set InstanceInitiatedShutdownBehavior to terminate, you can terminate the --- instance by running the shutdown command from the instance. Default: --- false. +-- | If you set this parameter to 'true', you can't terminate the instance using the +-- Amazon EC2 console, CLI, or API; otherwise, you can. If you set this +-- parameter to 'true' and then later want to be able to terminate the instance, +-- you must first change the value of the 'disableApiTermination' attribute to 'false' using 'ModifyInstanceAttribute'. Alternatively, if you set 'InstanceInitiatedShutdownBehavior' to 'terminate', you can terminate the instance by running the shutdown command +-- from the instance. +-- +-- Default: 'false' riDisableApiTermination :: Lens' RunInstances (Maybe Bool) riDisableApiTermination = lens _riDisableApiTermination (\s a -> s { _riDisableApiTermination = a }) @@ -227,11 +235,13 @@ riDryRun :: Lens' RunInstances (Maybe Bool) riDryRun = lens _riDryRun (\s a -> s { _riDryRun = 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 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. +-- | 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 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' riEbsOptimized :: Lens' RunInstances (Maybe Bool) riEbsOptimized = lens _riEbsOptimized (\s a -> s { _riEbsOptimized = a }) @@ -240,51 +250,62 @@ riIamInstanceProfile = lens _riIamInstanceProfile (\s a -> s { _riIamInstanceProfile = a }) --- | The ID of the AMI, which you can get by calling DescribeImages. +-- | The ID of the AMI, which you can get by calling 'DescribeImages'. riImageId :: Lens' RunInstances Text riImageId = lens _riImageId (\s a -> s { _riImageId = 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. +-- | Indicates whether an instance stops or terminates when you initiate shutdown +-- from the instance (using the operating system command for system shutdown). +-- +-- Default: 'stop' riInstanceInitiatedShutdownBehavior :: Lens' RunInstances (Maybe ShutdownBehavior) riInstanceInitiatedShutdownBehavior = lens _riInstanceInitiatedShutdownBehavior (\s a -> s { _riInstanceInitiatedShutdownBehavior = a }) --- | The instance type. For more information, see Instance Types in the Amazon --- Elastic Compute Cloud User Guide. Default: m1.small. +-- | The instance type. For more information, see in the /AmazonElastic Compute Cloud User Guide/. +-- +-- Default: 'm1.small' riInstanceType :: Lens' RunInstances (Maybe InstanceType) riInstanceType = lens _riInstanceType (\s a -> s { _riInstanceType = a }) --- | The ID of the kernel. We recommend that you use PV-GRUB instead of --- kernels and RAM disks. For more information, see PV-GRUB in the Amazon --- Elastic Compute Cloud User Guide. +-- | The ID of the kernel. +-- +-- 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/. +-- +-- riKernelId :: Lens' RunInstances (Maybe Text) riKernelId = lens _riKernelId (\s a -> s { _riKernelId = a }) --- | The name of the key pair. You can create a key pair using CreateKeyPair --- or ImportKeyPair. If you launch an instance without specifying a key --- pair, you can't connect to the instance. +-- | The name of the key pair. You can create a key pair using 'CreateKeyPair' or 'ImportKeyPair'. +-- +-- If you launch an instance without specifying a key pair, you can't connect +-- to the instance. +-- +-- riKeyName :: Lens' RunInstances (Maybe Text) riKeyName = lens _riKeyName (\s a -> s { _riKeyName = a }) --- | 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. +-- | 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 How many instances can I run in --- Amazon EC2 in the Amazon EC2 General FAQ. +-- specified instance type. For more information about the default limits, and +-- how to request an increase, see in +-- the Amazon EC2 General FAQ. riMaxCount :: Lens' RunInstances Int riMaxCount = lens _riMaxCount (\s a -> s { _riMaxCount = 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 --- How many instances can I run in Amazon EC2 in the Amazon EC2 General FAQ. +-- | 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. riMinCount :: Lens' RunInstances Int riMinCount = lens _riMinCount (\s a -> s { _riMinCount = a }) @@ -303,31 +324,38 @@ riPlacement = lens _riPlacement (\s a -> s { _riPlacement = a }) -- | [EC2-VPC] The primary IP address. You must specify a value from the IP --- address range of the subnet. Only one private IP address can be --- designated as primary. Therefore, you can't specify this parameter if --- PrivateIpAddresses.n.Primary is set to true and --- PrivateIpAddresses.n.PrivateIpAddress is set to an IP address. Default: --- We select an IP address from the IP address range of the subnet. +-- address range of the subnet. +-- +-- Only one private IP address can be designated as primary. Therefore, you +-- can't specify this parameter if 'PrivateIpAddresses.n.Primary' is set to 'true' +-- and 'PrivateIpAddresses.n.PrivateIpAddress' is set to an IP address. +-- +-- Default: We select an IP address from the IP address range of the subnet. riPrivateIpAddress :: Lens' RunInstances (Maybe Text) riPrivateIpAddress = lens _riPrivateIpAddress (\s a -> s { _riPrivateIpAddress = a }) --- | The ID of the RAM disk. We recommend that you use PV-GRUB instead of --- kernels and RAM disks. For more information, see PV-GRUB in the Amazon --- Elastic Compute Cloud User Guide. +-- | The ID of the RAM disk. +-- +-- 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/. +-- +-- riRamdiskId :: Lens' RunInstances (Maybe Text) riRamdiskId = lens _riRamdiskId (\s a -> s { _riRamdiskId = a }) --- | One or more security group IDs. You can create a security group using --- CreateSecurityGroup. Default: Amazon EC2 uses the default security group. +-- | One or more security group IDs. You can create a security group using 'CreateSecurityGroup'. +-- +-- Default: Amazon EC2 uses the default security group. riSecurityGroupIds :: Lens' RunInstances [Text] riSecurityGroupIds = lens _riSecurityGroupIds (\s a -> s { _riSecurityGroupIds = a }) . _List --- | [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. +-- | [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. riSecurityGroups :: Lens' RunInstances [Text] riSecurityGroups = lens _riSecurityGroups (\s a -> s { _riSecurityGroups = a }) . _List 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 @@ -20,20 +20,24 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Starts an Amazon EBS-backed AMI that you've previously stopped. Instances --- that use Amazon EBS volumes as their root devices can be quickly stopped --- and started. When an instance is stopped, the compute resources are --- released and you are not billed for hourly instance usage. However, your --- root partition Amazon EBS volume remains, continues to persist your data, --- and you are charged for Amazon EBS volume usage. You can restart your --- instance at any time. Each time you transition an instance from stopped to --- started, Amazon EC2 charges a full instance hour, even if transitions --- happen multiple times within a single hour. Before stopping an instance, --- make sure it is in a state from which it can be restarted. Stopping an --- instance does not preserve data stored in RAM. Performing this operation on --- an instance that uses an instance store as its root device returns an --- error. For more information, see Stopping Instances in the Amazon Elastic --- Compute Cloud User Guide. +-- | Starts an Amazon EBS-backed AMI that you've previously stopped. +-- +-- Instances that use Amazon EBS volumes as their root devices can be quickly +-- stopped and started. When an instance is stopped, the compute resources are +-- released and you are not billed for hourly instance usage. However, your root +-- partition Amazon EBS volume remains, continues to persist your data, and you +-- are charged for Amazon EBS volume usage. You can restart your instance at any +-- time. Each time you transition an instance from stopped to started, Amazon +-- EC2 charges a full instance hour, even if transitions happen multiple times +-- within a single hour. +-- +-- Before stopping an instance, make sure it is in a state from which it can be +-- restarted. Stopping an instance does not preserve data stored in RAM. +-- +-- Performing this operation on an instance that uses an instance store as its +-- root device returns an error. +-- +-- For more information, see in the /Amazon Elastic ComputeCloud User Guide/. -- -- module Network.AWS.EC2.StartInstances 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 @@ -22,27 +22,34 @@ -- | Stops an Amazon EBS-backed instance. Each time you transition an instance -- from stopped to started, Amazon EC2 charges a full instance hour, even if --- transitions happen multiple times within a single hour. You can't start or --- stop Spot Instances. Instances that use Amazon EBS volumes as their root --- devices can be quickly stopped and started. When an instance is stopped, --- the compute resources are released and you are not billed for hourly --- instance usage. However, your root partition Amazon EBS volume remains, --- continues to persist your data, and you are charged for Amazon EBS volume --- usage. You can restart your instance at any time. Before stopping an --- instance, make sure it is in a state from which it can be restarted. --- Stopping an instance does not preserve data stored in RAM. Performing this --- operation on an instance that uses an instance store as its root device --- returns an error. You can stop, start, and terminate EBS-backed instances. --- You can only terminate instance store-backed instances. What happens to an --- instance differs if you stop it or terminate it. For example, when you stop --- an instance, the root device and any other devices attached to the instance +-- transitions happen multiple times within a single hour. +-- +-- You can't start or stop Spot Instances. +-- +-- Instances that use Amazon EBS volumes as their root devices can be quickly +-- stopped and started. When an instance is stopped, the compute resources are +-- released and you are not billed for hourly instance usage. However, your root +-- partition Amazon EBS volume remains, continues to persist your data, and you +-- are charged for Amazon EBS volume usage. You can restart your instance at any +-- time. +-- +-- Before stopping an instance, make sure it is in a state from which it can be +-- restarted. Stopping an instance does not preserve data stored in RAM. +-- +-- Performing this operation on an instance that uses an instance store as its +-- root device returns an error. +-- +-- You can stop, start, and terminate EBS-backed instances. You can only +-- terminate instance store-backed instances. What happens to an instance +-- differs if you stop it or terminate it. For example, when you stop an +-- instance, the root device and any other devices attached to the instance -- persist. When you terminate an instance, the root device and any other -- devices attached during the instance launch are automatically deleted. For -- more information about the differences between stopping and terminating --- instances, see Instance Lifecycle in the Amazon Elastic Compute Cloud User --- Guide. For more information about troubleshooting, see Troubleshooting --- Stopping Your Instance in the Amazon Elastic Compute Cloud User Guide. +-- instances, see in the /Amazon Elastic Compute Cloud UserGuide/. -- +-- For more information about troubleshooting, see in the /Amazon Elastic Compute Cloud User Guide/. +-- -- module Network.AWS.EC2.StopInstances ( @@ -95,9 +102,11 @@ siDryRun = lens _siDryRun (\s a -> s { _siDryRun = a }) -- | 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. +-- 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 }) 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 @@ -21,20 +21,25 @@ -- Portability : non-portable (GHC extensions) -- | Shuts down one or more instances. This operation is idempotent; if you --- terminate an instance more than once, each call succeeds. Terminated --- instances remain visible after termination (for approximately one hour). By --- default, Amazon EC2 deletes all Amazon EBS volumes that were attached when --- the instance launched. Volumes attached after instance launch continue --- running. You can stop, start, and terminate EBS-backed instances. You can --- only terminate instance store-backed instances. What happens to an instance +-- terminate an instance more than once, each call succeeds. +-- +-- Terminated instances remain visible after termination (for approximately one +-- hour). +-- +-- By default, Amazon EC2 deletes all Amazon EBS volumes that were attached +-- when the instance launched. Volumes attached after instance launch continue +-- running. +-- +-- You can stop, start, and terminate EBS-backed instances. You can only +-- terminate instance store-backed instances. What happens to an instance -- differs if you stop it or terminate it. For example, when you stop an -- instance, the root device and any other devices attached to the instance -- persist. When you terminate an instance, the root device and any other -- devices attached during the instance launch are automatically deleted. For -- more information about the differences between stopping and terminating --- instances, see Instance Lifecycle in the Amazon Elastic Compute Cloud User --- Guide. For more information about troubleshooting, see Troubleshooting --- Terminating Your Instance in the Amazon Elastic Compute Cloud User Guide. +-- instances, see in the /Amazon Elastic Compute Cloud UserGuide/. +-- +-- For more information about troubleshooting, see in the /Amazon Elastic Compute Cloud User Guide/. -- -- module Network.AWS.EC2.TerminateInstances 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 @@ -1433,10973 +1433,11130 @@ instance Hashable ImageAttributeName instance FromText ImageAttributeName where - parser = match "blockDeviceMapping" ImageBlockDeviceMapping - <|> match "description" ImageDescription - <|> match "kernel" ImageKernel - <|> match "launchPermission" ImageLaunchPermission - <|> match "productCodes" ImageProductCodes - <|> match "ramdisk" ImageRamdisk - -instance ToText ImageAttributeName where - toText = \case - ImageBlockDeviceMapping -> "blockDeviceMapping" - ImageDescription -> "description" - ImageKernel -> "kernel" - ImageLaunchPermission -> "launchPermission" - ImageProductCodes -> "productCodes" - ImageRamdisk -> "ramdisk" - -instance ToByteString ImageAttributeName -instance ToHeader ImageAttributeName -instance ToQuery ImageAttributeName - -instance FromXML ImageAttributeName where - parseXML = parseXMLText "ImageAttributeName" - - -data PermissionGroup - = All -- ^ all - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable PermissionGroup - -instance FromText PermissionGroup where - parser = match "all" All - -instance ToText PermissionGroup where - toText All = "all" - -instance ToByteString PermissionGroup -instance ToHeader PermissionGroup -instance ToQuery PermissionGroup - -instance FromXML PermissionGroup where - parseXML = parseXMLText "PermissionGroup" - - -data NetworkAclEntry = NetworkAclEntry - { _naeCidrBlock :: Maybe Text - , _naeEgress :: Maybe Bool - , _naeIcmpTypeCode :: Maybe IcmpTypeCode - , _naePortRange :: Maybe PortRange - , _naeProtocol :: Maybe Text - , _naeRuleAction :: Maybe RuleAction - , _naeRuleNumber :: Maybe Int - } deriving (Eq, Show) - --- | 'NetworkAclEntry' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'naeCidrBlock' @::@ 'Maybe' 'Text' --- --- * 'naeEgress' @::@ 'Maybe' 'Bool' --- --- * 'naeIcmpTypeCode' @::@ 'Maybe' 'IcmpTypeCode' --- --- * 'naePortRange' @::@ 'Maybe' 'PortRange' --- --- * 'naeProtocol' @::@ 'Maybe' 'Text' --- --- * 'naeRuleAction' @::@ 'Maybe' 'RuleAction' --- --- * 'naeRuleNumber' @::@ 'Maybe' 'Int' --- -networkAclEntry :: NetworkAclEntry -networkAclEntry = NetworkAclEntry - { _naeRuleNumber = Nothing - , _naeProtocol = Nothing - , _naeRuleAction = Nothing - , _naeEgress = Nothing - , _naeCidrBlock = Nothing - , _naeIcmpTypeCode = Nothing - , _naePortRange = Nothing - } - --- | The 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 }) - --- | ICMP protocol: The ICMP type and code. -naeIcmpTypeCode :: Lens' NetworkAclEntry (Maybe IcmpTypeCode) -naeIcmpTypeCode = lens _naeIcmpTypeCode (\s a -> s { _naeIcmpTypeCode = 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 protocol. A value of -1 means all protocols. -naeProtocol :: Lens' NetworkAclEntry (Maybe Text) -naeProtocol = lens _naeProtocol (\s a -> s { _naeProtocol = 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 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 }) - -instance FromXML NetworkAclEntry where - parseXML x = NetworkAclEntry - <$> x .@? "cidrBlock" - <*> x .@? "egress" - <*> x .@? "icmpTypeCode" - <*> x .@? "portRange" - <*> x .@? "protocol" - <*> x .@? "ruleAction" - <*> x .@? "ruleNumber" - -instance ToQuery NetworkAclEntry where - toQuery NetworkAclEntry{..} = mconcat - [ "cidrBlock" =? _naeCidrBlock - , "egress" =? _naeEgress - , "icmpTypeCode" =? _naeIcmpTypeCode - , "portRange" =? _naePortRange - , "protocol" =? _naeProtocol - , "ruleAction" =? _naeRuleAction - , "ruleNumber" =? _naeRuleNumber - ] - -newtype BlobAttributeValue = BlobAttributeValue - { _bavValue :: Maybe Base64 - } deriving (Eq, Show) - --- | 'BlobAttributeValue' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'bavValue' @::@ 'Maybe' 'Base64' --- -blobAttributeValue :: BlobAttributeValue -blobAttributeValue = BlobAttributeValue - { _bavValue = Nothing - } - -bavValue :: Lens' BlobAttributeValue (Maybe Base64) -bavValue = lens _bavValue (\s a -> s { _bavValue = a }) - -instance FromXML BlobAttributeValue where - parseXML x = BlobAttributeValue - <$> x .@? "value" - -instance ToQuery BlobAttributeValue where - toQuery BlobAttributeValue{..} = mconcat - [ "value" =? _bavValue - ] - -data ImportInstanceLaunchSpecification = ImportInstanceLaunchSpecification - { _iilsAdditionalInfo :: Maybe Text - , _iilsArchitecture :: Maybe ArchitectureValues - , _iilsGroupIds :: List "SecurityGroupId" Text - , _iilsGroupNames :: List "SecurityGroup" Text - , _iilsInstanceInitiatedShutdownBehavior :: Maybe ShutdownBehavior - , _iilsInstanceType :: Maybe InstanceType - , _iilsMonitoring :: Maybe Bool - , _iilsPlacement :: Maybe Placement - , _iilsPrivateIpAddress :: Maybe Text - , _iilsSubnetId :: Maybe Text - , _iilsUserData :: Maybe Text - } deriving (Eq, Show) - --- | 'ImportInstanceLaunchSpecification' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'iilsAdditionalInfo' @::@ 'Maybe' 'Text' --- --- * 'iilsArchitecture' @::@ 'Maybe' 'ArchitectureValues' --- --- * 'iilsGroupIds' @::@ ['Text'] --- --- * 'iilsGroupNames' @::@ ['Text'] --- --- * 'iilsInstanceInitiatedShutdownBehavior' @::@ 'Maybe' 'ShutdownBehavior' --- --- * 'iilsInstanceType' @::@ 'Maybe' 'InstanceType' --- --- * 'iilsMonitoring' @::@ 'Maybe' 'Bool' --- --- * 'iilsPlacement' @::@ 'Maybe' 'Placement' --- --- * 'iilsPrivateIpAddress' @::@ 'Maybe' 'Text' --- --- * 'iilsSubnetId' @::@ 'Maybe' 'Text' --- --- * 'iilsUserData' @::@ 'Maybe' 'Text' --- -importInstanceLaunchSpecification :: ImportInstanceLaunchSpecification -importInstanceLaunchSpecification = ImportInstanceLaunchSpecification - { _iilsArchitecture = Nothing - , _iilsGroupNames = mempty - , _iilsGroupIds = mempty - , _iilsAdditionalInfo = Nothing - , _iilsUserData = Nothing - , _iilsInstanceType = Nothing - , _iilsPlacement = Nothing - , _iilsMonitoring = Nothing - , _iilsSubnetId = Nothing - , _iilsInstanceInitiatedShutdownBehavior = Nothing - , _iilsPrivateIpAddress = Nothing - } - -iilsAdditionalInfo :: Lens' ImportInstanceLaunchSpecification (Maybe Text) -iilsAdditionalInfo = - lens _iilsAdditionalInfo (\s a -> s { _iilsAdditionalInfo = a }) - --- | The architecture of the instance. -iilsArchitecture :: Lens' ImportInstanceLaunchSpecification (Maybe ArchitectureValues) -iilsArchitecture = lens _iilsArchitecture (\s a -> s { _iilsArchitecture = a }) - -iilsGroupIds :: Lens' ImportInstanceLaunchSpecification [Text] -iilsGroupIds = lens _iilsGroupIds (\s a -> s { _iilsGroupIds = a }) . _List - --- | One or more security group names. -iilsGroupNames :: Lens' ImportInstanceLaunchSpecification [Text] -iilsGroupNames = lens _iilsGroupNames (\s a -> s { _iilsGroupNames = a }) . _List - --- | 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 instance type. For more information, see Instance Types in the Amazon --- Elastic Compute Cloud User Guide. -iilsInstanceType :: Lens' ImportInstanceLaunchSpecification (Maybe InstanceType) -iilsInstanceType = lens _iilsInstanceType (\s a -> s { _iilsInstanceType = a }) - -iilsMonitoring :: Lens' ImportInstanceLaunchSpecification (Maybe Bool) -iilsMonitoring = lens _iilsMonitoring (\s a -> s { _iilsMonitoring = a }) - -iilsPlacement :: Lens' ImportInstanceLaunchSpecification (Maybe Placement) -iilsPlacement = lens _iilsPlacement (\s a -> s { _iilsPlacement = a }) - --- | [EC2-VPC] Optionally, you can use this parameter to assign the instance a --- specific available IP address from the IP address range of the subnet. -iilsPrivateIpAddress :: Lens' ImportInstanceLaunchSpecification (Maybe Text) -iilsPrivateIpAddress = - lens _iilsPrivateIpAddress (\s a -> s { _iilsPrivateIpAddress = a }) - --- | [EC2-VPC] The ID of the subnet to launch the instance into. -iilsSubnetId :: Lens' ImportInstanceLaunchSpecification (Maybe Text) -iilsSubnetId = lens _iilsSubnetId (\s a -> s { _iilsSubnetId = a }) - --- | User data to be made available to the instance. -iilsUserData :: Lens' ImportInstanceLaunchSpecification (Maybe Text) -iilsUserData = lens _iilsUserData (\s a -> s { _iilsUserData = a }) - -instance FromXML ImportInstanceLaunchSpecification where - parseXML x = ImportInstanceLaunchSpecification - <$> x .@? "additionalInfo" - <*> x .@? "architecture" - <*> x .@ "GroupId" - <*> x .@ "GroupName" - <*> x .@? "instanceInitiatedShutdownBehavior" - <*> x .@? "instanceType" - <*> x .@? "monitoring" - <*> x .@? "placement" - <*> x .@? "privateIpAddress" - <*> x .@? "subnetId" - <*> x .@? "userData" - -instance ToQuery ImportInstanceLaunchSpecification where - toQuery ImportInstanceLaunchSpecification{..} = mconcat - [ "additionalInfo" =? _iilsAdditionalInfo - , "architecture" =? _iilsArchitecture - , "GroupId" =? _iilsGroupIds - , "GroupName" =? _iilsGroupNames - , "instanceInitiatedShutdownBehavior" =? _iilsInstanceInitiatedShutdownBehavior - , "instanceType" =? _iilsInstanceType - , "monitoring" =? _iilsMonitoring - , "placement" =? _iilsPlacement - , "privateIpAddress" =? _iilsPrivateIpAddress - , "subnetId" =? _iilsSubnetId - , "userData" =? _iilsUserData - ] - -data Snapshot = Snapshot - { _sDescription :: Maybe Text - , _sEncrypted :: Maybe Bool - , _sOwnerAlias :: Maybe Text - , _sOwnerId :: Maybe Text - , _sProgress :: Maybe Text - , _sSnapshotId :: Maybe Text - , _sStartTime :: Maybe RFC822 - , _sState :: Maybe SnapshotState - , _sTags :: List "item" Tag - , _sVolumeId :: Maybe Text - , _sVolumeSize :: Maybe Int - } deriving (Eq, Show) - --- | 'Snapshot' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'sDescription' @::@ 'Maybe' 'Text' --- --- * 'sEncrypted' @::@ 'Maybe' 'Bool' --- --- * 'sOwnerAlias' @::@ 'Maybe' 'Text' --- --- * 'sOwnerId' @::@ 'Maybe' 'Text' --- --- * 'sProgress' @::@ 'Maybe' 'Text' --- --- * 'sSnapshotId' @::@ 'Maybe' 'Text' --- --- * 'sStartTime' @::@ 'Maybe' 'UTCTime' --- --- * 'sState' @::@ 'Maybe' 'SnapshotState' --- --- * 'sTags' @::@ ['Tag'] --- --- * 'sVolumeId' @::@ 'Maybe' 'Text' --- --- * 'sVolumeSize' @::@ 'Maybe' 'Int' --- -snapshot :: Snapshot -snapshot = Snapshot - { _sSnapshotId = Nothing - , _sVolumeId = Nothing - , _sState = Nothing - , _sStartTime = Nothing - , _sProgress = Nothing - , _sOwnerId = Nothing - , _sDescription = Nothing - , _sVolumeSize = Nothing - , _sOwnerAlias = Nothing - , _sTags = mempty - , _sEncrypted = Nothing - } - --- | The description for the snapshot. -sDescription :: Lens' Snapshot (Maybe Text) -sDescription = lens _sDescription (\s a -> s { _sDescription = a }) - --- | Indicates whether the snapshot is encrypted. -sEncrypted :: Lens' Snapshot (Maybe Bool) -sEncrypted = lens _sEncrypted (\s a -> s { _sEncrypted = a }) - --- | The AWS account alias (for example, amazon, self) or AWS account ID that --- owns the snapshot. -sOwnerAlias :: Lens' Snapshot (Maybe Text) -sOwnerAlias = lens _sOwnerAlias (\s a -> s { _sOwnerAlias = a }) - --- | The AWS account ID of the Amazon EBS snapshot owner. -sOwnerId :: Lens' Snapshot (Maybe Text) -sOwnerId = lens _sOwnerId (\s a -> s { _sOwnerId = a }) - --- | The progress of the snapshot, as a percentage. -sProgress :: Lens' Snapshot (Maybe Text) -sProgress = lens _sProgress (\s a -> s { _sProgress = a }) - --- | The ID of the snapshot. -sSnapshotId :: Lens' Snapshot (Maybe Text) -sSnapshotId = lens _sSnapshotId (\s a -> s { _sSnapshotId = a }) - --- | The time stamp when the snapshot was initiated. -sStartTime :: Lens' Snapshot (Maybe UTCTime) -sStartTime = lens _sStartTime (\s a -> s { _sStartTime = a }) . mapping _Time - --- | The snapshot state. -sState :: Lens' Snapshot (Maybe SnapshotState) -sState = lens _sState (\s a -> s { _sState = a }) - --- | Any tags assigned to the snapshot. -sTags :: Lens' Snapshot [Tag] -sTags = lens _sTags (\s a -> s { _sTags = a }) . _List - --- | The ID of the volume. -sVolumeId :: Lens' Snapshot (Maybe Text) -sVolumeId = lens _sVolumeId (\s a -> s { _sVolumeId = a }) - --- | The size of the volume, in GiB. -sVolumeSize :: Lens' Snapshot (Maybe Int) -sVolumeSize = lens _sVolumeSize (\s a -> s { _sVolumeSize = a }) - -instance FromXML Snapshot where - parseXML x = Snapshot - <$> x .@? "description" - <*> x .@? "encrypted" - <*> x .@? "ownerAlias" - <*> x .@? "ownerId" - <*> x .@? "progress" - <*> x .@? "snapshotId" - <*> x .@? "startTime" - <*> x .@? "status" - <*> x .@ "tagSet" - <*> x .@? "volumeId" - <*> x .@? "volumeSize" - -instance ToQuery Snapshot where - toQuery Snapshot{..} = mconcat - [ "description" =? _sDescription - , "encrypted" =? _sEncrypted - , "ownerAlias" =? _sOwnerAlias - , "ownerId" =? _sOwnerId - , "progress" =? _sProgress - , "snapshotId" =? _sSnapshotId - , "startTime" =? _sStartTime - , "status" =? _sState - , "tagSet" =? _sTags - , "volumeId" =? _sVolumeId - , "volumeSize" =? _sVolumeSize - ] - -data SpotInstanceStateFault = SpotInstanceStateFault - { _sisfCode :: Maybe Text - , _sisfMessage :: Maybe Text - } deriving (Eq, Ord, Show) - --- | 'SpotInstanceStateFault' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'sisfCode' @::@ 'Maybe' 'Text' --- --- * 'sisfMessage' @::@ 'Maybe' 'Text' --- -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 ToQuery SpotInstanceStateFault where - toQuery SpotInstanceStateFault{..} = mconcat - [ "code" =? _sisfCode - , "message" =? _sisfMessage - ] - -data TagDescription = TagDescription - { _tdKey :: Text - , _tdResourceId :: Text - , _tdResourceType :: ResourceType - , _tdValue :: Text - } deriving (Eq, Show) - --- | 'TagDescription' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'tdKey' @::@ 'Text' --- --- * 'tdResourceId' @::@ 'Text' --- --- * 'tdResourceType' @::@ 'ResourceType' --- --- * 'tdValue' @::@ 'Text' --- -tagDescription :: Text -- ^ 'tdResourceId' - -> ResourceType -- ^ 'tdResourceType' - -> Text -- ^ 'tdKey' - -> Text -- ^ 'tdValue' - -> TagDescription -tagDescription p1 p2 p3 p4 = TagDescription - { _tdResourceId = p1 - , _tdResourceType = p2 - , _tdKey = p3 - , _tdValue = p4 - } - --- | The key of the tag. -tdKey :: Lens' TagDescription Text -tdKey = lens _tdKey (\s a -> s { _tdKey = a }) - --- | The ID of the resource. For example, ami-1a2b3c4d. -tdResourceId :: Lens' TagDescription Text -tdResourceId = lens _tdResourceId (\s a -> s { _tdResourceId = a }) - --- | The type of resource. -tdResourceType :: Lens' TagDescription ResourceType -tdResourceType = lens _tdResourceType (\s a -> s { _tdResourceType = a }) - --- | The value of the tag. -tdValue :: Lens' TagDescription Text -tdValue = lens _tdValue (\s a -> s { _tdValue = a }) - -instance FromXML TagDescription where - parseXML x = TagDescription - <$> x .@ "key" - <*> x .@ "resourceId" - <*> x .@ "resourceType" - <*> x .@ "value" - -instance ToQuery TagDescription where - toQuery TagDescription{..} = mconcat - [ "key" =? _tdKey - , "resourceId" =? _tdResourceId - , "resourceType" =? _tdResourceType - , "value" =? _tdValue - ] - -data GroupIdentifier = GroupIdentifier - { _giGroupId :: Maybe Text - , _giGroupName :: Maybe Text - } deriving (Eq, Ord, Show) - --- | 'GroupIdentifier' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'giGroupId' @::@ 'Maybe' 'Text' --- --- * 'giGroupName' @::@ 'Maybe' 'Text' --- -groupIdentifier :: GroupIdentifier -groupIdentifier = GroupIdentifier - { _giGroupName = Nothing - , _giGroupId = 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 ToQuery GroupIdentifier where - toQuery GroupIdentifier{..} = mconcat - [ "groupId" =? _giGroupId - , "groupName" =? _giGroupName - ] - -data VpnStaticRouteSource - = Static -- ^ Static - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable VpnStaticRouteSource - -instance FromText VpnStaticRouteSource where - parser = match "Static" Static - -instance ToText VpnStaticRouteSource where - toText Static = "Static" - -instance ToByteString VpnStaticRouteSource -instance ToHeader VpnStaticRouteSource -instance ToQuery VpnStaticRouteSource - -instance FromXML VpnStaticRouteSource where - parseXML = parseXMLText "VpnStaticRouteSource" - - -data ReservedInstancesListing = ReservedInstancesListing - { _rilClientToken :: Maybe Text - , _rilCreateDate :: Maybe RFC822 - , _rilInstanceCounts :: List "item" InstanceCount - , _rilPriceSchedules :: List "item" PriceSchedule - , _rilReservedInstancesId :: Maybe Text - , _rilReservedInstancesListingId :: Maybe Text - , _rilStatus :: Maybe ListingStatus - , _rilStatusMessage :: Maybe Text - , _rilTags :: List "item" Tag - , _rilUpdateDate :: Maybe RFC822 - } deriving (Eq, Show) - --- | 'ReservedInstancesListing' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'rilClientToken' @::@ 'Maybe' 'Text' --- --- * 'rilCreateDate' @::@ 'Maybe' 'UTCTime' --- --- * 'rilInstanceCounts' @::@ ['InstanceCount'] --- --- * 'rilPriceSchedules' @::@ ['PriceSchedule'] --- --- * 'rilReservedInstancesId' @::@ 'Maybe' 'Text' --- --- * 'rilReservedInstancesListingId' @::@ 'Maybe' 'Text' --- --- * 'rilStatus' @::@ 'Maybe' 'ListingStatus' --- --- * 'rilStatusMessage' @::@ 'Maybe' 'Text' --- --- * 'rilTags' @::@ ['Tag'] --- --- * 'rilUpdateDate' @::@ 'Maybe' 'UTCTime' --- -reservedInstancesListing :: ReservedInstancesListing -reservedInstancesListing = ReservedInstancesListing - { _rilReservedInstancesListingId = Nothing - , _rilReservedInstancesId = Nothing - , _rilCreateDate = Nothing - , _rilUpdateDate = Nothing - , _rilStatus = Nothing - , _rilStatusMessage = Nothing - , _rilInstanceCounts = mempty - , _rilPriceSchedules = mempty - , _rilTags = mempty - , _rilClientToken = Nothing - } - --- | The idempotency token you provided when you created the listing. -rilClientToken :: Lens' ReservedInstancesListing (Maybe Text) -rilClientToken = lens _rilClientToken (\s a -> s { _rilClientToken = a }) - --- | The time the listing was created. -rilCreateDate :: Lens' ReservedInstancesListing (Maybe UTCTime) -rilCreateDate = lens _rilCreateDate (\s a -> s { _rilCreateDate = a }) . mapping _Time - --- | The number of instances in this state. -rilInstanceCounts :: Lens' ReservedInstancesListing [InstanceCount] -rilInstanceCounts = - lens _rilInstanceCounts (\s a -> s { _rilInstanceCounts = a }) - . _List - --- | The price of the Reserved Instance listing. -rilPriceSchedules :: Lens' ReservedInstancesListing [PriceSchedule] -rilPriceSchedules = - lens _rilPriceSchedules (\s a -> s { _rilPriceSchedules = a }) - . _List - --- | The ID of the Reserved Instance. -rilReservedInstancesId :: Lens' ReservedInstancesListing (Maybe Text) -rilReservedInstancesId = - lens _rilReservedInstancesId (\s a -> s { _rilReservedInstancesId = a }) - --- | The ID of the Reserved Instance listing. -rilReservedInstancesListingId :: Lens' ReservedInstancesListing (Maybe Text) -rilReservedInstancesListingId = - lens _rilReservedInstancesListingId - (\s a -> s { _rilReservedInstancesListingId = a }) - --- | The status of the Reserved Instance listing. -rilStatus :: Lens' ReservedInstancesListing (Maybe ListingStatus) -rilStatus = lens _rilStatus (\s a -> s { _rilStatus = a }) - --- | 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 }) - --- | Any tags assigned to the resource. -rilTags :: Lens' ReservedInstancesListing [Tag] -rilTags = lens _rilTags (\s a -> s { _rilTags = a }) . _List - --- | The last modified timestamp of the listing. -rilUpdateDate :: Lens' ReservedInstancesListing (Maybe UTCTime) -rilUpdateDate = lens _rilUpdateDate (\s a -> s { _rilUpdateDate = a }) . mapping _Time - -instance FromXML ReservedInstancesListing where - parseXML x = ReservedInstancesListing - <$> x .@? "clientToken" - <*> x .@? "createDate" - <*> x .@ "instanceCounts" - <*> x .@ "priceSchedules" - <*> x .@? "reservedInstancesId" - <*> x .@? "reservedInstancesListingId" - <*> x .@? "status" - <*> x .@? "statusMessage" - <*> x .@ "tagSet" - <*> x .@? "updateDate" - -instance ToQuery ReservedInstancesListing where - toQuery ReservedInstancesListing{..} = mconcat - [ "clientToken" =? _rilClientToken - , "createDate" =? _rilCreateDate - , "instanceCounts" =? _rilInstanceCounts - , "priceSchedules" =? _rilPriceSchedules - , "reservedInstancesId" =? _rilReservedInstancesId - , "reservedInstancesListingId" =? _rilReservedInstancesListingId - , "status" =? _rilStatus - , "statusMessage" =? _rilStatusMessage - , "tagSet" =? _rilTags - , "updateDate" =? _rilUpdateDate - ] - -data InstanceLifecycleType - = Spot -- ^ spot - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable InstanceLifecycleType - -instance FromText InstanceLifecycleType where - parser = match "spot" Spot - -instance ToText InstanceLifecycleType where - toText Spot = "spot" - -instance ToByteString InstanceLifecycleType -instance ToHeader InstanceLifecycleType -instance ToQuery InstanceLifecycleType - -instance FromXML InstanceLifecycleType where - parseXML = parseXMLText "InstanceLifecycleType" - - -data VirtualizationType - = Hvm -- ^ hvm - | Paravirtual -- ^ paravirtual - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable VirtualizationType - -instance FromText VirtualizationType where - parser = match "hvm" Hvm - <|> match "paravirtual" Paravirtual - -instance ToText VirtualizationType where - toText = \case - Hvm -> "hvm" - Paravirtual -> "paravirtual" - -instance ToByteString VirtualizationType -instance ToHeader VirtualizationType -instance ToQuery VirtualizationType - -instance FromXML VirtualizationType where - parseXML = parseXMLText "VirtualizationType" - - -data NetworkInterfaceStatus - = Attaching -- ^ attaching - | Available -- ^ available - | Detaching -- ^ detaching - | InUse -- ^ in-use - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable NetworkInterfaceStatus - -instance FromText NetworkInterfaceStatus where - parser = match "attaching" Attaching - <|> match "available" Available - <|> match "detaching" Detaching - <|> match "in-use" InUse - -instance ToText NetworkInterfaceStatus where - toText = \case - Attaching -> "attaching" - Available -> "available" - Detaching -> "detaching" - InUse -> "in-use" - -instance ToByteString NetworkInterfaceStatus -instance ToHeader NetworkInterfaceStatus -instance ToQuery NetworkInterfaceStatus - -instance FromXML NetworkInterfaceStatus where - parseXML = parseXMLText "NetworkInterfaceStatus" - - -data PlatformValues - = Windows -- ^ Windows - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable PlatformValues - -instance FromText PlatformValues where - parser = match "Windows" Windows - -instance ToText PlatformValues where - toText Windows = "Windows" - -instance ToByteString PlatformValues -instance ToHeader PlatformValues -instance ToQuery PlatformValues - -instance FromXML PlatformValues where - parseXML = parseXMLText "PlatformValues" - - -data CreateVolumePermission = CreateVolumePermission - { _cvpGroup :: Maybe PermissionGroup - , _cvpUserId :: Maybe Text - } deriving (Eq, Show) - --- | 'CreateVolumePermission' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'cvpGroup' @::@ 'Maybe' 'PermissionGroup' --- --- * 'cvpUserId' @::@ 'Maybe' 'Text' --- -createVolumePermission :: CreateVolumePermission -createVolumePermission = CreateVolumePermission - { _cvpUserId = Nothing - , _cvpGroup = 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 ToQuery CreateVolumePermission where - toQuery CreateVolumePermission{..} = mconcat - [ "group" =? _cvpGroup - , "userId" =? _cvpUserId - ] - -data NetworkInterfaceAttachmentChanges = NetworkInterfaceAttachmentChanges - { _niacAttachmentId :: Maybe Text - , _niacDeleteOnTermination :: Maybe Bool - } deriving (Eq, Ord, Show) - --- | 'NetworkInterfaceAttachmentChanges' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'niacAttachmentId' @::@ 'Maybe' 'Text' --- --- * 'niacDeleteOnTermination' @::@ 'Maybe' 'Bool' --- -networkInterfaceAttachmentChanges :: NetworkInterfaceAttachmentChanges -networkInterfaceAttachmentChanges = NetworkInterfaceAttachmentChanges - { _niacAttachmentId = Nothing - , _niacDeleteOnTermination = Nothing - } - --- | The ID of the network interface attachment. -niacAttachmentId :: Lens' NetworkInterfaceAttachmentChanges (Maybe Text) -niacAttachmentId = lens _niacAttachmentId (\s a -> s { _niacAttachmentId = a }) - --- | 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 }) - -instance FromXML NetworkInterfaceAttachmentChanges where - parseXML x = NetworkInterfaceAttachmentChanges - <$> x .@? "attachmentId" - <*> x .@? "deleteOnTermination" - -instance ToQuery NetworkInterfaceAttachmentChanges where - toQuery NetworkInterfaceAttachmentChanges{..} = mconcat - [ "attachmentId" =? _niacAttachmentId - , "deleteOnTermination" =? _niacDeleteOnTermination - ] - -data RecurringChargeFrequency - = Hourly -- ^ Hourly - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable RecurringChargeFrequency - -instance FromText RecurringChargeFrequency where - parser = match "Hourly" Hourly - -instance ToText RecurringChargeFrequency where - toText Hourly = "Hourly" - -instance ToByteString RecurringChargeFrequency -instance ToHeader RecurringChargeFrequency -instance ToQuery RecurringChargeFrequency - -instance FromXML RecurringChargeFrequency where - parseXML = parseXMLText "RecurringChargeFrequency" - - -data DhcpOptions = DhcpOptions - { _doDhcpConfigurations :: List "item" DhcpConfiguration - , _doDhcpOptionsId :: Maybe Text - , _doTags :: List "item" Tag - } deriving (Eq, Show) - --- | 'DhcpOptions' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'doDhcpConfigurations' @::@ ['DhcpConfiguration'] --- --- * 'doDhcpOptionsId' @::@ 'Maybe' 'Text' --- --- * 'doTags' @::@ ['Tag'] --- -dhcpOptions :: DhcpOptions -dhcpOptions = DhcpOptions - { _doDhcpOptionsId = Nothing - , _doDhcpConfigurations = mempty - , _doTags = mempty - } - --- | One or more DHCP options in the set. -doDhcpConfigurations :: Lens' DhcpOptions [DhcpConfiguration] -doDhcpConfigurations = - lens _doDhcpConfigurations (\s a -> s { _doDhcpConfigurations = a }) - . _List - --- | 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 }) . _List - -instance FromXML DhcpOptions where - parseXML x = DhcpOptions - <$> x .@ "dhcpConfigurationSet" - <*> x .@? "dhcpOptionsId" - <*> x .@ "tagSet" - -instance ToQuery DhcpOptions where - toQuery DhcpOptions{..} = mconcat - [ "dhcpConfigurationSet" =? _doDhcpConfigurations - , "dhcpOptionsId" =? _doDhcpOptionsId - , "tagSet" =? _doTags - ] - -data InstanceNetworkInterfaceSpecification = InstanceNetworkInterfaceSpecification - { _inisAssociatePublicIpAddress :: Maybe Bool - , _inisDeleteOnTermination :: Maybe Bool - , _inisDescription :: Maybe Text - , _inisDeviceIndex :: Maybe Int - , _inisGroups :: List "SecurityGroupId" Text - , _inisNetworkInterfaceId :: Maybe Text - , _inisPrivateIpAddress :: Maybe Text - , _inisPrivateIpAddresses :: List "item" PrivateIpAddressSpecification - , _inisSecondaryPrivateIpAddressCount :: Maybe Int - , _inisSubnetId :: Maybe Text - } deriving (Eq, Show) - --- | 'InstanceNetworkInterfaceSpecification' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'inisAssociatePublicIpAddress' @::@ 'Maybe' 'Bool' --- --- * 'inisDeleteOnTermination' @::@ 'Maybe' 'Bool' --- --- * 'inisDescription' @::@ 'Maybe' 'Text' --- --- * 'inisDeviceIndex' @::@ 'Maybe' 'Int' --- --- * 'inisGroups' @::@ ['Text'] --- --- * 'inisNetworkInterfaceId' @::@ 'Maybe' 'Text' --- --- * 'inisPrivateIpAddress' @::@ 'Maybe' 'Text' --- --- * 'inisPrivateIpAddresses' @::@ ['PrivateIpAddressSpecification'] --- --- * 'inisSecondaryPrivateIpAddressCount' @::@ 'Maybe' 'Int' --- --- * 'inisSubnetId' @::@ 'Maybe' 'Text' --- -instanceNetworkInterfaceSpecification :: InstanceNetworkInterfaceSpecification -instanceNetworkInterfaceSpecification = InstanceNetworkInterfaceSpecification - { _inisNetworkInterfaceId = Nothing - , _inisDeviceIndex = Nothing - , _inisSubnetId = Nothing - , _inisDescription = Nothing - , _inisPrivateIpAddress = Nothing - , _inisGroups = mempty - , _inisDeleteOnTermination = Nothing - , _inisPrivateIpAddresses = mempty - , _inisSecondaryPrivateIpAddressCount = Nothing - , _inisAssociatePublicIpAddress = Nothing - } - --- | Indicates whether to assign a public IP 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 luanching into a default subnet, the default value is --- true. -inisAssociatePublicIpAddress :: Lens' InstanceNetworkInterfaceSpecification (Maybe Bool) -inisAssociatePublicIpAddress = - lens _inisAssociatePublicIpAddress - (\s a -> s { _inisAssociatePublicIpAddress = a }) - --- | 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 }) - --- | 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 }) - --- | 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 }) . _List - --- | The ID of the network interface. -inisNetworkInterfaceId :: Lens' InstanceNetworkInterfaceSpecification (Maybe Text) -inisNetworkInterfaceId = - lens _inisNetworkInterfaceId (\s a -> s { _inisNetworkInterfaceId = a }) - --- | The private IP address of the network interface. Applies only if creating --- a network interface when launching an instance. -inisPrivateIpAddress :: Lens' InstanceNetworkInterfaceSpecification (Maybe Text) -inisPrivateIpAddress = - lens _inisPrivateIpAddress (\s a -> s { _inisPrivateIpAddress = a }) - --- | One or more private IP addresses to assign to the network interface. Only --- one private IP address can be designated as primary. -inisPrivateIpAddresses :: Lens' InstanceNetworkInterfaceSpecification [PrivateIpAddressSpecification] -inisPrivateIpAddresses = - lens _inisPrivateIpAddresses (\s a -> s { _inisPrivateIpAddresses = a }) - . _List - --- | The number of secondary private IP addresses. You can't specify this --- option and specify more than one private IP address using the private IP --- addresses option. -inisSecondaryPrivateIpAddressCount :: Lens' InstanceNetworkInterfaceSpecification (Maybe Int) -inisSecondaryPrivateIpAddressCount = - lens _inisSecondaryPrivateIpAddressCount - (\s a -> s { _inisSecondaryPrivateIpAddressCount = 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 }) - -instance FromXML InstanceNetworkInterfaceSpecification where - parseXML x = InstanceNetworkInterfaceSpecification - <$> x .@? "associatePublicIpAddress" - <*> x .@? "deleteOnTermination" - <*> x .@? "description" - <*> x .@? "deviceIndex" - <*> x .@ "SecurityGroupId" - <*> x .@? "networkInterfaceId" - <*> x .@? "privateIpAddress" - <*> x .@ "privateIpAddressesSet" - <*> x .@? "secondaryPrivateIpAddressCount" - <*> x .@? "subnetId" - -instance ToQuery InstanceNetworkInterfaceSpecification where - toQuery InstanceNetworkInterfaceSpecification{..} = mconcat - [ "associatePublicIpAddress" =? _inisAssociatePublicIpAddress - , "deleteOnTermination" =? _inisDeleteOnTermination - , "description" =? _inisDescription - , "deviceIndex" =? _inisDeviceIndex - , "SecurityGroupId" =? _inisGroups - , "networkInterfaceId" =? _inisNetworkInterfaceId - , "privateIpAddress" =? _inisPrivateIpAddress - , "privateIpAddressesSet" =? _inisPrivateIpAddresses - , "secondaryPrivateIpAddressCount" =? _inisSecondaryPrivateIpAddressCount - , "subnetId" =? _inisSubnetId - ] - -data VolumeState - = VSAvailable -- ^ available - | VSCreating -- ^ creating - | VSDeleted -- ^ deleted - | VSDeleting -- ^ deleting - | VSError -- ^ error - | VSInUse -- ^ in-use - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable VolumeState - -instance FromText VolumeState where - parser = match "available" VSAvailable - <|> match "creating" VSCreating - <|> match "deleted" VSDeleted - <|> match "deleting" VSDeleting - <|> match "error" VSError - <|> match "in-use" VSInUse - -instance ToText VolumeState where - toText = \case - VSAvailable -> "available" - VSCreating -> "creating" - VSDeleted -> "deleted" - VSDeleting -> "deleting" - VSError -> "error" - VSInUse -> "in-use" - -instance ToByteString VolumeState -instance ToHeader VolumeState -instance ToQuery VolumeState - -instance FromXML VolumeState where - parseXML = parseXMLText "VolumeState" - - -newtype AttributeValue = AttributeValue - { _avValue :: Maybe Text - } deriving (Eq, Ord, Show, Monoid) - --- | 'AttributeValue' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'avValue' @::@ 'Maybe' 'Text' --- -attributeValue :: AttributeValue -attributeValue = AttributeValue - { _avValue = Nothing - } - -avValue :: Lens' AttributeValue (Maybe Text) -avValue = lens _avValue (\s a -> s { _avValue = a }) - -instance FromXML AttributeValue where - parseXML x = AttributeValue - <$> x .@? "value" - -instance ToQuery AttributeValue where - toQuery AttributeValue{..} = mconcat - [ "value" =? _avValue - ] - -data PrivateIpAddressSpecification = PrivateIpAddressSpecification - { _piasPrimary :: Maybe Bool - , _piasPrivateIpAddress :: Text - } deriving (Eq, Ord, Show) - --- | 'PrivateIpAddressSpecification' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'piasPrimary' @::@ 'Maybe' 'Bool' --- --- * 'piasPrivateIpAddress' @::@ 'Text' --- -privateIpAddressSpecification :: Text -- ^ 'piasPrivateIpAddress' - -> PrivateIpAddressSpecification -privateIpAddressSpecification p1 = PrivateIpAddressSpecification - { _piasPrivateIpAddress = p1 - , _piasPrimary = Nothing - } - --- | Indicates whether the private IP address is the primary private IP --- address. Only one IP address can be designated as primary. -piasPrimary :: Lens' PrivateIpAddressSpecification (Maybe Bool) -piasPrimary = lens _piasPrimary (\s a -> s { _piasPrimary = a }) - --- | The private IP 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 ToQuery PrivateIpAddressSpecification where - toQuery PrivateIpAddressSpecification{..} = mconcat - [ "primary" =? _piasPrimary - , "privateIpAddress" =? _piasPrivateIpAddress - ] - -data Image = Image - { _iArchitecture :: ArchitectureValues - , _iBlockDeviceMappings :: List "item" BlockDeviceMapping - , _iDescription :: Maybe Text - , _iHypervisor :: HypervisorType - , _iImageId :: Text - , _iImageLocation :: Text - , _iImageOwnerAlias :: Maybe Text - , _iImageType :: ImageTypeValues - , _iKernelId :: Maybe Text - , _iName :: Text - , _iOwnerId :: Text - , _iPlatform :: Maybe PlatformValues - , _iProductCodes :: List "item" ProductCode - , _iPublic :: Bool - , _iRamdiskId :: Maybe Text - , _iRootDeviceName :: Maybe Text - , _iRootDeviceType :: DeviceType - , _iSriovNetSupport :: Maybe Text - , _iState :: ImageState - , _iStateReason :: Maybe StateReason - , _iTags :: List "item" Tag - , _iVirtualizationType :: VirtualizationType - } deriving (Eq, Show) - --- | 'Image' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'iArchitecture' @::@ 'ArchitectureValues' --- --- * 'iBlockDeviceMappings' @::@ ['BlockDeviceMapping'] --- --- * 'iDescription' @::@ 'Maybe' 'Text' --- --- * 'iHypervisor' @::@ 'HypervisorType' --- --- * 'iImageId' @::@ 'Text' --- --- * 'iImageLocation' @::@ 'Text' --- --- * 'iImageOwnerAlias' @::@ 'Maybe' 'Text' --- --- * 'iImageType' @::@ 'ImageTypeValues' --- --- * 'iKernelId' @::@ 'Maybe' 'Text' --- --- * 'iName' @::@ 'Text' --- --- * 'iOwnerId' @::@ 'Text' --- --- * 'iPlatform' @::@ 'Maybe' 'PlatformValues' --- --- * 'iProductCodes' @::@ ['ProductCode'] --- --- * 'iPublic' @::@ 'Bool' --- --- * 'iRamdiskId' @::@ 'Maybe' 'Text' --- --- * 'iRootDeviceName' @::@ 'Maybe' 'Text' --- --- * 'iRootDeviceType' @::@ 'DeviceType' --- --- * 'iSriovNetSupport' @::@ 'Maybe' 'Text' --- --- * 'iState' @::@ 'ImageState' --- --- * 'iStateReason' @::@ 'Maybe' 'StateReason' --- --- * 'iTags' @::@ ['Tag'] --- --- * 'iVirtualizationType' @::@ 'VirtualizationType' --- -image :: Text -- ^ 'iImageId' - -> Text -- ^ 'iImageLocation' - -> ImageState -- ^ 'iState' - -> Text -- ^ 'iOwnerId' - -> Bool -- ^ 'iPublic' - -> ArchitectureValues -- ^ 'iArchitecture' - -> ImageTypeValues -- ^ 'iImageType' - -> Text -- ^ 'iName' - -> DeviceType -- ^ 'iRootDeviceType' - -> VirtualizationType -- ^ 'iVirtualizationType' - -> HypervisorType -- ^ 'iHypervisor' - -> Image -image p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 = Image - { _iImageId = p1 - , _iImageLocation = p2 - , _iState = p3 - , _iOwnerId = p4 - , _iPublic = p5 - , _iArchitecture = p6 - , _iImageType = p7 - , _iName = p8 - , _iRootDeviceType = p9 - , _iVirtualizationType = p10 - , _iHypervisor = p11 - , _iProductCodes = mempty - , _iKernelId = Nothing - , _iRamdiskId = Nothing - , _iPlatform = Nothing - , _iSriovNetSupport = Nothing - , _iStateReason = Nothing - , _iImageOwnerAlias = Nothing - , _iDescription = Nothing - , _iRootDeviceName = Nothing - , _iBlockDeviceMappings = mempty - , _iTags = mempty - } - --- | The architecture of the image. -iArchitecture :: Lens' Image ArchitectureValues -iArchitecture = lens _iArchitecture (\s a -> s { _iArchitecture = a }) - --- | Any block device mapping entries. -iBlockDeviceMappings :: Lens' Image [BlockDeviceMapping] -iBlockDeviceMappings = - lens _iBlockDeviceMappings (\s a -> s { _iBlockDeviceMappings = a }) - . _List - --- | The description of the AMI that was provided during image creation. -iDescription :: Lens' Image (Maybe Text) -iDescription = lens _iDescription (\s a -> s { _iDescription = a }) - --- | The hypervisor type of the image. -iHypervisor :: Lens' Image HypervisorType -iHypervisor = lens _iHypervisor (\s a -> s { _iHypervisor = a }) - --- | 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 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 type of image. -iImageType :: Lens' Image ImageTypeValues -iImageType = lens _iImageType (\s a -> s { _iImageType = 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 name of the AMI that was provided during image creation. -iName :: Lens' Image Text -iName = lens _iName (\s a -> s { _iName = a }) - --- | The AWS account ID of the image owner. -iOwnerId :: Lens' Image Text -iOwnerId = lens _iOwnerId (\s a -> s { _iOwnerId = a }) - --- | The value is Windows for Windows AMIs; otherwise blank. -iPlatform :: Lens' Image (Maybe PlatformValues) -iPlatform = lens _iPlatform (\s a -> s { _iPlatform = a }) - --- | Any product codes associated with the AMI. -iProductCodes :: Lens' Image [ProductCode] -iProductCodes = lens _iProductCodes (\s a -> s { _iProductCodes = a }) . _List - --- | 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 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 device name of the root device (for example, /dev/sda1 or xvda). -iRootDeviceName :: Lens' Image (Maybe Text) -iRootDeviceName = lens _iRootDeviceName (\s a -> s { _iRootDeviceName = a }) - --- | The type of root device used by the AMI. The AMI can use an Amazon EBS --- volume or an instance store volume. -iRootDeviceType :: Lens' Image DeviceType -iRootDeviceType = lens _iRootDeviceType (\s a -> s { _iRootDeviceType = a }) - --- | Specifies whether enhanced networking is enabled. -iSriovNetSupport :: Lens' Image (Maybe Text) -iSriovNetSupport = lens _iSriovNetSupport (\s a -> s { _iSriovNetSupport = 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 reason for the state change. -iStateReason :: Lens' Image (Maybe StateReason) -iStateReason = lens _iStateReason (\s a -> s { _iStateReason = a }) - --- | Any tags assigned to the image. -iTags :: Lens' Image [Tag] -iTags = lens _iTags (\s a -> s { _iTags = a }) . _List - --- | The type of virtualization of the AMI. -iVirtualizationType :: Lens' Image VirtualizationType -iVirtualizationType = - lens _iVirtualizationType (\s a -> s { _iVirtualizationType = a }) - -instance FromXML Image where - parseXML x = Image - <$> x .@ "architecture" - <*> x .@ "blockDeviceMapping" - <*> x .@? "description" - <*> x .@ "hypervisor" - <*> x .@ "imageId" - <*> x .@ "imageLocation" - <*> x .@? "imageOwnerAlias" - <*> x .@ "imageType" - <*> x .@? "kernelId" - <*> x .@ "name" - <*> x .@ "imageOwnerId" - <*> x .@? "platform" - <*> x .@ "productCodes" - <*> x .@ "isPublic" - <*> x .@? "ramdiskId" - <*> x .@? "rootDeviceName" - <*> x .@ "rootDeviceType" - <*> x .@? "sriovNetSupport" - <*> x .@ "imageState" - <*> x .@? "stateReason" - <*> x .@ "tagSet" - <*> x .@ "virtualizationType" - -instance ToQuery Image where - toQuery Image{..} = mconcat - [ "architecture" =? _iArchitecture - , "blockDeviceMapping" =? _iBlockDeviceMappings - , "description" =? _iDescription - , "hypervisor" =? _iHypervisor - , "imageId" =? _iImageId - , "imageLocation" =? _iImageLocation - , "imageOwnerAlias" =? _iImageOwnerAlias - , "imageType" =? _iImageType - , "kernelId" =? _iKernelId - , "name" =? _iName - , "imageOwnerId" =? _iOwnerId - , "platform" =? _iPlatform - , "productCodes" =? _iProductCodes - , "isPublic" =? _iPublic - , "ramdiskId" =? _iRamdiskId - , "rootDeviceName" =? _iRootDeviceName - , "rootDeviceType" =? _iRootDeviceType - , "sriovNetSupport" =? _iSriovNetSupport - , "imageState" =? _iState - , "stateReason" =? _iStateReason - , "tagSet" =? _iTags - , "virtualizationType" =? _iVirtualizationType - ] - -data DhcpConfiguration = DhcpConfiguration - { _dcKey :: Maybe Text - , _dcValues :: List "item" AttributeValue - } deriving (Eq, Show) - --- | 'DhcpConfiguration' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'dcKey' @::@ 'Maybe' 'Text' --- --- * 'dcValues' @::@ ['AttributeValue'] --- -dhcpConfiguration :: DhcpConfiguration -dhcpConfiguration = DhcpConfiguration - { _dcKey = Nothing - , _dcValues = mempty - } - --- | The name of a DHCP option. -dcKey :: Lens' DhcpConfiguration (Maybe Text) -dcKey = lens _dcKey (\s a -> s { _dcKey = a }) - --- | One or more values for the DHCP option. -dcValues :: Lens' DhcpConfiguration [AttributeValue] -dcValues = lens _dcValues (\s a -> s { _dcValues = a }) . _List - -instance FromXML DhcpConfiguration where - parseXML x = DhcpConfiguration - <$> x .@? "key" - <*> x .@ "valueSet" - -instance ToQuery DhcpConfiguration where - toQuery DhcpConfiguration{..} = mconcat - [ "key" =? _dcKey - , "valueSet" =? _dcValues - ] - -data Tag = Tag - { _tagKey :: Text - , _tagValue :: Text - } deriving (Eq, Ord, Show) - --- | 'Tag' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'tagKey' @::@ 'Text' --- --- * 'tagValue' @::@ 'Text' --- -tag :: Text -- ^ 'tagKey' - -> Text -- ^ 'tagValue' - -> Tag -tag p1 p2 = Tag - { _tagKey = p1 - , _tagValue = p2 - } - --- | 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 ToQuery Tag where - toQuery Tag{..} = mconcat - [ "key" =? _tagKey - , "value" =? _tagValue - ] - -data AccountAttributeName - = DefaultVpc -- ^ default-vpc - | SupportedPlatforms -- ^ supported-platforms - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable AccountAttributeName - -instance FromText AccountAttributeName where - parser = match "default-vpc" DefaultVpc - <|> match "supported-platforms" SupportedPlatforms - -instance ToText AccountAttributeName where - toText = \case - DefaultVpc -> "default-vpc" - SupportedPlatforms -> "supported-platforms" - -instance ToByteString AccountAttributeName -instance ToHeader AccountAttributeName -instance ToQuery AccountAttributeName - -instance FromXML AccountAttributeName where - parseXML = parseXMLText "AccountAttributeName" - - -data NetworkInterfaceAttachment = NetworkInterfaceAttachment - { _niaAttachTime :: Maybe RFC822 - , _niaAttachmentId :: Maybe Text - , _niaDeleteOnTermination :: Maybe Bool - , _niaDeviceIndex :: Maybe Int - , _niaInstanceId :: Maybe Text - , _niaInstanceOwnerId :: Maybe Text - , _niaStatus :: Maybe AttachmentStatus - } deriving (Eq, Show) - --- | 'NetworkInterfaceAttachment' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'niaAttachTime' @::@ 'Maybe' 'UTCTime' --- --- * 'niaAttachmentId' @::@ 'Maybe' 'Text' --- --- * 'niaDeleteOnTermination' @::@ 'Maybe' 'Bool' --- --- * 'niaDeviceIndex' @::@ 'Maybe' 'Int' --- --- * 'niaInstanceId' @::@ 'Maybe' 'Text' --- --- * 'niaInstanceOwnerId' @::@ 'Maybe' 'Text' --- --- * 'niaStatus' @::@ 'Maybe' 'AttachmentStatus' --- -networkInterfaceAttachment :: NetworkInterfaceAttachment -networkInterfaceAttachment = NetworkInterfaceAttachment - { _niaAttachmentId = Nothing - , _niaInstanceId = Nothing - , _niaInstanceOwnerId = Nothing - , _niaDeviceIndex = Nothing - , _niaStatus = Nothing - , _niaAttachTime = Nothing - , _niaDeleteOnTermination = Nothing - } - --- | The timestamp indicating when the attachment initiated. -niaAttachTime :: Lens' NetworkInterfaceAttachment (Maybe UTCTime) -niaAttachTime = lens _niaAttachTime (\s a -> s { _niaAttachTime = a }) . mapping _Time - --- | The ID of the network interface attachment. -niaAttachmentId :: Lens' NetworkInterfaceAttachment (Maybe Text) -niaAttachmentId = lens _niaAttachmentId (\s a -> s { _niaAttachmentId = 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 device index of the network interface attachment on the instance. -niaDeviceIndex :: Lens' NetworkInterfaceAttachment (Maybe Int) -niaDeviceIndex = lens _niaDeviceIndex (\s a -> s { _niaDeviceIndex = a }) - --- | The ID of the instance. -niaInstanceId :: Lens' NetworkInterfaceAttachment (Maybe Text) -niaInstanceId = lens _niaInstanceId (\s a -> s { _niaInstanceId = 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 attachment state. -niaStatus :: Lens' NetworkInterfaceAttachment (Maybe AttachmentStatus) -niaStatus = lens _niaStatus (\s a -> s { _niaStatus = a }) - -instance FromXML NetworkInterfaceAttachment where - parseXML x = NetworkInterfaceAttachment - <$> x .@? "attachTime" - <*> x .@? "attachmentId" - <*> x .@? "deleteOnTermination" - <*> x .@? "deviceIndex" - <*> x .@? "instanceId" - <*> x .@? "instanceOwnerId" - <*> x .@? "status" - -instance ToQuery NetworkInterfaceAttachment where - toQuery NetworkInterfaceAttachment{..} = mconcat - [ "attachTime" =? _niaAttachTime - , "attachmentId" =? _niaAttachmentId - , "deleteOnTermination" =? _niaDeleteOnTermination - , "deviceIndex" =? _niaDeviceIndex - , "instanceId" =? _niaInstanceId - , "instanceOwnerId" =? _niaInstanceOwnerId - , "status" =? _niaStatus - ] - -newtype RunInstancesMonitoringEnabled = RunInstancesMonitoringEnabled - { _rimeEnabled :: Bool - } deriving (Eq, Ord, Show, Enum) - --- | 'RunInstancesMonitoringEnabled' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'rimeEnabled' @::@ 'Bool' --- -runInstancesMonitoringEnabled :: Bool -- ^ 'rimeEnabled' - -> RunInstancesMonitoringEnabled -runInstancesMonitoringEnabled p1 = RunInstancesMonitoringEnabled - { _rimeEnabled = p1 - } - --- | Indicates whether monitoring is enabled for the instance. -rimeEnabled :: Lens' RunInstancesMonitoringEnabled Bool -rimeEnabled = lens _rimeEnabled (\s a -> s { _rimeEnabled = a }) - -instance FromXML RunInstancesMonitoringEnabled where - parseXML x = RunInstancesMonitoringEnabled - <$> x .@ "enabled" - -instance ToQuery RunInstancesMonitoringEnabled where - toQuery RunInstancesMonitoringEnabled{..} = mconcat - [ "enabled" =? _rimeEnabled - ] - -data VolumeStatusInfo = VolumeStatusInfo - { _vsiDetails :: List "item" VolumeStatusDetails - , _vsiStatus :: Maybe VolumeStatusInfoStatus - } deriving (Eq, Show) - --- | 'VolumeStatusInfo' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'vsiDetails' @::@ ['VolumeStatusDetails'] --- --- * 'vsiStatus' @::@ 'Maybe' 'VolumeStatusInfoStatus' --- -volumeStatusInfo :: VolumeStatusInfo -volumeStatusInfo = VolumeStatusInfo - { _vsiStatus = Nothing - , _vsiDetails = mempty - } - --- | The details of the volume status. -vsiDetails :: Lens' VolumeStatusInfo [VolumeStatusDetails] -vsiDetails = lens _vsiDetails (\s a -> s { _vsiDetails = a }) . _List - --- | The status of the volume. -vsiStatus :: Lens' VolumeStatusInfo (Maybe VolumeStatusInfoStatus) -vsiStatus = lens _vsiStatus (\s a -> s { _vsiStatus = a }) - -instance FromXML VolumeStatusInfo where - parseXML x = VolumeStatusInfo - <$> x .@ "details" - <*> x .@? "status" - -instance ToQuery VolumeStatusInfo where - toQuery VolumeStatusInfo{..} = mconcat - [ "details" =? _vsiDetails - , "status" =? _vsiStatus - ] - -data NetworkInterfaceAssociation = NetworkInterfaceAssociation - { _niaAllocationId :: Maybe Text - , _niaAssociationId :: Maybe Text - , _niaIpOwnerId :: Maybe Text - , _niaPublicDnsName :: Maybe Text - , _niaPublicIp :: Maybe Text - } deriving (Eq, Ord, Show) - --- | 'NetworkInterfaceAssociation' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'niaAllocationId' @::@ 'Maybe' 'Text' --- --- * 'niaAssociationId' @::@ 'Maybe' 'Text' --- --- * 'niaIpOwnerId' @::@ 'Maybe' 'Text' --- --- * 'niaPublicDnsName' @::@ 'Maybe' 'Text' --- --- * 'niaPublicIp' @::@ 'Maybe' 'Text' --- -networkInterfaceAssociation :: NetworkInterfaceAssociation -networkInterfaceAssociation = NetworkInterfaceAssociation - { _niaPublicIp = Nothing - , _niaPublicDnsName = Nothing - , _niaIpOwnerId = Nothing - , _niaAllocationId = Nothing - , _niaAssociationId = Nothing - } - --- | The allocation ID. -niaAllocationId :: Lens' NetworkInterfaceAssociation (Maybe Text) -niaAllocationId = lens _niaAllocationId (\s a -> s { _niaAllocationId = a }) - --- | The association ID. -niaAssociationId :: Lens' NetworkInterfaceAssociation (Maybe Text) -niaAssociationId = lens _niaAssociationId (\s a -> s { _niaAssociationId = a }) - --- | The ID of the Elastic IP address owner. -niaIpOwnerId :: Lens' NetworkInterfaceAssociation (Maybe Text) -niaIpOwnerId = lens _niaIpOwnerId (\s a -> s { _niaIpOwnerId = a }) - --- | The public DNS name. -niaPublicDnsName :: Lens' NetworkInterfaceAssociation (Maybe Text) -niaPublicDnsName = lens _niaPublicDnsName (\s a -> s { _niaPublicDnsName = 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 .@? "allocationId" - <*> x .@? "associationId" - <*> x .@? "ipOwnerId" - <*> x .@? "publicDnsName" - <*> x .@? "publicIp" - -instance ToQuery NetworkInterfaceAssociation where - toQuery NetworkInterfaceAssociation{..} = mconcat - [ "allocationId" =? _niaAllocationId - , "associationId" =? _niaAssociationId - , "ipOwnerId" =? _niaIpOwnerId - , "publicDnsName" =? _niaPublicDnsName - , "publicIp" =? _niaPublicIp - ] - -data CreateVolumePermissionModifications = CreateVolumePermissionModifications - { _cvpmAdd :: List "item" CreateVolumePermission - , _cvpmRemove :: List "item" CreateVolumePermission - } deriving (Eq, Show) - --- | 'CreateVolumePermissionModifications' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'cvpmAdd' @::@ ['CreateVolumePermission'] --- --- * 'cvpmRemove' @::@ ['CreateVolumePermission'] --- -createVolumePermissionModifications :: CreateVolumePermissionModifications -createVolumePermissionModifications = CreateVolumePermissionModifications - { _cvpmAdd = mempty - , _cvpmRemove = mempty - } - --- | 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 }) . _List - --- | 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 }) . _List - -instance FromXML CreateVolumePermissionModifications where - parseXML x = CreateVolumePermissionModifications - <$> x .@ "Add" - <*> x .@ "Remove" - -instance ToQuery CreateVolumePermissionModifications where - toQuery CreateVolumePermissionModifications{..} = mconcat - [ "Add" =? _cvpmAdd - , "Remove" =? _cvpmRemove - ] - -data VpcState - = VpcStateAvailable -- ^ available - | VpcStatePending -- ^ pending - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable VpcState - -instance FromText VpcState where - parser = match "available" VpcStateAvailable - <|> match "pending" VpcStatePending - -instance ToText VpcState where - toText = \case - VpcStateAvailable -> "available" - VpcStatePending -> "pending" - -instance ToByteString VpcState -instance ToHeader VpcState -instance ToQuery VpcState - -instance FromXML VpcState where - parseXML = parseXMLText "VpcState" - - -data ResourceType - = RTCustomerGateway -- ^ customer-gateway - | RTDhcpOptions -- ^ dhcp-options - | RTImage -- ^ image - | RTInstance' -- ^ instance - | RTInternetGateway -- ^ internet-gateway - | RTNetworkAcl -- ^ network-acl - | RTNetworkInterface -- ^ network-interface - | RTReservedInstances -- ^ reserved-instances - | RTRouteTable -- ^ route-table - | RTSecurityGroup -- ^ security-group - | RTSnapshot -- ^ snapshot - | RTSpotInstancesRequest -- ^ spot-instances-request - | RTSubnet -- ^ subnet - | RTVolume -- ^ volume - | RTVpc -- ^ vpc - | RTVpnConnection -- ^ vpn-connection - | RTVpnGateway -- ^ vpn-gateway - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable ResourceType - -instance FromText ResourceType where - parser = match "customer-gateway" RTCustomerGateway - <|> match "dhcp-options" RTDhcpOptions - <|> match "image" RTImage - <|> match "instance" RTInstance' - <|> match "internet-gateway" RTInternetGateway - <|> match "network-acl" RTNetworkAcl - <|> match "network-interface" RTNetworkInterface - <|> match "reserved-instances" RTReservedInstances - <|> match "route-table" RTRouteTable - <|> match "security-group" RTSecurityGroup - <|> match "snapshot" RTSnapshot - <|> match "spot-instances-request" RTSpotInstancesRequest - <|> match "subnet" RTSubnet - <|> match "volume" RTVolume - <|> match "vpc" RTVpc - <|> match "vpn-connection" RTVpnConnection - <|> match "vpn-gateway" RTVpnGateway - -instance ToText ResourceType where - toText = \case - RTCustomerGateway -> "customer-gateway" - RTDhcpOptions -> "dhcp-options" - RTImage -> "image" - RTInstance' -> "instance" - RTInternetGateway -> "internet-gateway" - RTNetworkAcl -> "network-acl" - RTNetworkInterface -> "network-interface" - RTReservedInstances -> "reserved-instances" - RTRouteTable -> "route-table" - RTSecurityGroup -> "security-group" - RTSnapshot -> "snapshot" - RTSpotInstancesRequest -> "spot-instances-request" - RTSubnet -> "subnet" - RTVolume -> "volume" - RTVpc -> "vpc" - RTVpnConnection -> "vpn-connection" - RTVpnGateway -> "vpn-gateway" - -instance ToByteString ResourceType -instance ToHeader ResourceType -instance ToQuery ResourceType - -instance FromXML ResourceType where - parseXML = parseXMLText "ResourceType" - - -data ReportStatusType - = Impaired -- ^ impaired - | Ok -- ^ ok - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable ReportStatusType - -instance FromText ReportStatusType where - parser = match "impaired" Impaired - <|> match "ok" Ok - -instance ToText ReportStatusType where - toText = \case - Impaired -> "impaired" - Ok -> "ok" - -instance ToByteString ReportStatusType -instance ToHeader ReportStatusType -instance ToQuery ReportStatusType - -instance FromXML ReportStatusType where - parseXML = parseXMLText "ReportStatusType" - - -data CurrencyCodeValues - = Usd -- ^ USD - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable CurrencyCodeValues - -instance FromText CurrencyCodeValues where - parser = match "USD" Usd - -instance ToText CurrencyCodeValues where - toText Usd = "USD" - -instance ToByteString CurrencyCodeValues -instance ToHeader CurrencyCodeValues -instance ToQuery CurrencyCodeValues - -instance FromXML CurrencyCodeValues where - parseXML = parseXMLText "CurrencyCodeValues" - - -data IcmpTypeCode = IcmpTypeCode - { _itcCode :: Maybe Int - , _itcType :: Maybe Int - } deriving (Eq, Ord, Show) - --- | 'IcmpTypeCode' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'itcCode' @::@ 'Maybe' 'Int' --- --- * 'itcType' @::@ 'Maybe' 'Int' --- -icmpTypeCode :: IcmpTypeCode -icmpTypeCode = IcmpTypeCode - { _itcType = Nothing - , _itcCode = Nothing - } - --- | The ICMP type. A value of -1 means all types. -itcCode :: Lens' IcmpTypeCode (Maybe Int) -itcCode = lens _itcCode (\s a -> s { _itcCode = a }) - --- | The ICMP code. A value of -1 means all codes for the specified ICMP type. -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 ToQuery IcmpTypeCode where - toQuery IcmpTypeCode{..} = mconcat - [ "code" =? _itcCode - , "type" =? _itcType - ] - -data InstanceCount = InstanceCount - { _icInstanceCount :: Maybe Int - , _icState :: Maybe ListingState - } deriving (Eq, Show) - --- | 'InstanceCount' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'icInstanceCount' @::@ 'Maybe' 'Int' --- --- * 'icState' @::@ 'Maybe' 'ListingState' --- -instanceCount :: InstanceCount -instanceCount = InstanceCount - { _icState = Nothing - , _icInstanceCount = Nothing - } - --- | he 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 }) - --- | The states of the listed Reserved Instances. -icState :: Lens' InstanceCount (Maybe ListingState) -icState = lens _icState (\s a -> s { _icState = a }) - -instance FromXML InstanceCount where - parseXML x = InstanceCount - <$> x .@? "instanceCount" - <*> x .@? "state" - -instance ToQuery InstanceCount where - toQuery InstanceCount{..} = mconcat - [ "instanceCount" =? _icInstanceCount - , "state" =? _icState - ] - -data ExportToS3Task = ExportToS3Task - { _etstContainerFormat :: Maybe ContainerFormat - , _etstDiskImageFormat :: Maybe DiskImageFormat - , _etstS3Bucket :: Maybe Text - , _etstS3Key :: Maybe Text - } deriving (Eq, Show) - --- | 'ExportToS3Task' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'etstContainerFormat' @::@ 'Maybe' 'ContainerFormat' --- --- * 'etstDiskImageFormat' @::@ 'Maybe' 'DiskImageFormat' --- --- * 'etstS3Bucket' @::@ 'Maybe' 'Text' --- --- * 'etstS3Key' @::@ 'Maybe' 'Text' --- -exportToS3Task :: ExportToS3Task -exportToS3Task = ExportToS3Task - { _etstDiskImageFormat = Nothing - , _etstContainerFormat = Nothing - , _etstS3Bucket = Nothing - , _etstS3Key = Nothing - } - --- | 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 format for the exported image. -etstDiskImageFormat :: Lens' ExportToS3Task (Maybe DiskImageFormat) -etstDiskImageFormat = - lens _etstDiskImageFormat (\s a -> s { _etstDiskImageFormat = a }) - --- | The Amazon S3 bucket for the destination image. The destination bucket --- must exist and grant WRITE and READ_ACL permissions to the AWS account --- vm-import-export@amazon.com. -etstS3Bucket :: Lens' ExportToS3Task (Maybe Text) -etstS3Bucket = lens _etstS3Bucket (\s a -> s { _etstS3Bucket = a }) - -etstS3Key :: Lens' ExportToS3Task (Maybe Text) -etstS3Key = lens _etstS3Key (\s a -> s { _etstS3Key = a }) - -instance FromXML ExportToS3Task where - parseXML x = ExportToS3Task - <$> x .@? "containerFormat" - <*> x .@? "diskImageFormat" - <*> x .@? "s3Bucket" - <*> x .@? "s3Key" - -instance ToQuery ExportToS3Task where - toQuery ExportToS3Task{..} = mconcat - [ "containerFormat" =? _etstContainerFormat - , "diskImageFormat" =? _etstDiskImageFormat - , "s3Bucket" =? _etstS3Bucket - , "s3Key" =? _etstS3Key - ] - -data BlockDeviceMapping = BlockDeviceMapping - { _bdmDeviceName :: Text - , _bdmEbs :: Maybe EbsBlockDevice - , _bdmNoDevice :: Maybe Text - , _bdmVirtualName :: Maybe Text - } deriving (Eq, Show) - --- | 'BlockDeviceMapping' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'bdmDeviceName' @::@ 'Text' --- --- * 'bdmEbs' @::@ 'Maybe' 'EbsBlockDevice' --- --- * 'bdmNoDevice' @::@ 'Maybe' 'Text' --- --- * 'bdmVirtualName' @::@ 'Maybe' 'Text' --- -blockDeviceMapping :: Text -- ^ 'bdmDeviceName' - -> BlockDeviceMapping -blockDeviceMapping p1 = BlockDeviceMapping - { _bdmDeviceName = p1 - , _bdmVirtualName = Nothing - , _bdmEbs = Nothing - , _bdmNoDevice = Nothing - } - --- | The device name exposed to the instance (for example, /dev/sdh). -bdmDeviceName :: Lens' BlockDeviceMapping Text -bdmDeviceName = lens _bdmDeviceName (\s a -> s { _bdmDeviceName = a }) - --- | Parameters used to automatically set up Amazon EBS volumes when the --- instance is launched. -bdmEbs :: Lens' BlockDeviceMapping (Maybe EbsBlockDevice) -bdmEbs = lens _bdmEbs (\s a -> s { _bdmEbs = 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 }) - --- | The virtual device name (ephemeral[0..3]). 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 }) - -instance FromXML BlockDeviceMapping where - parseXML x = BlockDeviceMapping - <$> x .@ "deviceName" - <*> x .@? "ebs" - <*> x .@? "noDevice" - <*> x .@? "virtualName" - -instance ToQuery BlockDeviceMapping where - toQuery BlockDeviceMapping{..} = mconcat - [ "deviceName" =? _bdmDeviceName - , "ebs" =? _bdmEbs - , "noDevice" =? _bdmNoDevice - , "virtualName" =? _bdmVirtualName - ] - -data ConversionTask = ConversionTask - { _ctConversionTaskId :: Text - , _ctExpirationTime :: Maybe Text - , _ctImportInstance :: Maybe ImportInstanceTaskDetails - , _ctImportVolume :: Maybe ImportVolumeTaskDetails - , _ctState :: ConversionTaskState - , _ctStatusMessage :: Maybe Text - , _ctTags :: List "item" Tag - } deriving (Eq, Show) - --- | 'ConversionTask' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'ctConversionTaskId' @::@ 'Text' --- --- * 'ctExpirationTime' @::@ 'Maybe' 'Text' --- --- * 'ctImportInstance' @::@ 'Maybe' 'ImportInstanceTaskDetails' --- --- * 'ctImportVolume' @::@ 'Maybe' 'ImportVolumeTaskDetails' --- --- * 'ctState' @::@ 'ConversionTaskState' --- --- * 'ctStatusMessage' @::@ 'Maybe' 'Text' --- --- * 'ctTags' @::@ ['Tag'] --- -conversionTask :: Text -- ^ 'ctConversionTaskId' - -> ConversionTaskState -- ^ 'ctState' - -> ConversionTask -conversionTask p1 p2 = ConversionTask - { _ctConversionTaskId = p1 - , _ctState = p2 - , _ctExpirationTime = Nothing - , _ctImportInstance = Nothing - , _ctImportVolume = Nothing - , _ctStatusMessage = Nothing - , _ctTags = mempty - } - --- | The ID of the conversion task. -ctConversionTaskId :: Lens' ConversionTask 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 }) - --- | 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 }) - --- | 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 state of the conversion task. -ctState :: Lens' ConversionTask 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 }) - -ctTags :: Lens' ConversionTask [Tag] -ctTags = lens _ctTags (\s a -> s { _ctTags = a }) . _List - -instance FromXML ConversionTask where - parseXML x = ConversionTask - <$> x .@ "conversionTaskId" - <*> x .@? "expirationTime" - <*> x .@? "importInstance" - <*> x .@? "importVolume" - <*> x .@ "state" - <*> x .@? "statusMessage" - <*> x .@ "tagSet" - -instance ToQuery ConversionTask where - toQuery ConversionTask{..} = mconcat - [ "conversionTaskId" =? _ctConversionTaskId - , "expirationTime" =? _ctExpirationTime - , "importInstance" =? _ctImportInstance - , "importVolume" =? _ctImportVolume - , "state" =? _ctState - , "statusMessage" =? _ctStatusMessage - , "tagSet" =? _ctTags - ] - -data AttachmentStatus - = ASAttached -- ^ attached - | ASAttaching -- ^ attaching - | ASDetached -- ^ detached - | ASDetaching -- ^ detaching - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable AttachmentStatus - -instance FromText AttachmentStatus where - parser = match "attached" ASAttached - <|> match "attaching" ASAttaching - <|> match "detached" ASDetached - <|> match "detaching" ASDetaching - -instance ToText AttachmentStatus where - toText = \case - ASAttached -> "attached" - ASAttaching -> "attaching" - ASDetached -> "detached" - ASDetaching -> "detaching" - -instance ToByteString AttachmentStatus -instance ToHeader AttachmentStatus -instance ToQuery AttachmentStatus - -instance FromXML AttachmentStatus where - parseXML = parseXMLText "AttachmentStatus" - - -data RouteOrigin - = OriginCreateRoute -- ^ CreateRoute - | OriginCreateRouteTable -- ^ CreateRouteTable - | OriginEnableVgwRoutePropagation -- ^ EnableVgwRoutePropagation - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable RouteOrigin - -instance FromText RouteOrigin where - parser = match "CreateRoute" OriginCreateRoute - <|> match "CreateRouteTable" OriginCreateRouteTable - <|> match "EnableVgwRoutePropagation" OriginEnableVgwRoutePropagation - -instance ToText RouteOrigin where - toText = \case - OriginCreateRoute -> "CreateRoute" - OriginCreateRouteTable -> "CreateRouteTable" - OriginEnableVgwRoutePropagation -> "EnableVgwRoutePropagation" - -instance ToByteString RouteOrigin -instance ToHeader RouteOrigin -instance ToQuery RouteOrigin - -instance FromXML RouteOrigin where - parseXML = parseXMLText "RouteOrigin" - - -data ListingState - = LSAvailable -- ^ available - | LSCancelled -- ^ cancelled - | LSPending -- ^ pending - | LSSold -- ^ sold - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable ListingState - -instance FromText ListingState where - parser = match "available" LSAvailable - <|> match "cancelled" LSCancelled - <|> match "pending" LSPending - <|> match "sold" LSSold - -instance ToText ListingState where - toText = \case - LSAvailable -> "available" - LSCancelled -> "cancelled" - LSPending -> "pending" - LSSold -> "sold" - -instance ToByteString ListingState -instance ToHeader ListingState -instance ToQuery ListingState - -instance FromXML ListingState where - parseXML = parseXMLText "ListingState" - - -data SpotPrice = SpotPrice - { _spAvailabilityZone :: Maybe Text - , _spInstanceType :: Maybe InstanceType - , _spProductDescription :: Maybe RIProductDescription - , _spSpotPrice :: Maybe Text - , _spTimestamp :: Maybe RFC822 - } deriving (Eq, Show) - --- | 'SpotPrice' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'spAvailabilityZone' @::@ 'Maybe' 'Text' --- --- * 'spInstanceType' @::@ 'Maybe' 'InstanceType' --- --- * 'spProductDescription' @::@ 'Maybe' 'RIProductDescription' --- --- * 'spSpotPrice' @::@ 'Maybe' 'Text' --- --- * 'spTimestamp' @::@ 'Maybe' 'UTCTime' --- -spotPrice :: SpotPrice -spotPrice = SpotPrice - { _spInstanceType = Nothing - , _spProductDescription = Nothing - , _spSpotPrice = Nothing - , _spTimestamp = Nothing - , _spAvailabilityZone = Nothing - } - --- | The Availability Zone. -spAvailabilityZone :: Lens' SpotPrice (Maybe Text) -spAvailabilityZone = - lens _spAvailabilityZone (\s a -> s { _spAvailabilityZone = a }) - --- | The instance type. -spInstanceType :: Lens' SpotPrice (Maybe InstanceType) -spInstanceType = lens _spInstanceType (\s a -> s { _spInstanceType = a }) - --- | A general description of the AMI. -spProductDescription :: Lens' SpotPrice (Maybe RIProductDescription) -spProductDescription = - lens _spProductDescription (\s a -> s { _spProductDescription = a }) - --- | The maximum price you will pay to launch one or more Spot Instances. -spSpotPrice :: Lens' SpotPrice (Maybe Text) -spSpotPrice = lens _spSpotPrice (\s a -> s { _spSpotPrice = a }) - --- | The date and time the request was created. -spTimestamp :: Lens' SpotPrice (Maybe UTCTime) -spTimestamp = lens _spTimestamp (\s a -> s { _spTimestamp = a }) . mapping _Time - -instance FromXML SpotPrice where - parseXML x = SpotPrice - <$> x .@? "availabilityZone" - <*> x .@? "instanceType" - <*> x .@? "productDescription" - <*> x .@? "spotPrice" - <*> x .@? "timestamp" - -instance ToQuery SpotPrice where - toQuery SpotPrice{..} = mconcat - [ "availabilityZone" =? _spAvailabilityZone - , "instanceType" =? _spInstanceType - , "productDescription" =? _spProductDescription - , "spotPrice" =? _spSpotPrice - , "timestamp" =? _spTimestamp - ] - -data InstanceMonitoring = InstanceMonitoring - { _imInstanceId :: Maybe Text - , _imMonitoring :: Maybe Monitoring - } deriving (Eq, Show) - --- | 'InstanceMonitoring' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'imInstanceId' @::@ 'Maybe' 'Text' --- --- * 'imMonitoring' @::@ 'Maybe' 'Monitoring' --- -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 information. -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 ToQuery InstanceMonitoring where - toQuery InstanceMonitoring{..} = mconcat - [ "instanceId" =? _imInstanceId - , "monitoring" =? _imMonitoring - ] - -data PriceScheduleSpecification = PriceScheduleSpecification - { _pssCurrencyCode :: Maybe CurrencyCodeValues - , _pssPrice :: Maybe Double - , _pssTerm :: Maybe Integer - } deriving (Eq, Show) - --- | 'PriceScheduleSpecification' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'pssCurrencyCode' @::@ 'Maybe' 'CurrencyCodeValues' --- --- * 'pssPrice' @::@ 'Maybe' 'Double' --- --- * 'pssTerm' @::@ 'Maybe' 'Integer' --- -priceScheduleSpecification :: PriceScheduleSpecification -priceScheduleSpecification = PriceScheduleSpecification - { _pssTerm = Nothing - , _pssPrice = Nothing - , _pssCurrencyCode = 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 fixed price for the term. -pssPrice :: Lens' PriceScheduleSpecification (Maybe Double) -pssPrice = lens _pssPrice (\s a -> s { _pssPrice = 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 }) - -instance FromXML PriceScheduleSpecification where - parseXML x = PriceScheduleSpecification - <$> x .@? "currencyCode" - <*> x .@? "price" - <*> x .@? "term" - -instance ToQuery PriceScheduleSpecification where - toQuery PriceScheduleSpecification{..} = mconcat - [ "currencyCode" =? _pssCurrencyCode - , "price" =? _pssPrice - , "term" =? _pssTerm - ] - -data SpotInstanceStatus = SpotInstanceStatus - { _sisCode :: Maybe Text - , _sisMessage :: Maybe Text - , _sisUpdateTime :: Maybe RFC822 - } deriving (Eq, Ord, Show) - --- | 'SpotInstanceStatus' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'sisCode' @::@ 'Maybe' 'Text' --- --- * 'sisMessage' @::@ 'Maybe' 'Text' --- --- * 'sisUpdateTime' @::@ 'Maybe' 'UTCTime' --- -spotInstanceStatus :: SpotInstanceStatus -spotInstanceStatus = SpotInstanceStatus - { _sisCode = Nothing - , _sisUpdateTime = Nothing - , _sisMessage = Nothing - } - --- | The status code of the request. -sisCode :: Lens' SpotInstanceStatus (Maybe Text) -sisCode = lens _sisCode (\s a -> s { _sisCode = a }) - --- | The description for the status code for the Spot request. -sisMessage :: Lens' SpotInstanceStatus (Maybe Text) -sisMessage = lens _sisMessage (\s a -> s { _sisMessage = a }) - --- | The time of the most recent status update. -sisUpdateTime :: Lens' SpotInstanceStatus (Maybe UTCTime) -sisUpdateTime = lens _sisUpdateTime (\s a -> s { _sisUpdateTime = a }) . mapping _Time - -instance FromXML SpotInstanceStatus where - parseXML x = SpotInstanceStatus - <$> x .@? "code" - <*> x .@? "message" - <*> x .@? "updateTime" - -instance ToQuery SpotInstanceStatus where - toQuery SpotInstanceStatus{..} = mconcat - [ "code" =? _sisCode - , "message" =? _sisMessage - , "updateTime" =? _sisUpdateTime - ] - -data AvailabilityZoneState - = AZSAvailable -- ^ available - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable AvailabilityZoneState - -instance FromText AvailabilityZoneState where - parser = match "available" AZSAvailable - -instance ToText AvailabilityZoneState where - toText AZSAvailable = "available" - -instance ToByteString AvailabilityZoneState -instance ToHeader AvailabilityZoneState -instance ToQuery AvailabilityZoneState - -instance FromXML AvailabilityZoneState where - parseXML = parseXMLText "AvailabilityZoneState" - - -data SpotInstanceRequest = SpotInstanceRequest - { _siAvailabilityZoneGroup :: Maybe Text - , _siCreateTime :: Maybe RFC822 - , _siFault :: Maybe SpotInstanceStateFault - , _siInstanceId :: Maybe Text - , _siLaunchGroup :: Maybe Text - , _siLaunchSpecification :: Maybe LaunchSpecification - , _siLaunchedAvailabilityZone :: Maybe Text - , _siProductDescription :: Maybe RIProductDescription - , _siSpotInstanceRequestId :: Maybe Text - , _siSpotPrice :: Maybe Text - , _siState :: Maybe SpotInstanceState - , _siStatus :: Maybe SpotInstanceStatus - , _siTags :: List "item" Tag - , _siType :: Maybe SpotInstanceType - , _siValidFrom :: Maybe RFC822 - , _siValidUntil :: Maybe RFC822 - } deriving (Eq, Show) - --- | 'SpotInstanceRequest' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'siAvailabilityZoneGroup' @::@ 'Maybe' 'Text' --- --- * 'siCreateTime' @::@ 'Maybe' 'UTCTime' --- --- * 'siFault' @::@ 'Maybe' 'SpotInstanceStateFault' --- --- * 'siInstanceId' @::@ 'Maybe' 'Text' --- --- * 'siLaunchGroup' @::@ 'Maybe' 'Text' --- --- * 'siLaunchSpecification' @::@ 'Maybe' 'LaunchSpecification' --- --- * 'siLaunchedAvailabilityZone' @::@ 'Maybe' 'Text' --- --- * 'siProductDescription' @::@ 'Maybe' 'RIProductDescription' --- --- * 'siSpotInstanceRequestId' @::@ 'Maybe' 'Text' --- --- * 'siSpotPrice' @::@ 'Maybe' 'Text' --- --- * 'siState' @::@ 'Maybe' 'SpotInstanceState' --- --- * 'siStatus' @::@ 'Maybe' 'SpotInstanceStatus' --- --- * 'siTags' @::@ ['Tag'] --- --- * 'siType' @::@ 'Maybe' 'SpotInstanceType' --- --- * 'siValidFrom' @::@ 'Maybe' 'UTCTime' --- --- * 'siValidUntil' @::@ 'Maybe' 'UTCTime' --- -spotInstanceRequest :: SpotInstanceRequest -spotInstanceRequest = SpotInstanceRequest - { _siSpotInstanceRequestId = Nothing - , _siSpotPrice = Nothing - , _siType = Nothing - , _siState = Nothing - , _siFault = Nothing - , _siStatus = Nothing - , _siValidFrom = Nothing - , _siValidUntil = Nothing - , _siLaunchGroup = Nothing - , _siAvailabilityZoneGroup = Nothing - , _siLaunchSpecification = Nothing - , _siInstanceId = Nothing - , _siCreateTime = Nothing - , _siProductDescription = Nothing - , _siTags = mempty - , _siLaunchedAvailabilityZone = Nothing - } - --- | 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. -siAvailabilityZoneGroup :: Lens' SpotInstanceRequest (Maybe Text) -siAvailabilityZoneGroup = - lens _siAvailabilityZoneGroup (\s a -> s { _siAvailabilityZoneGroup = a }) - --- | The time stamp when the Spot Instance request was created. -siCreateTime :: Lens' SpotInstanceRequest (Maybe UTCTime) -siCreateTime = lens _siCreateTime (\s a -> s { _siCreateTime = a }) . mapping _Time - --- | The fault codes for the Spot Instance request, if any. -siFault :: Lens' SpotInstanceRequest (Maybe SpotInstanceStateFault) -siFault = lens _siFault (\s a -> s { _siFault = a }) - --- | The instance ID, if an instance has been launched to fulfill the Spot --- Instance request. -siInstanceId :: Lens' SpotInstanceRequest (Maybe Text) -siInstanceId = lens _siInstanceId (\s a -> s { _siInstanceId = a }) - --- | The instance launch group. Launch groups are Spot Instances that launch --- together and terminate together. -siLaunchGroup :: Lens' SpotInstanceRequest (Maybe Text) -siLaunchGroup = lens _siLaunchGroup (\s a -> s { _siLaunchGroup = a }) - --- | Additional information for launching instances. -siLaunchSpecification :: Lens' SpotInstanceRequest (Maybe LaunchSpecification) -siLaunchSpecification = - lens _siLaunchSpecification (\s a -> s { _siLaunchSpecification = a }) - --- | The Availability Zone in which the bid is launched. -siLaunchedAvailabilityZone :: Lens' SpotInstanceRequest (Maybe Text) -siLaunchedAvailabilityZone = - lens _siLaunchedAvailabilityZone - (\s a -> s { _siLaunchedAvailabilityZone = a }) - --- | The product description associated with the Spot Instance. -siProductDescription :: Lens' SpotInstanceRequest (Maybe RIProductDescription) -siProductDescription = - lens _siProductDescription (\s a -> s { _siProductDescription = a }) - --- | The ID of the Spot Instance request. -siSpotInstanceRequestId :: Lens' SpotInstanceRequest (Maybe Text) -siSpotInstanceRequestId = - lens _siSpotInstanceRequestId (\s a -> s { _siSpotInstanceRequestId = a }) - --- | The maximum hourly price for any Spot Instance launched to fulfill the --- request. -siSpotPrice :: Lens' SpotInstanceRequest (Maybe Text) -siSpotPrice = lens _siSpotPrice (\s a -> s { _siSpotPrice = a }) - --- | The state of the Spot Instance request. Spot bid status information can --- help you track your Spot Instance requests. For information, see Tracking --- Spot Requests with Bid Status Codes in the Amazon Elastic Compute Cloud --- User Guide. -siState :: Lens' SpotInstanceRequest (Maybe SpotInstanceState) -siState = lens _siState (\s a -> s { _siState = a }) - --- | The status code and status message describing the Spot Instance request. -siStatus :: Lens' SpotInstanceRequest (Maybe SpotInstanceStatus) -siStatus = lens _siStatus (\s a -> s { _siStatus = a }) - --- | Any tags assigned to the resource. -siTags :: Lens' SpotInstanceRequest [Tag] -siTags = lens _siTags (\s a -> s { _siTags = a }) . _List - --- | The Spot Instance request type. -siType :: Lens' SpotInstanceRequest (Maybe SpotInstanceType) -siType = lens _siType (\s a -> s { _siType = 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. -siValidFrom :: Lens' SpotInstanceRequest (Maybe UTCTime) -siValidFrom = lens _siValidFrom (\s a -> s { _siValidFrom = 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. -siValidUntil :: Lens' SpotInstanceRequest (Maybe UTCTime) -siValidUntil = lens _siValidUntil (\s a -> s { _siValidUntil = a }) . mapping _Time - -instance FromXML SpotInstanceRequest where - parseXML x = SpotInstanceRequest - <$> x .@? "availabilityZoneGroup" - <*> x .@? "createTime" - <*> x .@? "fault" - <*> x .@? "instanceId" - <*> x .@? "launchGroup" - <*> x .@? "launchSpecification" - <*> x .@? "launchedAvailabilityZone" - <*> x .@? "productDescription" - <*> x .@? "spotInstanceRequestId" - <*> x .@? "spotPrice" - <*> x .@? "state" - <*> x .@? "status" - <*> x .@ "tagSet" - <*> x .@? "type" - <*> x .@? "validFrom" - <*> x .@? "validUntil" - -instance ToQuery SpotInstanceRequest where - toQuery SpotInstanceRequest{..} = mconcat - [ "availabilityZoneGroup" =? _siAvailabilityZoneGroup - , "createTime" =? _siCreateTime - , "fault" =? _siFault - , "instanceId" =? _siInstanceId - , "launchGroup" =? _siLaunchGroup - , "launchSpecification" =? _siLaunchSpecification - , "launchedAvailabilityZone" =? _siLaunchedAvailabilityZone - , "productDescription" =? _siProductDescription - , "spotInstanceRequestId" =? _siSpotInstanceRequestId - , "spotPrice" =? _siSpotPrice - , "state" =? _siState - , "status" =? _siStatus - , "tagSet" =? _siTags - , "type" =? _siType - , "validFrom" =? _siValidFrom - , "validUntil" =? _siValidUntil - ] - -data LaunchSpecification = LaunchSpecification - { _lsAddressingType :: Maybe Text - , _lsBlockDeviceMappings :: List "item" BlockDeviceMapping - , _lsEbsOptimized :: Maybe Bool - , _lsIamInstanceProfile :: Maybe IamInstanceProfileSpecification - , _lsImageId :: Maybe Text - , _lsInstanceType :: Maybe InstanceType - , _lsKernelId :: Maybe Text - , _lsKeyName :: Maybe Text - , _lsMonitoring :: Maybe RunInstancesMonitoringEnabled - , _lsNetworkInterfaces :: List "item" InstanceNetworkInterfaceSpecification - , _lsPlacement :: Maybe SpotPlacement - , _lsRamdiskId :: Maybe Text - , _lsSecurityGroups :: List "item" GroupIdentifier - , _lsSubnetId :: Maybe Text - , _lsUserData :: Maybe Text - } deriving (Eq, Show) - --- | 'LaunchSpecification' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'lsAddressingType' @::@ 'Maybe' 'Text' --- --- * 'lsBlockDeviceMappings' @::@ ['BlockDeviceMapping'] --- --- * 'lsEbsOptimized' @::@ 'Maybe' 'Bool' --- --- * 'lsIamInstanceProfile' @::@ 'Maybe' 'IamInstanceProfileSpecification' --- --- * 'lsImageId' @::@ 'Maybe' 'Text' --- --- * 'lsInstanceType' @::@ 'Maybe' 'InstanceType' --- --- * 'lsKernelId' @::@ 'Maybe' 'Text' --- --- * 'lsKeyName' @::@ 'Maybe' 'Text' --- --- * 'lsMonitoring' @::@ 'Maybe' 'RunInstancesMonitoringEnabled' --- --- * 'lsNetworkInterfaces' @::@ ['InstanceNetworkInterfaceSpecification'] --- --- * 'lsPlacement' @::@ 'Maybe' 'SpotPlacement' --- --- * 'lsRamdiskId' @::@ 'Maybe' 'Text' --- --- * 'lsSecurityGroups' @::@ ['GroupIdentifier'] --- --- * 'lsSubnetId' @::@ 'Maybe' 'Text' --- --- * 'lsUserData' @::@ 'Maybe' 'Text' --- -launchSpecification :: LaunchSpecification -launchSpecification = LaunchSpecification - { _lsImageId = Nothing - , _lsKeyName = Nothing - , _lsSecurityGroups = mempty - , _lsUserData = Nothing - , _lsAddressingType = Nothing - , _lsInstanceType = Nothing - , _lsPlacement = Nothing - , _lsKernelId = Nothing - , _lsRamdiskId = Nothing - , _lsBlockDeviceMappings = mempty - , _lsSubnetId = Nothing - , _lsNetworkInterfaces = mempty - , _lsIamInstanceProfile = Nothing - , _lsEbsOptimized = Nothing - , _lsMonitoring = Nothing - } - --- | 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 }) - . _List - --- | 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 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 }) - --- | The instance type. Default: m1.small. -lsInstanceType :: Lens' LaunchSpecification (Maybe InstanceType) -lsInstanceType = lens _lsInstanceType (\s a -> s { _lsInstanceType = a }) - --- | The ID of the kernel. -lsKernelId :: Lens' LaunchSpecification (Maybe Text) -lsKernelId = lens _lsKernelId (\s a -> s { _lsKernelId = a }) - --- | The name of the key pair. -lsKeyName :: Lens' LaunchSpecification (Maybe Text) -lsKeyName = lens _lsKeyName (\s a -> s { _lsKeyName = a }) - -lsMonitoring :: Lens' LaunchSpecification (Maybe RunInstancesMonitoringEnabled) -lsMonitoring = lens _lsMonitoring (\s a -> s { _lsMonitoring = a }) - --- | One or more network interfaces. -lsNetworkInterfaces :: Lens' LaunchSpecification [InstanceNetworkInterfaceSpecification] -lsNetworkInterfaces = - lens _lsNetworkInterfaces (\s a -> s { _lsNetworkInterfaces = a }) - . _List - --- | The placement information for the instance. -lsPlacement :: Lens' LaunchSpecification (Maybe SpotPlacement) -lsPlacement = lens _lsPlacement (\s a -> s { _lsPlacement = a }) - --- | The ID of the RAM disk. -lsRamdiskId :: Lens' LaunchSpecification (Maybe Text) -lsRamdiskId = lens _lsRamdiskId (\s a -> s { _lsRamdiskId = a }) - --- | One or more security groups. If requesting a Spot Instance in a --- nondefault VPC, you must specify the security group ID. If requesting a --- Spot Instance in EC2-Classic or a default VPC, you can specify either the --- security group name or ID. -lsSecurityGroups :: Lens' LaunchSpecification [GroupIdentifier] -lsSecurityGroups = lens _lsSecurityGroups (\s a -> s { _lsSecurityGroups = a }) . _List - --- | The ID of the subnet in which to launch the Spot Instance. -lsSubnetId :: Lens' LaunchSpecification (Maybe Text) -lsSubnetId = lens _lsSubnetId (\s a -> s { _lsSubnetId = a }) - --- | The Base64-encoded MIME user data to make available to the instances. -lsUserData :: Lens' LaunchSpecification (Maybe Text) -lsUserData = lens _lsUserData (\s a -> s { _lsUserData = a }) - -instance FromXML LaunchSpecification where - parseXML x = LaunchSpecification - <$> x .@? "addressingType" - <*> x .@ "blockDeviceMapping" - <*> x .@? "ebsOptimized" - <*> x .@? "iamInstanceProfile" - <*> x .@? "imageId" - <*> x .@? "instanceType" - <*> x .@? "kernelId" - <*> x .@? "keyName" - <*> x .@? "monitoring" - <*> x .@ "networkInterfaceSet" - <*> x .@? "placement" - <*> x .@? "ramdiskId" - <*> x .@ "groupSet" - <*> x .@? "subnetId" - <*> x .@? "userData" - -instance ToQuery LaunchSpecification where - toQuery LaunchSpecification{..} = mconcat - [ "addressingType" =? _lsAddressingType - , "blockDeviceMapping" =? _lsBlockDeviceMappings - , "ebsOptimized" =? _lsEbsOptimized - , "iamInstanceProfile" =? _lsIamInstanceProfile - , "imageId" =? _lsImageId - , "instanceType" =? _lsInstanceType - , "kernelId" =? _lsKernelId - , "keyName" =? _lsKeyName - , "monitoring" =? _lsMonitoring - , "networkInterfaceSet" =? _lsNetworkInterfaces - , "placement" =? _lsPlacement - , "ramdiskId" =? _lsRamdiskId - , "groupSet" =? _lsSecurityGroups - , "subnetId" =? _lsSubnetId - , "userData" =? _lsUserData - ] - -data VolumeStatusEvent = VolumeStatusEvent - { _vseDescription :: Maybe Text - , _vseEventId :: Maybe Text - , _vseEventType :: Maybe Text - , _vseNotAfter :: Maybe RFC822 - , _vseNotBefore :: Maybe RFC822 - } deriving (Eq, Ord, Show) - --- | 'VolumeStatusEvent' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'vseDescription' @::@ 'Maybe' 'Text' --- --- * 'vseEventId' @::@ 'Maybe' 'Text' --- --- * 'vseEventType' @::@ 'Maybe' 'Text' --- --- * 'vseNotAfter' @::@ 'Maybe' 'UTCTime' --- --- * 'vseNotBefore' @::@ 'Maybe' 'UTCTime' --- -volumeStatusEvent :: VolumeStatusEvent -volumeStatusEvent = VolumeStatusEvent - { _vseEventType = Nothing - , _vseDescription = Nothing - , _vseNotBefore = Nothing - , _vseNotAfter = Nothing - , _vseEventId = Nothing - } - --- | A description of the event. -vseDescription :: Lens' VolumeStatusEvent (Maybe Text) -vseDescription = lens _vseDescription (\s a -> s { _vseDescription = a }) - --- | The ID of this event. -vseEventId :: Lens' VolumeStatusEvent (Maybe Text) -vseEventId = lens _vseEventId (\s a -> s { _vseEventId = a }) - --- | The type of this event. -vseEventType :: Lens' VolumeStatusEvent (Maybe Text) -vseEventType = lens _vseEventType (\s a -> s { _vseEventType = a }) - --- | The latest end time of the event. -vseNotAfter :: Lens' VolumeStatusEvent (Maybe UTCTime) -vseNotAfter = lens _vseNotAfter (\s a -> s { _vseNotAfter = a }) . mapping _Time - --- | The earliest start time of the event. -vseNotBefore :: Lens' VolumeStatusEvent (Maybe UTCTime) -vseNotBefore = lens _vseNotBefore (\s a -> s { _vseNotBefore = a }) . mapping _Time - -instance FromXML VolumeStatusEvent where - parseXML x = VolumeStatusEvent - <$> x .@? "description" - <*> x .@? "eventId" - <*> x .@? "eventType" - <*> x .@? "notAfter" - <*> x .@? "notBefore" - -instance ToQuery VolumeStatusEvent where - toQuery VolumeStatusEvent{..} = mconcat - [ "description" =? _vseDescription - , "eventId" =? _vseEventId - , "eventType" =? _vseEventType - , "notAfter" =? _vseNotAfter - , "notBefore" =? _vseNotBefore - ] - -data Volume = Volume - { _vAttachments :: List "item" VolumeAttachment - , _vAvailabilityZone :: Maybe Text - , _vCreateTime :: Maybe RFC822 - , _vEncrypted :: Maybe Bool - , _vIops :: Maybe Int - , _vSize :: Maybe Int - , _vSnapshotId :: Maybe Text - , _vState :: Maybe VolumeState - , _vTags :: List "item" Tag - , _vVolumeId :: Maybe Text - , _vVolumeType :: Maybe VolumeType - } deriving (Eq, Show) - --- | 'Volume' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'vAttachments' @::@ ['VolumeAttachment'] --- --- * 'vAvailabilityZone' @::@ 'Maybe' 'Text' --- --- * 'vCreateTime' @::@ 'Maybe' 'UTCTime' --- --- * 'vEncrypted' @::@ 'Maybe' 'Bool' --- --- * 'vIops' @::@ 'Maybe' 'Int' --- --- * 'vSize' @::@ 'Maybe' 'Int' --- --- * 'vSnapshotId' @::@ 'Maybe' 'Text' --- --- * 'vState' @::@ 'Maybe' 'VolumeState' --- --- * 'vTags' @::@ ['Tag'] --- --- * 'vVolumeId' @::@ 'Maybe' 'Text' --- --- * 'vVolumeType' @::@ 'Maybe' 'VolumeType' --- -volume :: Volume -volume = Volume - { _vVolumeId = Nothing - , _vSize = Nothing - , _vSnapshotId = Nothing - , _vAvailabilityZone = Nothing - , _vState = Nothing - , _vCreateTime = Nothing - , _vAttachments = mempty - , _vTags = mempty - , _vVolumeType = Nothing - , _vIops = Nothing - , _vEncrypted = Nothing - } - -vAttachments :: Lens' Volume [VolumeAttachment] -vAttachments = lens _vAttachments (\s a -> s { _vAttachments = a }) . _List - --- | The Availability Zone for the volume. -vAvailabilityZone :: Lens' Volume (Maybe Text) -vAvailabilityZone = - lens _vAvailabilityZone (\s a -> s { _vAvailabilityZone = a }) - --- | The time stamp when volume creation was initiated. -vCreateTime :: Lens' Volume (Maybe UTCTime) -vCreateTime = lens _vCreateTime (\s a -> s { _vCreateTime = a }) . mapping _Time - --- | Indicates whether the volume is encrypted. -vEncrypted :: Lens' Volume (Maybe Bool) -vEncrypted = lens _vEncrypted (\s a -> s { _vEncrypted = a }) - --- | 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 Amazon EBS Volume Types in the Amazon Elastic Compute --- Cloud User Guide. Constraint: Range is 100 to 4000 for Provisioned IOPS --- (SSD) volumes and 3 to 3072 for General Purpose (SSD) volumes. Condition: --- This parameter is required for requests to create io1 volumes; it is not --- used in requests to create standard or gp2 volumes. -vIops :: Lens' Volume (Maybe Int) -vIops = lens _vIops (\s a -> s { _vIops = a }) - --- | The size of the volume, in GiBs. -vSize :: Lens' Volume (Maybe Int) -vSize = lens _vSize (\s a -> s { _vSize = a }) - --- | The snapshot from which the volume was created, if applicable. -vSnapshotId :: Lens' Volume (Maybe Text) -vSnapshotId = lens _vSnapshotId (\s a -> s { _vSnapshotId = a }) - --- | The volume state. -vState :: Lens' Volume (Maybe VolumeState) -vState = lens _vState (\s a -> s { _vState = a }) - --- | Any tags assigned to the volume. -vTags :: Lens' Volume [Tag] -vTags = lens _vTags (\s a -> s { _vTags = a }) . _List - --- | The ID of the volume. -vVolumeId :: Lens' Volume (Maybe Text) -vVolumeId = lens _vVolumeId (\s a -> s { _vVolumeId = a }) - --- | The volume type. This can be gp2 for General Purpose (SSD) volumes, io1 --- for Provisioned IOPS (SSD) volumes, or standard for Magnetic volumes. -vVolumeType :: Lens' Volume (Maybe VolumeType) -vVolumeType = lens _vVolumeType (\s a -> s { _vVolumeType = a }) - -instance FromXML Volume where - parseXML x = Volume - <$> x .@ "attachmentSet" - <*> x .@? "availabilityZone" - <*> x .@? "createTime" - <*> x .@? "encrypted" - <*> x .@? "iops" - <*> x .@? "size" - <*> x .@? "snapshotId" - <*> x .@? "status" - <*> x .@ "tagSet" - <*> x .@? "volumeId" - <*> x .@? "volumeType" - -instance ToQuery Volume where - toQuery Volume{..} = mconcat - [ "attachmentSet" =? _vAttachments - , "availabilityZone" =? _vAvailabilityZone - , "createTime" =? _vCreateTime - , "encrypted" =? _vEncrypted - , "iops" =? _vIops - , "size" =? _vSize - , "snapshotId" =? _vSnapshotId - , "status" =? _vState - , "tagSet" =? _vTags - , "volumeId" =? _vVolumeId - , "volumeType" =? _vVolumeType - ] - -data Reservation = Reservation - { _rGroups :: List "item" GroupIdentifier - , _rInstances :: List "item" Instance - , _rOwnerId :: Maybe Text - , _rRequesterId :: Maybe Text - , _rReservationId :: Maybe Text - } deriving (Eq, Show) - --- | 'Reservation' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'rGroups' @::@ ['GroupIdentifier'] --- --- * 'rInstances' @::@ ['Instance'] --- --- * 'rOwnerId' @::@ 'Maybe' 'Text' --- --- * 'rRequesterId' @::@ 'Maybe' 'Text' --- --- * 'rReservationId' @::@ 'Maybe' 'Text' --- -reservation :: Reservation -reservation = Reservation - { _rReservationId = Nothing - , _rOwnerId = Nothing - , _rRequesterId = Nothing - , _rGroups = mempty - , _rInstances = mempty - } - --- | One or more security groups. -rGroups :: Lens' Reservation [GroupIdentifier] -rGroups = lens _rGroups (\s a -> s { _rGroups = a }) . _List - --- | One or more instances. -rInstances :: Lens' Reservation [Instance] -rInstances = lens _rInstances (\s a -> s { _rInstances = a }) . _List - --- | The ID of the AWS account that owns the reservation. -rOwnerId :: Lens' Reservation (Maybe Text) -rOwnerId = lens _rOwnerId (\s a -> s { _rOwnerId = a }) - --- | 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 (Maybe Text) -rReservationId = lens _rReservationId (\s a -> s { _rReservationId = a }) - -instance FromXML Reservation where - parseXML x = Reservation - <$> x .@ "groupSet" - <*> x .@ "instancesSet" - <*> x .@? "ownerId" - <*> x .@? "requesterId" - <*> x .@? "reservationId" - -instance ToQuery Reservation where - toQuery Reservation{..} = mconcat - [ "groupSet" =? _rGroups - , "instancesSet" =? _rInstances - , "ownerId" =? _rOwnerId - , "requesterId" =? _rRequesterId - , "reservationId" =? _rReservationId - ] - -data ImportInstanceVolumeDetailItem = ImportInstanceVolumeDetailItem - { _iivdiAvailabilityZone :: Text - , _iivdiBytesConverted :: Integer - , _iivdiDescription :: Maybe Text - , _iivdiImage :: DiskImageDescription - , _iivdiStatus :: Text - , _iivdiStatusMessage :: Maybe Text - , _iivdiVolume :: DiskImageVolumeDescription - } deriving (Eq, Show) - --- | 'ImportInstanceVolumeDetailItem' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'iivdiAvailabilityZone' @::@ 'Text' --- --- * 'iivdiBytesConverted' @::@ 'Integer' --- --- * 'iivdiDescription' @::@ 'Maybe' 'Text' --- --- * 'iivdiImage' @::@ 'DiskImageDescription' --- --- * 'iivdiStatus' @::@ 'Text' --- --- * 'iivdiStatusMessage' @::@ 'Maybe' 'Text' --- --- * 'iivdiVolume' @::@ 'DiskImageVolumeDescription' --- -importInstanceVolumeDetailItem :: Integer -- ^ 'iivdiBytesConverted' - -> Text -- ^ 'iivdiAvailabilityZone' - -> DiskImageDescription -- ^ 'iivdiImage' - -> DiskImageVolumeDescription -- ^ 'iivdiVolume' - -> Text -- ^ 'iivdiStatus' - -> ImportInstanceVolumeDetailItem -importInstanceVolumeDetailItem p1 p2 p3 p4 p5 = ImportInstanceVolumeDetailItem - { _iivdiBytesConverted = p1 - , _iivdiAvailabilityZone = p2 - , _iivdiImage = p3 - , _iivdiVolume = p4 - , _iivdiStatus = p5 - , _iivdiStatusMessage = Nothing - , _iivdiDescription = Nothing - } - --- | 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 }) - -iivdiDescription :: Lens' ImportInstanceVolumeDetailItem (Maybe Text) -iivdiDescription = lens _iivdiDescription (\s a -> s { _iivdiDescription = 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 status information or errors related to the disk image. -iivdiStatusMessage :: Lens' ImportInstanceVolumeDetailItem (Maybe Text) -iivdiStatusMessage = - lens _iivdiStatusMessage (\s a -> s { _iivdiStatusMessage = a }) - --- | The volume. -iivdiVolume :: Lens' ImportInstanceVolumeDetailItem DiskImageVolumeDescription -iivdiVolume = lens _iivdiVolume (\s a -> s { _iivdiVolume = a }) - -instance FromXML ImportInstanceVolumeDetailItem where - parseXML x = ImportInstanceVolumeDetailItem - <$> x .@ "availabilityZone" - <*> x .@ "bytesConverted" - <*> x .@? "description" - <*> x .@ "image" - <*> x .@ "status" - <*> x .@? "statusMessage" - <*> x .@ "volume" - -instance ToQuery ImportInstanceVolumeDetailItem where - toQuery ImportInstanceVolumeDetailItem{..} = mconcat - [ "availabilityZone" =? _iivdiAvailabilityZone - , "bytesConverted" =? _iivdiBytesConverted - , "description" =? _iivdiDescription - , "image" =? _iivdiImage - , "status" =? _iivdiStatus - , "statusMessage" =? _iivdiStatusMessage - , "volume" =? _iivdiVolume - ] - -data SummaryStatus - = SSImpaired -- ^ impaired - | SSInsufficientData -- ^ insufficient-data - | SSNotApplicable -- ^ not-applicable - | SSOk -- ^ ok - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable SummaryStatus - -instance FromText SummaryStatus where - parser = match "impaired" SSImpaired - <|> match "insufficient-data" SSInsufficientData - <|> match "not-applicable" SSNotApplicable - <|> match "ok" SSOk - -instance ToText SummaryStatus where - toText = \case - SSImpaired -> "impaired" - SSInsufficientData -> "insufficient-data" - SSNotApplicable -> "not-applicable" - SSOk -> "ok" - -instance ToByteString SummaryStatus -instance ToHeader SummaryStatus -instance ToQuery SummaryStatus - -instance FromXML SummaryStatus where - parseXML = parseXMLText "SummaryStatus" - - -data ReservedInstancesModification = ReservedInstancesModification - { _rimClientToken :: Maybe Text - , _rimCreateDate :: Maybe RFC822 - , _rimEffectiveDate :: Maybe RFC822 - , _rimModificationResults :: List "item" ReservedInstancesModificationResult - , _rimReservedInstancesIds :: List "item" ReservedInstancesId - , _rimReservedInstancesModificationId :: Maybe Text - , _rimStatus :: Maybe Text - , _rimStatusMessage :: Maybe Text - , _rimUpdateDate :: Maybe RFC822 - } deriving (Eq, Show) - --- | 'ReservedInstancesModification' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'rimClientToken' @::@ 'Maybe' 'Text' --- --- * 'rimCreateDate' @::@ 'Maybe' 'UTCTime' --- --- * 'rimEffectiveDate' @::@ 'Maybe' 'UTCTime' --- --- * 'rimModificationResults' @::@ ['ReservedInstancesModificationResult'] --- --- * 'rimReservedInstancesIds' @::@ ['ReservedInstancesId'] --- --- * 'rimReservedInstancesModificationId' @::@ 'Maybe' 'Text' --- --- * 'rimStatus' @::@ 'Maybe' 'Text' --- --- * 'rimStatusMessage' @::@ 'Maybe' 'Text' --- --- * 'rimUpdateDate' @::@ 'Maybe' 'UTCTime' --- -reservedInstancesModification :: ReservedInstancesModification -reservedInstancesModification = ReservedInstancesModification - { _rimReservedInstancesModificationId = Nothing - , _rimReservedInstancesIds = mempty - , _rimModificationResults = mempty - , _rimCreateDate = Nothing - , _rimUpdateDate = Nothing - , _rimEffectiveDate = Nothing - , _rimStatus = Nothing - , _rimStatusMessage = Nothing - , _rimClientToken = Nothing - } - --- | A unique, case-sensitive key supplied by the client to ensure that the --- modification request is idempotent. -rimClientToken :: Lens' ReservedInstancesModification (Maybe Text) -rimClientToken = lens _rimClientToken (\s a -> s { _rimClientToken = a }) - --- | 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 - --- | Contains target configurations along with their corresponding new --- Reserved Instance IDs. -rimModificationResults :: Lens' ReservedInstancesModification [ReservedInstancesModificationResult] -rimModificationResults = - lens _rimModificationResults (\s a -> s { _rimModificationResults = a }) - . _List - --- | The IDs of one or more Reserved Instances. -rimReservedInstancesIds :: Lens' ReservedInstancesModification [ReservedInstancesId] -rimReservedInstancesIds = - lens _rimReservedInstancesIds (\s a -> s { _rimReservedInstancesIds = a }) - . _List - --- | A unique ID for the Reserved Instance modification. -rimReservedInstancesModificationId :: Lens' ReservedInstancesModification (Maybe Text) -rimReservedInstancesModificationId = - lens _rimReservedInstancesModificationId - (\s a -> s { _rimReservedInstancesModificationId = a }) - --- | The status of the Reserved Instances modification request. -rimStatus :: Lens' ReservedInstancesModification (Maybe Text) -rimStatus = lens _rimStatus (\s a -> s { _rimStatus = a }) - --- | The reason for the status. -rimStatusMessage :: Lens' ReservedInstancesModification (Maybe Text) -rimStatusMessage = lens _rimStatusMessage (\s a -> s { _rimStatusMessage = 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 - -instance FromXML ReservedInstancesModification where - parseXML x = ReservedInstancesModification - <$> x .@? "clientToken" - <*> x .@? "createDate" - <*> x .@? "effectiveDate" - <*> x .@ "modificationResultSet" - <*> x .@ "reservedInstancesSet" - <*> x .@? "reservedInstancesModificationId" - <*> x .@? "status" - <*> x .@? "statusMessage" - <*> x .@? "updateDate" - -instance ToQuery ReservedInstancesModification where - toQuery ReservedInstancesModification{..} = mconcat - [ "clientToken" =? _rimClientToken - , "createDate" =? _rimCreateDate - , "effectiveDate" =? _rimEffectiveDate - , "modificationResultSet" =? _rimModificationResults - , "reservedInstancesSet" =? _rimReservedInstancesIds - , "reservedInstancesModificationId" =? _rimReservedInstancesModificationId - , "status" =? _rimStatus - , "statusMessage" =? _rimStatusMessage - , "updateDate" =? _rimUpdateDate - ] - -data RuleAction - = Allow -- ^ allow - | Deny -- ^ deny - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable RuleAction - -instance FromText RuleAction where - parser = match "allow" Allow - <|> match "deny" Deny - -instance ToText RuleAction where - toText = \case - Allow -> "allow" - Deny -> "deny" - -instance ToByteString RuleAction -instance ToHeader RuleAction -instance ToQuery RuleAction - -instance FromXML RuleAction where - parseXML = parseXMLText "RuleAction" - - -data NetworkInterface = NetworkInterface - { _niAssociation :: Maybe NetworkInterfaceAssociation - , _niAttachment :: Maybe NetworkInterfaceAttachment - , _niAvailabilityZone :: Maybe Text - , _niDescription :: Maybe Text - , _niGroups :: List "item" GroupIdentifier - , _niMacAddress :: Maybe Text - , _niNetworkInterfaceId :: Maybe Text - , _niOwnerId :: Maybe Text - , _niPrivateDnsName :: Maybe Text - , _niPrivateIpAddress :: Maybe Text - , _niPrivateIpAddresses :: List "item" NetworkInterfacePrivateIpAddress - , _niRequesterId :: Maybe Text - , _niRequesterManaged :: Maybe Bool - , _niSourceDestCheck :: Maybe Bool - , _niStatus :: Maybe NetworkInterfaceStatus - , _niSubnetId :: Maybe Text - , _niTagSet :: List "item" Tag - , _niVpcId :: Maybe Text - } deriving (Eq, Show) - --- | 'NetworkInterface' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'niAssociation' @::@ 'Maybe' 'NetworkInterfaceAssociation' --- --- * 'niAttachment' @::@ 'Maybe' 'NetworkInterfaceAttachment' --- --- * 'niAvailabilityZone' @::@ 'Maybe' 'Text' --- --- * 'niDescription' @::@ 'Maybe' 'Text' --- --- * 'niGroups' @::@ ['GroupIdentifier'] --- --- * 'niMacAddress' @::@ 'Maybe' 'Text' --- --- * 'niNetworkInterfaceId' @::@ 'Maybe' 'Text' --- --- * 'niOwnerId' @::@ 'Maybe' 'Text' --- --- * 'niPrivateDnsName' @::@ 'Maybe' 'Text' --- --- * 'niPrivateIpAddress' @::@ 'Maybe' 'Text' --- --- * 'niPrivateIpAddresses' @::@ ['NetworkInterfacePrivateIpAddress'] --- --- * 'niRequesterId' @::@ 'Maybe' 'Text' --- --- * 'niRequesterManaged' @::@ 'Maybe' 'Bool' --- --- * 'niSourceDestCheck' @::@ 'Maybe' 'Bool' --- --- * 'niStatus' @::@ 'Maybe' 'NetworkInterfaceStatus' --- --- * 'niSubnetId' @::@ 'Maybe' 'Text' --- --- * 'niTagSet' @::@ ['Tag'] --- --- * 'niVpcId' @::@ 'Maybe' 'Text' --- -networkInterface :: NetworkInterface -networkInterface = NetworkInterface - { _niNetworkInterfaceId = Nothing - , _niSubnetId = Nothing - , _niVpcId = Nothing - , _niAvailabilityZone = Nothing - , _niDescription = Nothing - , _niOwnerId = Nothing - , _niRequesterId = Nothing - , _niRequesterManaged = Nothing - , _niStatus = Nothing - , _niMacAddress = Nothing - , _niPrivateIpAddress = Nothing - , _niPrivateDnsName = Nothing - , _niSourceDestCheck = Nothing - , _niGroups = mempty - , _niAttachment = Nothing - , _niAssociation = Nothing - , _niTagSet = mempty - , _niPrivateIpAddresses = mempty - } - --- | The association information for an Elastic IP associated with the network --- interface. -niAssociation :: Lens' NetworkInterface (Maybe NetworkInterfaceAssociation) -niAssociation = lens _niAssociation (\s a -> s { _niAssociation = a }) - --- | The network interface attachment. -niAttachment :: Lens' NetworkInterface (Maybe NetworkInterfaceAttachment) -niAttachment = lens _niAttachment (\s a -> s { _niAttachment = a }) - --- | The Availability Zone. -niAvailabilityZone :: Lens' NetworkInterface (Maybe Text) -niAvailabilityZone = - lens _niAvailabilityZone (\s a -> s { _niAvailabilityZone = a }) - --- | A description. -niDescription :: Lens' NetworkInterface (Maybe Text) -niDescription = lens _niDescription (\s a -> s { _niDescription = a }) - --- | Any security groups for the network interface. -niGroups :: Lens' NetworkInterface [GroupIdentifier] -niGroups = lens _niGroups (\s a -> s { _niGroups = a }) . _List - --- | The MAC address. -niMacAddress :: Lens' NetworkInterface (Maybe Text) -niMacAddress = lens _niMacAddress (\s a -> s { _niMacAddress = a }) - --- | The ID of the network interface. -niNetworkInterfaceId :: Lens' NetworkInterface (Maybe Text) -niNetworkInterfaceId = - lens _niNetworkInterfaceId (\s a -> s { _niNetworkInterfaceId = 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 private DNS name. -niPrivateDnsName :: Lens' NetworkInterface (Maybe Text) -niPrivateDnsName = lens _niPrivateDnsName (\s a -> s { _niPrivateDnsName = a }) - --- | The IP address of the network interface within the subnet. -niPrivateIpAddress :: Lens' NetworkInterface (Maybe Text) -niPrivateIpAddress = - lens _niPrivateIpAddress (\s a -> s { _niPrivateIpAddress = a }) - --- | The private IP addresses associated with the network interface. -niPrivateIpAddresses :: Lens' NetworkInterface [NetworkInterfacePrivateIpAddress] -niPrivateIpAddresses = - lens _niPrivateIpAddresses (\s a -> s { _niPrivateIpAddresses = a }) - . _List - --- | 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 }) - --- | Indicates whether the network interface is being managed by AWS. -niRequesterManaged :: Lens' NetworkInterface (Maybe Bool) -niRequesterManaged = - lens _niRequesterManaged (\s a -> s { _niRequesterManaged = a }) - --- | Indicates whether traffic to or from the instance is validated. -niSourceDestCheck :: Lens' NetworkInterface (Maybe Bool) -niSourceDestCheck = - lens _niSourceDestCheck (\s a -> s { _niSourceDestCheck = a }) - --- | The status of the network interface. -niStatus :: Lens' NetworkInterface (Maybe NetworkInterfaceStatus) -niStatus = lens _niStatus (\s a -> s { _niStatus = a }) - --- | The ID of the subnet. -niSubnetId :: Lens' NetworkInterface (Maybe Text) -niSubnetId = lens _niSubnetId (\s a -> s { _niSubnetId = a }) - --- | Any tags assigned to the network interface. -niTagSet :: Lens' NetworkInterface [Tag] -niTagSet = lens _niTagSet (\s a -> s { _niTagSet = a }) . _List - --- | The ID of the VPC. -niVpcId :: Lens' NetworkInterface (Maybe Text) -niVpcId = lens _niVpcId (\s a -> s { _niVpcId = a }) - -instance FromXML NetworkInterface where - parseXML x = NetworkInterface - <$> x .@? "association" - <*> x .@? "attachment" - <*> x .@? "availabilityZone" - <*> x .@? "description" - <*> x .@ "groupSet" - <*> x .@? "macAddress" - <*> x .@? "networkInterfaceId" - <*> x .@? "ownerId" - <*> x .@? "privateDnsName" - <*> x .@? "privateIpAddress" - <*> x .@ "privateIpAddressesSet" - <*> x .@? "requesterId" - <*> x .@? "requesterManaged" - <*> x .@? "sourceDestCheck" - <*> x .@? "status" - <*> x .@? "subnetId" - <*> x .@ "tagSet" - <*> x .@? "vpcId" - -instance ToQuery NetworkInterface where - toQuery NetworkInterface{..} = mconcat - [ "association" =? _niAssociation - , "attachment" =? _niAttachment - , "availabilityZone" =? _niAvailabilityZone - , "description" =? _niDescription - , "groupSet" =? _niGroups - , "macAddress" =? _niMacAddress - , "networkInterfaceId" =? _niNetworkInterfaceId - , "ownerId" =? _niOwnerId - , "privateDnsName" =? _niPrivateDnsName - , "privateIpAddress" =? _niPrivateIpAddress - , "privateIpAddressesSet" =? _niPrivateIpAddresses - , "requesterId" =? _niRequesterId - , "requesterManaged" =? _niRequesterManaged - , "sourceDestCheck" =? _niSourceDestCheck - , "status" =? _niStatus - , "subnetId" =? _niSubnetId - , "tagSet" =? _niTagSet - , "vpcId" =? _niVpcId - ] - -data TelemetryStatus - = Down -- ^ DOWN - | Up -- ^ UP - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable TelemetryStatus - -instance FromText TelemetryStatus where - parser = match "DOWN" Down - <|> match "UP" Up - -instance ToText TelemetryStatus where - toText = \case - Down -> "DOWN" - Up -> "UP" - -instance ToByteString TelemetryStatus -instance ToHeader TelemetryStatus -instance ToQuery TelemetryStatus - -instance FromXML TelemetryStatus where - parseXML = parseXMLText "TelemetryStatus" - - -data Subnet = Subnet - { _s1AvailabilityZone :: Maybe Text - , _s1AvailableIpAddressCount :: Maybe Int - , _s1CidrBlock :: Maybe Text - , _s1DefaultForAz :: Maybe Bool - , _s1MapPublicIpOnLaunch :: Maybe Bool - , _s1State :: Maybe SubnetState - , _s1SubnetId :: Maybe Text - , _s1Tags :: List "item" Tag - , _s1VpcId :: Maybe Text - } deriving (Eq, Show) - --- | 'Subnet' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 's1AvailabilityZone' @::@ 'Maybe' 'Text' --- --- * 's1AvailableIpAddressCount' @::@ 'Maybe' 'Int' --- --- * 's1CidrBlock' @::@ 'Maybe' 'Text' --- --- * 's1DefaultForAz' @::@ 'Maybe' 'Bool' --- --- * 's1MapPublicIpOnLaunch' @::@ 'Maybe' 'Bool' --- --- * 's1State' @::@ 'Maybe' 'SubnetState' --- --- * 's1SubnetId' @::@ 'Maybe' 'Text' --- --- * 's1Tags' @::@ ['Tag'] --- --- * 's1VpcId' @::@ 'Maybe' 'Text' --- -subnet :: Subnet -subnet = Subnet - { _s1SubnetId = Nothing - , _s1State = Nothing - , _s1VpcId = Nothing - , _s1CidrBlock = Nothing - , _s1AvailableIpAddressCount = Nothing - , _s1AvailabilityZone = Nothing - , _s1DefaultForAz = Nothing - , _s1MapPublicIpOnLaunch = Nothing - , _s1Tags = mempty - } - --- | The Availability Zone of the subnet. -s1AvailabilityZone :: Lens' Subnet (Maybe Text) -s1AvailabilityZone = - lens _s1AvailabilityZone (\s a -> s { _s1AvailabilityZone = a }) - --- | The number of unused IP addresses in the subnet. Note that the IP --- addresses for any stopped instances are considered unavailable. -s1AvailableIpAddressCount :: Lens' Subnet (Maybe Int) -s1AvailableIpAddressCount = - lens _s1AvailableIpAddressCount - (\s a -> s { _s1AvailableIpAddressCount = a }) - --- | The CIDR block assigned to the subnet. -s1CidrBlock :: Lens' Subnet (Maybe Text) -s1CidrBlock = lens _s1CidrBlock (\s a -> s { _s1CidrBlock = a }) - --- | Indicates whether this is the default subnet for the Availability Zone. -s1DefaultForAz :: Lens' Subnet (Maybe Bool) -s1DefaultForAz = lens _s1DefaultForAz (\s a -> s { _s1DefaultForAz = a }) - --- | Indicates whether instances launched in this subnet receive a public IP --- address. -s1MapPublicIpOnLaunch :: Lens' Subnet (Maybe Bool) -s1MapPublicIpOnLaunch = - lens _s1MapPublicIpOnLaunch (\s a -> s { _s1MapPublicIpOnLaunch = a }) - --- | The current state of the subnet. -s1State :: Lens' Subnet (Maybe SubnetState) -s1State = lens _s1State (\s a -> s { _s1State = a }) - --- | The ID of the subnet. -s1SubnetId :: Lens' Subnet (Maybe Text) -s1SubnetId = lens _s1SubnetId (\s a -> s { _s1SubnetId = a }) - --- | Any tags assigned to the subnet. -s1Tags :: Lens' Subnet [Tag] -s1Tags = lens _s1Tags (\s a -> s { _s1Tags = a }) . _List - --- | The ID of the VPC the subnet is in. -s1VpcId :: Lens' Subnet (Maybe Text) -s1VpcId = lens _s1VpcId (\s a -> s { _s1VpcId = a }) - -instance FromXML Subnet where - parseXML x = Subnet - <$> x .@? "availabilityZone" - <*> x .@? "availableIpAddressCount" - <*> x .@? "cidrBlock" - <*> x .@? "defaultForAz" - <*> x .@? "mapPublicIpOnLaunch" - <*> x .@? "state" - <*> x .@? "subnetId" - <*> x .@ "tagSet" - <*> x .@? "vpcId" - -instance ToQuery Subnet where - toQuery Subnet{..} = mconcat - [ "availabilityZone" =? _s1AvailabilityZone - , "availableIpAddressCount" =? _s1AvailableIpAddressCount - , "cidrBlock" =? _s1CidrBlock - , "defaultForAz" =? _s1DefaultForAz - , "mapPublicIpOnLaunch" =? _s1MapPublicIpOnLaunch - , "state" =? _s1State - , "subnetId" =? _s1SubnetId - , "tagSet" =? _s1Tags - , "vpcId" =? _s1VpcId - ] - -data KeyPairInfo = KeyPairInfo - { _kpiKeyFingerprint :: Maybe Text - , _kpiKeyName :: Maybe Text - } deriving (Eq, Ord, Show) - --- | 'KeyPairInfo' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'kpiKeyFingerprint' @::@ 'Maybe' 'Text' --- --- * 'kpiKeyName' @::@ 'Maybe' 'Text' --- -keyPairInfo :: KeyPairInfo -keyPairInfo = KeyPairInfo - { _kpiKeyName = Nothing - , _kpiKeyFingerprint = 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 ToQuery KeyPairInfo where - toQuery KeyPairInfo{..} = mconcat - [ "keyFingerprint" =? _kpiKeyFingerprint - , "keyName" =? _kpiKeyName - ] - -data LaunchPermissionModifications = LaunchPermissionModifications - { _lpmAdd :: List "item" LaunchPermission - , _lpmRemove :: List "item" LaunchPermission - } deriving (Eq, Show) - --- | 'LaunchPermissionModifications' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'lpmAdd' @::@ ['LaunchPermission'] --- --- * 'lpmRemove' @::@ ['LaunchPermission'] --- -launchPermissionModifications :: LaunchPermissionModifications -launchPermissionModifications = LaunchPermissionModifications - { _lpmAdd = mempty - , _lpmRemove = mempty - } - --- | The AWS account ID to add to the list of launch permissions for the AMI. -lpmAdd :: Lens' LaunchPermissionModifications [LaunchPermission] -lpmAdd = lens _lpmAdd (\s a -> s { _lpmAdd = a }) . _List - --- | The AWS account ID to remove from the list of launch permissions for the --- AMI. -lpmRemove :: Lens' LaunchPermissionModifications [LaunchPermission] -lpmRemove = lens _lpmRemove (\s a -> s { _lpmRemove = a }) . _List - -instance FromXML LaunchPermissionModifications where - parseXML x = LaunchPermissionModifications - <$> x .@ "Add" - <*> x .@ "Remove" - -instance ToQuery LaunchPermissionModifications where - toQuery LaunchPermissionModifications{..} = mconcat - [ "Add" =? _lpmAdd - , "Remove" =? _lpmRemove - ] - -data SnapshotState - = Completed -- ^ completed - | Error -- ^ error - | Pending -- ^ pending - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable SnapshotState - -instance FromText SnapshotState where - parser = match "completed" Completed - <|> match "error" Error - <|> match "pending" Pending - -instance ToText SnapshotState where - toText = \case - Completed -> "completed" - Error -> "error" - Pending -> "pending" - -instance ToByteString SnapshotState -instance ToHeader SnapshotState -instance ToQuery SnapshotState - -instance FromXML SnapshotState where - parseXML = parseXMLText "SnapshotState" - - -data InstanceNetworkInterfaceAssociation = InstanceNetworkInterfaceAssociation - { _iniaIpOwnerId :: Maybe Text - , _iniaPublicDnsName :: Maybe Text - , _iniaPublicIp :: Maybe Text - } deriving (Eq, Ord, Show) - --- | 'InstanceNetworkInterfaceAssociation' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'iniaIpOwnerId' @::@ 'Maybe' 'Text' --- --- * 'iniaPublicDnsName' @::@ 'Maybe' 'Text' --- --- * 'iniaPublicIp' @::@ 'Maybe' 'Text' --- -instanceNetworkInterfaceAssociation :: InstanceNetworkInterfaceAssociation -instanceNetworkInterfaceAssociation = InstanceNetworkInterfaceAssociation - { _iniaPublicIp = Nothing - , _iniaPublicDnsName = Nothing - , _iniaIpOwnerId = Nothing - } - --- | 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 DNS name. -iniaPublicDnsName :: Lens' InstanceNetworkInterfaceAssociation (Maybe Text) -iniaPublicDnsName = - lens _iniaPublicDnsName (\s a -> s { _iniaPublicDnsName = 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 .@? "ipOwnerId" - <*> x .@? "publicDnsName" - <*> x .@? "publicIp" - -instance ToQuery InstanceNetworkInterfaceAssociation where - toQuery InstanceNetworkInterfaceAssociation{..} = mconcat - [ "ipOwnerId" =? _iniaIpOwnerId - , "publicDnsName" =? _iniaPublicDnsName - , "publicIp" =? _iniaPublicIp - ] - -data DiskImageDetail = DiskImageDetail - { _didBytes :: Integer - , _didFormat :: DiskImageFormat - , _didImportManifestUrl :: Text - } deriving (Eq, Show) - --- | 'DiskImageDetail' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'didBytes' @::@ 'Integer' --- --- * 'didFormat' @::@ 'DiskImageFormat' --- --- * 'didImportManifestUrl' @::@ 'Text' --- -diskImageDetail :: DiskImageFormat -- ^ 'didFormat' - -> Integer -- ^ 'didBytes' - -> Text -- ^ 'didImportManifestUrl' - -> DiskImageDetail -diskImageDetail p1 p2 p3 = DiskImageDetail - { _didFormat = p1 - , _didBytes = p2 - , _didImportManifestUrl = p3 - } - -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. For --- information about creating a presigned URL for an Amazon S3 object, read --- the "Query String Request Authentication Alternative" section of the --- Authenticating REST Requests topic in the Amazon Simple Storage Service --- Developer Guide. -didImportManifestUrl :: Lens' DiskImageDetail Text -didImportManifestUrl = - lens _didImportManifestUrl (\s a -> s { _didImportManifestUrl = a }) - -instance FromXML DiskImageDetail where - parseXML x = DiskImageDetail - <$> x .@ "bytes" - <*> x .@ "format" - <*> x .@ "importManifestUrl" - -instance ToQuery DiskImageDetail where - toQuery DiskImageDetail{..} = mconcat - [ "bytes" =? _didBytes - , "format" =? _didFormat - , "importManifestUrl" =? _didImportManifestUrl - ] - -data InstancePrivateIpAddress = InstancePrivateIpAddress - { _ipiaAssociation :: Maybe InstanceNetworkInterfaceAssociation - , _ipiaPrimary :: Maybe Bool - , _ipiaPrivateDnsName :: Maybe Text - , _ipiaPrivateIpAddress :: Maybe Text - } deriving (Eq, Show) - --- | 'InstancePrivateIpAddress' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'ipiaAssociation' @::@ 'Maybe' 'InstanceNetworkInterfaceAssociation' --- --- * 'ipiaPrimary' @::@ 'Maybe' 'Bool' --- --- * 'ipiaPrivateDnsName' @::@ 'Maybe' 'Text' --- --- * 'ipiaPrivateIpAddress' @::@ 'Maybe' 'Text' --- -instancePrivateIpAddress :: InstancePrivateIpAddress -instancePrivateIpAddress = InstancePrivateIpAddress - { _ipiaPrivateIpAddress = Nothing - , _ipiaPrivateDnsName = Nothing - , _ipiaPrimary = Nothing - , _ipiaAssociation = Nothing - } - --- | 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 }) - --- | Indicates whether this IP 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 DNS name. -ipiaPrivateDnsName :: Lens' InstancePrivateIpAddress (Maybe Text) -ipiaPrivateDnsName = - lens _ipiaPrivateDnsName (\s a -> s { _ipiaPrivateDnsName = a }) - --- | The private IP address of the network interface. -ipiaPrivateIpAddress :: Lens' InstancePrivateIpAddress (Maybe Text) -ipiaPrivateIpAddress = - lens _ipiaPrivateIpAddress (\s a -> s { _ipiaPrivateIpAddress = a }) - -instance FromXML InstancePrivateIpAddress where - parseXML x = InstancePrivateIpAddress - <$> x .@? "association" - <*> x .@? "primary" - <*> x .@? "privateDnsName" - <*> x .@? "privateIpAddress" - -instance ToQuery InstancePrivateIpAddress where - toQuery InstancePrivateIpAddress{..} = mconcat - [ "association" =? _ipiaAssociation - , "primary" =? _ipiaPrimary - , "privateDnsName" =? _ipiaPrivateDnsName - , "privateIpAddress" =? _ipiaPrivateIpAddress - ] - -data CancelledSpotInstanceRequest = CancelledSpotInstanceRequest - { _csiSpotInstanceRequestId :: Maybe Text - , _csiState :: Maybe CancelSpotInstanceRequestState - } deriving (Eq, Show) - --- | 'CancelledSpotInstanceRequest' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'csiSpotInstanceRequestId' @::@ 'Maybe' 'Text' --- --- * 'csiState' @::@ 'Maybe' 'CancelSpotInstanceRequestState' --- -cancelledSpotInstanceRequest :: CancelledSpotInstanceRequest -cancelledSpotInstanceRequest = CancelledSpotInstanceRequest - { _csiSpotInstanceRequestId = Nothing - , _csiState = Nothing - } - --- | The ID of the Spot Instance request. -csiSpotInstanceRequestId :: Lens' CancelledSpotInstanceRequest (Maybe Text) -csiSpotInstanceRequestId = - lens _csiSpotInstanceRequestId - (\s a -> s { _csiSpotInstanceRequestId = a }) - --- | The state of the Spot Instance request. -csiState :: Lens' CancelledSpotInstanceRequest (Maybe CancelSpotInstanceRequestState) -csiState = lens _csiState (\s a -> s { _csiState = a }) - -instance FromXML CancelledSpotInstanceRequest where - parseXML x = CancelledSpotInstanceRequest - <$> x .@? "spotInstanceRequestId" - <*> x .@? "state" - -instance ToQuery CancelledSpotInstanceRequest where - toQuery CancelledSpotInstanceRequest{..} = mconcat - [ "spotInstanceRequestId" =? _csiSpotInstanceRequestId - , "state" =? _csiState - ] - -newtype VpnConnectionOptionsSpecification = VpnConnectionOptionsSpecification - { _vcosStaticRoutesOnly :: Maybe Bool - } deriving (Eq, Ord, Show) - --- | 'VpnConnectionOptionsSpecification' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'vcosStaticRoutesOnly' @::@ 'Maybe' 'Bool' --- -vpnConnectionOptionsSpecification :: VpnConnectionOptionsSpecification -vpnConnectionOptionsSpecification = VpnConnectionOptionsSpecification - { _vcosStaticRoutesOnly = Nothing - } - --- | Indicates whether the VPN connection uses static routes only. Static --- routes must be used for devices that don't support BGP. -vcosStaticRoutesOnly :: Lens' VpnConnectionOptionsSpecification (Maybe Bool) -vcosStaticRoutesOnly = - lens _vcosStaticRoutesOnly (\s a -> s { _vcosStaticRoutesOnly = a }) - -instance FromXML VpnConnectionOptionsSpecification where - parseXML x = VpnConnectionOptionsSpecification - <$> x .@? "staticRoutesOnly" - -instance ToQuery VpnConnectionOptionsSpecification where - toQuery VpnConnectionOptionsSpecification{..} = mconcat - [ "staticRoutesOnly" =? _vcosStaticRoutesOnly - ] - -data Address = Address - { _aAllocationId :: Maybe Text - , _aAssociationId :: Maybe Text - , _aDomain :: Maybe DomainType - , _aInstanceId :: Maybe Text - , _aNetworkInterfaceId :: Maybe Text - , _aNetworkInterfaceOwnerId :: Maybe Text - , _aPrivateIpAddress :: Maybe Text - , _aPublicIp :: Maybe Text - } deriving (Eq, Show) - --- | 'Address' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'aAllocationId' @::@ 'Maybe' 'Text' --- --- * 'aAssociationId' @::@ 'Maybe' 'Text' --- --- * 'aDomain' @::@ 'Maybe' 'DomainType' --- --- * 'aInstanceId' @::@ 'Maybe' 'Text' --- --- * 'aNetworkInterfaceId' @::@ 'Maybe' 'Text' --- --- * 'aNetworkInterfaceOwnerId' @::@ 'Maybe' 'Text' --- --- * 'aPrivateIpAddress' @::@ 'Maybe' 'Text' --- --- * 'aPublicIp' @::@ 'Maybe' 'Text' --- -address :: Address -address = Address - { _aInstanceId = Nothing - , _aPublicIp = Nothing - , _aAllocationId = Nothing - , _aAssociationId = Nothing - , _aDomain = Nothing - , _aNetworkInterfaceId = Nothing - , _aNetworkInterfaceOwnerId = Nothing - , _aPrivateIpAddress = Nothing - } - --- | 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 }) - --- | 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 }) - --- | 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 instance the address is associated with (if any). -aInstanceId :: Lens' Address (Maybe Text) -aInstanceId = lens _aInstanceId (\s a -> s { _aInstanceId = a }) - --- | The ID of the network interface. -aNetworkInterfaceId :: Lens' Address (Maybe Text) -aNetworkInterfaceId = - lens _aNetworkInterfaceId (\s a -> s { _aNetworkInterfaceId = 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 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 .@? "allocationId" - <*> x .@? "associationId" - <*> x .@? "domain" - <*> x .@? "instanceId" - <*> x .@? "networkInterfaceId" - <*> x .@? "networkInterfaceOwnerId" - <*> x .@? "privateIpAddress" - <*> x .@? "publicIp" - -instance ToQuery Address where - toQuery Address{..} = mconcat - [ "allocationId" =? _aAllocationId - , "associationId" =? _aAssociationId - , "domain" =? _aDomain - , "instanceId" =? _aInstanceId - , "networkInterfaceId" =? _aNetworkInterfaceId - , "networkInterfaceOwnerId" =? _aNetworkInterfaceOwnerId - , "privateIpAddress" =? _aPrivateIpAddress - , "publicIp" =? _aPublicIp - ] - -data VolumeAttachmentState - = VASAttached -- ^ attached - | VASAttaching -- ^ attaching - | VASDetached -- ^ detached - | VASDetaching -- ^ detaching - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable VolumeAttachmentState - -instance FromText VolumeAttachmentState where - parser = match "attached" VASAttached - <|> match "attaching" VASAttaching - <|> match "detached" VASDetached - <|> match "detaching" VASDetaching - -instance ToText VolumeAttachmentState where - toText = \case - VASAttached -> "attached" - VASAttaching -> "attaching" - VASDetached -> "detached" - VASDetaching -> "detaching" - -instance ToByteString VolumeAttachmentState -instance ToHeader VolumeAttachmentState -instance ToQuery VolumeAttachmentState - -instance FromXML VolumeAttachmentState where - parseXML = parseXMLText "VolumeAttachmentState" - - -data LaunchPermission = LaunchPermission - { _lpGroup :: Maybe PermissionGroup - , _lpUserId :: Maybe Text - } deriving (Eq, Show) - --- | 'LaunchPermission' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'lpGroup' @::@ 'Maybe' 'PermissionGroup' --- --- * 'lpUserId' @::@ 'Maybe' 'Text' --- -launchPermission :: LaunchPermission -launchPermission = LaunchPermission - { _lpUserId = Nothing - , _lpGroup = Nothing - } - --- | The name of the group. -lpGroup :: Lens' LaunchPermission (Maybe PermissionGroup) -lpGroup = lens _lpGroup (\s a -> s { _lpGroup = a }) - --- | The AWS account ID. -lpUserId :: Lens' LaunchPermission (Maybe Text) -lpUserId = lens _lpUserId (\s a -> s { _lpUserId = a }) - -instance FromXML LaunchPermission where - parseXML x = LaunchPermission - <$> x .@? "group" - <*> x .@? "userId" - -instance ToQuery LaunchPermission where - toQuery LaunchPermission{..} = mconcat - [ "group" =? _lpGroup - , "userId" =? _lpUserId - ] - -data RouteState - = Active -- ^ active - | Blackhole -- ^ blackhole - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable RouteState - -instance FromText RouteState where - parser = match "active" Active - <|> match "blackhole" Blackhole - -instance ToText RouteState where - toText = \case - Active -> "active" - Blackhole -> "blackhole" - -instance ToByteString RouteState -instance ToHeader RouteState -instance ToQuery RouteState - -instance FromXML RouteState where - parseXML = parseXMLText "RouteState" - - -data RouteTableAssociation = RouteTableAssociation - { _rtaMain :: Maybe Bool - , _rtaRouteTableAssociationId :: Maybe Text - , _rtaRouteTableId :: Maybe Text - , _rtaSubnetId :: Maybe Text - } deriving (Eq, Ord, Show) - --- | 'RouteTableAssociation' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'rtaMain' @::@ 'Maybe' 'Bool' --- --- * 'rtaRouteTableAssociationId' @::@ 'Maybe' 'Text' --- --- * 'rtaRouteTableId' @::@ 'Maybe' 'Text' --- --- * 'rtaSubnetId' @::@ 'Maybe' 'Text' --- -routeTableAssociation :: RouteTableAssociation -routeTableAssociation = RouteTableAssociation - { _rtaRouteTableAssociationId = Nothing - , _rtaRouteTableId = Nothing - , _rtaSubnetId = Nothing - , _rtaMain = Nothing - } - --- | 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 association between a route table and a subnet. -rtaRouteTableAssociationId :: Lens' RouteTableAssociation (Maybe Text) -rtaRouteTableAssociationId = - lens _rtaRouteTableAssociationId - (\s a -> s { _rtaRouteTableAssociationId = a }) - --- | The ID of the route table. -rtaRouteTableId :: Lens' RouteTableAssociation (Maybe Text) -rtaRouteTableId = lens _rtaRouteTableId (\s a -> s { _rtaRouteTableId = a }) - --- | The ID of the subnet. -rtaSubnetId :: Lens' RouteTableAssociation (Maybe Text) -rtaSubnetId = lens _rtaSubnetId (\s a -> s { _rtaSubnetId = a }) - -instance FromXML RouteTableAssociation where - parseXML x = RouteTableAssociation - <$> x .@? "main" - <*> x .@? "routeTableAssociationId" - <*> x .@? "routeTableId" - <*> x .@? "subnetId" - -instance ToQuery RouteTableAssociation where - toQuery RouteTableAssociation{..} = mconcat - [ "main" =? _rtaMain - , "routeTableAssociationId" =? _rtaRouteTableAssociationId - , "routeTableId" =? _rtaRouteTableId - , "subnetId" =? _rtaSubnetId - ] - -data BundleTaskState - = BTSBundling -- ^ bundling - | BTSCancelling -- ^ cancelling - | BTSComplete -- ^ complete - | BTSFailed -- ^ failed - | BTSPending -- ^ pending - | BTSStoring -- ^ storing - | BTSWaitingForShutdown -- ^ waiting-for-shutdown - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable BundleTaskState - -instance FromText BundleTaskState where - parser = match "bundling" BTSBundling - <|> match "cancelling" BTSCancelling - <|> match "complete" BTSComplete - <|> match "failed" BTSFailed - <|> match "pending" BTSPending - <|> match "storing" BTSStoring - <|> match "waiting-for-shutdown" BTSWaitingForShutdown - -instance ToText BundleTaskState where - toText = \case - BTSBundling -> "bundling" - BTSCancelling -> "cancelling" - BTSComplete -> "complete" - BTSFailed -> "failed" - BTSPending -> "pending" - BTSStoring -> "storing" - BTSWaitingForShutdown -> "waiting-for-shutdown" - -instance ToByteString BundleTaskState -instance ToHeader BundleTaskState -instance ToQuery BundleTaskState - -instance FromXML BundleTaskState where - parseXML = parseXMLText "BundleTaskState" - - -data PortRange = PortRange - { _prFrom :: Maybe Int - , _prTo :: Maybe Int - } deriving (Eq, Ord, Show) - --- | 'PortRange' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'prFrom' @::@ 'Maybe' 'Int' --- --- * 'prTo' @::@ 'Maybe' 'Int' --- -portRange :: PortRange -portRange = PortRange - { _prFrom = Nothing - , _prTo = Nothing - } - --- | The first port in the range. -prFrom :: Lens' PortRange (Maybe Int) -prFrom = lens _prFrom (\s a -> s { _prFrom = a }) - --- | The last port in the range. -prTo :: Lens' PortRange (Maybe Int) -prTo = lens _prTo (\s a -> s { _prTo = a }) - -instance FromXML PortRange where - parseXML x = PortRange - <$> x .@? "from" - <*> x .@? "to" - -instance ToQuery PortRange where - toQuery PortRange{..} = mconcat - [ "from" =? _prFrom - , "to" =? _prTo - ] - -data VpcAttributeName - = EnableDnsHostnames -- ^ enableDnsHostnames - | EnableDnsSupport -- ^ enableDnsSupport - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable VpcAttributeName - -instance FromText VpcAttributeName where - parser = match "enableDnsHostnames" EnableDnsHostnames - <|> match "enableDnsSupport" EnableDnsSupport - -instance ToText VpcAttributeName where - toText = \case - EnableDnsHostnames -> "enableDnsHostnames" - EnableDnsSupport -> "enableDnsSupport" - -instance ToByteString VpcAttributeName -instance ToHeader VpcAttributeName -instance ToQuery VpcAttributeName - -instance FromXML VpcAttributeName where - parseXML = parseXMLText "VpcAttributeName" - - -data ReservedInstancesConfiguration = ReservedInstancesConfiguration - { _ricAvailabilityZone :: Maybe Text - , _ricInstanceCount :: Maybe Int - , _ricInstanceType :: Maybe InstanceType - , _ricPlatform :: Maybe Text - } deriving (Eq, Show) - --- | 'ReservedInstancesConfiguration' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'ricAvailabilityZone' @::@ 'Maybe' 'Text' --- --- * 'ricInstanceCount' @::@ 'Maybe' 'Int' --- --- * 'ricInstanceType' @::@ 'Maybe' 'InstanceType' --- --- * 'ricPlatform' @::@ 'Maybe' 'Text' --- -reservedInstancesConfiguration :: ReservedInstancesConfiguration -reservedInstancesConfiguration = ReservedInstancesConfiguration - { _ricAvailabilityZone = Nothing - , _ricPlatform = Nothing - , _ricInstanceCount = Nothing - , _ricInstanceType = Nothing - } - --- | The Availability Zone for the modified Reserved Instances. -ricAvailabilityZone :: Lens' ReservedInstancesConfiguration (Maybe Text) -ricAvailabilityZone = - lens _ricAvailabilityZone (\s a -> s { _ricAvailabilityZone = 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 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 }) - -instance FromXML ReservedInstancesConfiguration where - parseXML x = ReservedInstancesConfiguration - <$> x .@? "availabilityZone" - <*> x .@? "instanceCount" - <*> x .@? "instanceType" - <*> x .@? "platform" - -instance ToQuery ReservedInstancesConfiguration where - toQuery ReservedInstancesConfiguration{..} = mconcat - [ "availabilityZone" =? _ricAvailabilityZone - , "instanceCount" =? _ricInstanceCount - , "instanceType" =? _ricInstanceType - , "platform" =? _ricPlatform - ] - -data VolumeStatusDetails = VolumeStatusDetails - { _vsdName :: Maybe VolumeStatusName - , _vsdStatus :: Maybe Text - } deriving (Eq, Show) - --- | 'VolumeStatusDetails' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'vsdName' @::@ 'Maybe' 'VolumeStatusName' --- --- * 'vsdStatus' @::@ 'Maybe' 'Text' --- -volumeStatusDetails :: VolumeStatusDetails -volumeStatusDetails = VolumeStatusDetails - { _vsdName = Nothing - , _vsdStatus = Nothing - } - --- | The name of the volume status. -vsdName :: Lens' VolumeStatusDetails (Maybe VolumeStatusName) -vsdName = lens _vsdName (\s a -> s { _vsdName = a }) - --- | The intended status of the volume status. -vsdStatus :: Lens' VolumeStatusDetails (Maybe Text) -vsdStatus = lens _vsdStatus (\s a -> s { _vsdStatus = a }) - -instance FromXML VolumeStatusDetails where - parseXML x = VolumeStatusDetails - <$> x .@? "name" - <*> x .@? "status" - -instance ToQuery VolumeStatusDetails where - toQuery VolumeStatusDetails{..} = mconcat - [ "name" =? _vsdName - , "status" =? _vsdStatus - ] - -data SpotInstanceState - = SISActive -- ^ active - | SISCancelled -- ^ cancelled - | SISClosed -- ^ closed - | SISFailed -- ^ failed - | SISOpen -- ^ open - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable SpotInstanceState - -instance FromText SpotInstanceState where - parser = match "active" SISActive - <|> match "cancelled" SISCancelled - <|> match "closed" SISClosed - <|> match "failed" SISFailed - <|> match "open" SISOpen - -instance ToText SpotInstanceState where - toText = \case - SISActive -> "active" - SISCancelled -> "cancelled" - SISClosed -> "closed" - SISFailed -> "failed" - SISOpen -> "open" - -instance ToByteString SpotInstanceState -instance ToHeader SpotInstanceState -instance ToQuery SpotInstanceState - -instance FromXML SpotInstanceState where - parseXML = parseXMLText "SpotInstanceState" - - -newtype VpnConnectionOptions = VpnConnectionOptions - { _vcoStaticRoutesOnly :: Maybe Bool - } deriving (Eq, Ord, Show) - --- | 'VpnConnectionOptions' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'vcoStaticRoutesOnly' @::@ 'Maybe' 'Bool' --- -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 ToQuery VpnConnectionOptions where - toQuery VpnConnectionOptions{..} = mconcat - [ "staticRoutesOnly" =? _vcoStaticRoutesOnly - ] - -data UserIdGroupPair = UserIdGroupPair - { _uigpGroupId :: Maybe Text - , _uigpGroupName :: Maybe Text - , _uigpUserId :: Maybe Text - } deriving (Eq, Ord, Show) - --- | 'UserIdGroupPair' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'uigpGroupId' @::@ 'Maybe' 'Text' --- --- * 'uigpGroupName' @::@ 'Maybe' 'Text' --- --- * 'uigpUserId' @::@ 'Maybe' 'Text' --- -userIdGroupPair :: UserIdGroupPair -userIdGroupPair = UserIdGroupPair - { _uigpUserId = Nothing - , _uigpGroupName = Nothing - , _uigpGroupId = Nothing - } - --- | The name of the security group in the specified AWS account. -uigpGroupId :: Lens' UserIdGroupPair (Maybe Text) -uigpGroupId = lens _uigpGroupId (\s a -> s { _uigpGroupId = a }) - --- | The ID of the security group owned by the specified AWS account. -uigpGroupName :: Lens' UserIdGroupPair (Maybe Text) -uigpGroupName = lens _uigpGroupName (\s a -> s { _uigpGroupName = a }) - --- | The ID of an AWS account. -uigpUserId :: Lens' UserIdGroupPair (Maybe Text) -uigpUserId = lens _uigpUserId (\s a -> s { _uigpUserId = a }) - -instance FromXML UserIdGroupPair where - parseXML x = UserIdGroupPair - <$> x .@? "groupId" - <*> x .@? "groupName" - <*> x .@? "userId" - -instance ToQuery UserIdGroupPair where - toQuery UserIdGroupPair{..} = mconcat - [ "groupId" =? _uigpGroupId - , "groupName" =? _uigpGroupName - , "userId" =? _uigpUserId - ] - -data InstanceStatusSummary = InstanceStatusSummary - { _issDetails :: List "item" InstanceStatusDetails - , _issStatus :: Maybe SummaryStatus - } deriving (Eq, Show) - --- | 'InstanceStatusSummary' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'issDetails' @::@ ['InstanceStatusDetails'] --- --- * 'issStatus' @::@ 'Maybe' 'SummaryStatus' --- -instanceStatusSummary :: InstanceStatusSummary -instanceStatusSummary = InstanceStatusSummary - { _issStatus = Nothing - , _issDetails = mempty - } - --- | The system instance health or application instance health. -issDetails :: Lens' InstanceStatusSummary [InstanceStatusDetails] -issDetails = lens _issDetails (\s a -> s { _issDetails = a }) . _List - --- | The status. -issStatus :: Lens' InstanceStatusSummary (Maybe SummaryStatus) -issStatus = lens _issStatus (\s a -> s { _issStatus = a }) - -instance FromXML InstanceStatusSummary where - parseXML x = InstanceStatusSummary - <$> x .@ "details" - <*> x .@? "status" - -instance ToQuery InstanceStatusSummary where - toQuery InstanceStatusSummary{..} = mconcat - [ "details" =? _issDetails - , "status" =? _issStatus - ] - -data SpotPlacement = SpotPlacement - { _sp1AvailabilityZone :: Maybe Text - , _sp1GroupName :: Maybe Text - } deriving (Eq, Ord, Show) - --- | 'SpotPlacement' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'sp1AvailabilityZone' @::@ 'Maybe' 'Text' --- --- * 'sp1GroupName' @::@ 'Maybe' 'Text' --- -spotPlacement :: SpotPlacement -spotPlacement = SpotPlacement - { _sp1AvailabilityZone = Nothing - , _sp1GroupName = Nothing - } - --- | The Availability Zone. -sp1AvailabilityZone :: Lens' SpotPlacement (Maybe Text) -sp1AvailabilityZone = - lens _sp1AvailabilityZone (\s a -> s { _sp1AvailabilityZone = a }) - --- | The name of the placement group (for cluster instances). -sp1GroupName :: Lens' SpotPlacement (Maybe Text) -sp1GroupName = lens _sp1GroupName (\s a -> s { _sp1GroupName = a }) - -instance FromXML SpotPlacement where - parseXML x = SpotPlacement - <$> x .@? "availabilityZone" - <*> x .@? "groupName" - -instance ToQuery SpotPlacement where - toQuery SpotPlacement{..} = mconcat - [ "availabilityZone" =? _sp1AvailabilityZone - , "groupName" =? _sp1GroupName - ] - -data EbsInstanceBlockDeviceSpecification = EbsInstanceBlockDeviceSpecification - { _eibdsDeleteOnTermination :: Maybe Bool - , _eibdsVolumeId :: Maybe Text - } deriving (Eq, Ord, Show) - --- | 'EbsInstanceBlockDeviceSpecification' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'eibdsDeleteOnTermination' @::@ 'Maybe' 'Bool' --- --- * 'eibdsVolumeId' @::@ 'Maybe' 'Text' --- -ebsInstanceBlockDeviceSpecification :: EbsInstanceBlockDeviceSpecification -ebsInstanceBlockDeviceSpecification = EbsInstanceBlockDeviceSpecification - { _eibdsVolumeId = Nothing - , _eibdsDeleteOnTermination = 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 Amazon EBS volume. -eibdsVolumeId :: Lens' EbsInstanceBlockDeviceSpecification (Maybe Text) -eibdsVolumeId = lens _eibdsVolumeId (\s a -> s { _eibdsVolumeId = a }) - -instance FromXML EbsInstanceBlockDeviceSpecification where - parseXML x = EbsInstanceBlockDeviceSpecification - <$> x .@? "deleteOnTermination" - <*> x .@? "volumeId" - -instance ToQuery EbsInstanceBlockDeviceSpecification where - toQuery EbsInstanceBlockDeviceSpecification{..} = mconcat - [ "deleteOnTermination" =? _eibdsDeleteOnTermination - , "volumeId" =? _eibdsVolumeId - ] - -data NetworkAclAssociation = NetworkAclAssociation - { _naaNetworkAclAssociationId :: Maybe Text - , _naaNetworkAclId :: Maybe Text - , _naaSubnetId :: Maybe Text - } deriving (Eq, Ord, Show) - --- | 'NetworkAclAssociation' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'naaNetworkAclAssociationId' @::@ 'Maybe' 'Text' --- --- * 'naaNetworkAclId' @::@ 'Maybe' 'Text' --- --- * 'naaSubnetId' @::@ 'Maybe' 'Text' --- -networkAclAssociation :: NetworkAclAssociation -networkAclAssociation = NetworkAclAssociation - { _naaNetworkAclAssociationId = Nothing - , _naaNetworkAclId = Nothing - , _naaSubnetId = Nothing - } - --- | 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 }) - --- | 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 }) - -instance FromXML NetworkAclAssociation where - parseXML x = NetworkAclAssociation - <$> x .@? "networkAclAssociationId" - <*> x .@? "networkAclId" - <*> x .@? "subnetId" - -instance ToQuery NetworkAclAssociation where - toQuery NetworkAclAssociation{..} = mconcat - [ "networkAclAssociationId" =? _naaNetworkAclAssociationId - , "networkAclId" =? _naaNetworkAclId - , "subnetId" =? _naaSubnetId - ] - -data BundleTask = BundleTask - { _btBundleId :: Maybe Text - , _btBundleTaskError :: Maybe BundleTaskError - , _btInstanceId :: Maybe Text - , _btProgress :: Maybe Text - , _btStartTime :: Maybe RFC822 - , _btState :: Maybe BundleTaskState - , _btStorage :: Maybe Storage - , _btUpdateTime :: Maybe RFC822 - } deriving (Eq, Show) - --- | 'BundleTask' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'btBundleId' @::@ 'Maybe' 'Text' --- --- * 'btBundleTaskError' @::@ 'Maybe' 'BundleTaskError' --- --- * 'btInstanceId' @::@ 'Maybe' 'Text' --- --- * 'btProgress' @::@ 'Maybe' 'Text' --- --- * 'btStartTime' @::@ 'Maybe' 'UTCTime' --- --- * 'btState' @::@ 'Maybe' 'BundleTaskState' --- --- * 'btStorage' @::@ 'Maybe' 'Storage' --- --- * 'btUpdateTime' @::@ 'Maybe' 'UTCTime' --- -bundleTask :: BundleTask -bundleTask = BundleTask - { _btInstanceId = Nothing - , _btBundleId = Nothing - , _btState = Nothing - , _btStartTime = Nothing - , _btUpdateTime = Nothing - , _btStorage = Nothing - , _btProgress = Nothing - , _btBundleTaskError = Nothing - } - --- | The ID for this bundle task. -btBundleId :: Lens' BundleTask (Maybe Text) -btBundleId = lens _btBundleId (\s a -> s { _btBundleId = a }) - --- | 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 instance associated with this bundle task. -btInstanceId :: Lens' BundleTask (Maybe Text) -btInstanceId = lens _btInstanceId (\s a -> s { _btInstanceId = a }) - --- | The level of task completion, as a percent (for example, 20%). -btProgress :: Lens' BundleTask (Maybe Text) -btProgress = lens _btProgress (\s a -> s { _btProgress = a }) - --- | The time this task started. -btStartTime :: Lens' BundleTask (Maybe UTCTime) -btStartTime = lens _btStartTime (\s a -> s { _btStartTime = a }) . mapping _Time - --- | The state of the task. -btState :: Lens' BundleTask (Maybe BundleTaskState) -btState = lens _btState (\s a -> s { _btState = a }) - --- | The Amazon S3 storage locations. -btStorage :: Lens' BundleTask (Maybe Storage) -btStorage = lens _btStorage (\s a -> s { _btStorage = a }) - --- | The time of the most recent update for the task. -btUpdateTime :: Lens' BundleTask (Maybe UTCTime) -btUpdateTime = lens _btUpdateTime (\s a -> s { _btUpdateTime = a }) . mapping _Time - -instance FromXML BundleTask where - parseXML x = BundleTask - <$> x .@? "bundleId" - <*> x .@? "error" - <*> x .@? "instanceId" - <*> x .@? "progress" - <*> x .@? "startTime" - <*> x .@? "state" - <*> x .@? "storage" - <*> x .@? "updateTime" - -instance ToQuery BundleTask where - toQuery BundleTask{..} = mconcat - [ "bundleId" =? _btBundleId - , "error" =? _btBundleTaskError - , "instanceId" =? _btInstanceId - , "progress" =? _btProgress - , "startTime" =? _btStartTime - , "state" =? _btState - , "storage" =? _btStorage - , "updateTime" =? _btUpdateTime - ] - -data InstanceStatusEvent = InstanceStatusEvent - { _iseCode :: Maybe EventCode - , _iseDescription :: Maybe Text - , _iseNotAfter :: Maybe RFC822 - , _iseNotBefore :: Maybe RFC822 - } deriving (Eq, Show) - --- | 'InstanceStatusEvent' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'iseCode' @::@ 'Maybe' 'EventCode' --- --- * 'iseDescription' @::@ 'Maybe' 'Text' --- --- * 'iseNotAfter' @::@ 'Maybe' 'UTCTime' --- --- * 'iseNotBefore' @::@ 'Maybe' 'UTCTime' --- -instanceStatusEvent :: InstanceStatusEvent -instanceStatusEvent = InstanceStatusEvent - { _iseCode = Nothing - , _iseDescription = Nothing - , _iseNotBefore = Nothing - , _iseNotAfter = Nothing - } - --- | The associated code of the event. -iseCode :: Lens' InstanceStatusEvent (Maybe EventCode) -iseCode = lens _iseCode (\s a -> s { _iseCode = a }) - --- | A description of the event. -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 - --- | The earliest scheduled start time for the event. -iseNotBefore :: Lens' InstanceStatusEvent (Maybe UTCTime) -iseNotBefore = lens _iseNotBefore (\s a -> s { _iseNotBefore = a }) . mapping _Time - -instance FromXML InstanceStatusEvent where - parseXML x = InstanceStatusEvent - <$> x .@? "code" - <*> x .@? "description" - <*> x .@? "notAfter" - <*> x .@? "notBefore" - -instance ToQuery InstanceStatusEvent where - toQuery InstanceStatusEvent{..} = mconcat - [ "code" =? _iseCode - , "description" =? _iseDescription - , "notAfter" =? _iseNotAfter - , "notBefore" =? _iseNotBefore - ] - -data InstanceType - = C1Medium -- ^ c1.medium - | C1XLarge -- ^ c1.xlarge - | C32XLarge -- ^ c3.2xlarge - | C34XLarge -- ^ c3.4xlarge - | C38XLarge -- ^ c3.8xlarge - | C3Large -- ^ c3.large - | C3XLarge -- ^ c3.xlarge - | Cc14XLarge -- ^ cc1.4xlarge - | Cc28XLarge -- ^ cc2.8xlarge - | Cg14XLarge -- ^ cg1.4xlarge - | Cr18XLarge -- ^ cr1.8xlarge - | G22XLarge -- ^ g2.2xlarge - | Hi14XLarge -- ^ hi1.4xlarge - | Hs18XLarge -- ^ hs1.8xlarge - | I22XLarge -- ^ i2.2xlarge - | I24XLarge -- ^ i2.4xlarge - | I28XLarge -- ^ i2.8xlarge - | I2XLarge -- ^ i2.xlarge - | M1Large -- ^ m1.large - | M1Medium -- ^ m1.medium - | M1Small -- ^ m1.small - | M1XLarge -- ^ m1.xlarge - | M22XLarge -- ^ m2.2xlarge - | M24XLarge -- ^ m2.4xlarge - | M2XLarge -- ^ m2.xlarge - | M32XLarge -- ^ m3.2xlarge - | M3Large -- ^ m3.large - | M3Medium -- ^ m3.medium - | M3XLarge -- ^ m3.xlarge - | R32XLarge -- ^ r3.2xlarge - | R34XLarge -- ^ r3.4xlarge - | R38XLarge -- ^ r3.8xlarge - | R3Large -- ^ r3.large - | R3XLarge -- ^ r3.xlarge - | T1Micro -- ^ t1.micro - | T2Medium -- ^ t2.medium - | T2Micro -- ^ t2.micro - | T2Small -- ^ t2.small - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable InstanceType - -instance FromText InstanceType where - parser = match "c1.medium" C1Medium - <|> match "c1.xlarge" C1XLarge - <|> match "c3.2xlarge" C32XLarge - <|> match "c3.4xlarge" C34XLarge - <|> match "c3.8xlarge" C38XLarge - <|> match "c3.large" C3Large - <|> match "c3.xlarge" C3XLarge - <|> match "cc1.4xlarge" Cc14XLarge - <|> match "cc2.8xlarge" Cc28XLarge - <|> match "cg1.4xlarge" Cg14XLarge - <|> match "cr1.8xlarge" Cr18XLarge - <|> match "g2.2xlarge" G22XLarge - <|> match "hi1.4xlarge" Hi14XLarge - <|> match "hs1.8xlarge" Hs18XLarge - <|> match "i2.2xlarge" I22XLarge - <|> match "i2.4xlarge" I24XLarge - <|> match "i2.8xlarge" I28XLarge - <|> match "i2.xlarge" I2XLarge - <|> match "m1.large" M1Large - <|> match "m1.medium" M1Medium - <|> match "m1.small" M1Small - <|> match "m1.xlarge" M1XLarge - <|> match "m2.2xlarge" M22XLarge - <|> match "m2.4xlarge" M24XLarge - <|> match "m2.xlarge" M2XLarge - <|> match "m3.2xlarge" M32XLarge - <|> match "m3.large" M3Large - <|> match "m3.medium" M3Medium - <|> match "m3.xlarge" M3XLarge - <|> match "r3.2xlarge" R32XLarge - <|> match "r3.4xlarge" R34XLarge - <|> match "r3.8xlarge" R38XLarge - <|> match "r3.large" R3Large - <|> match "r3.xlarge" R3XLarge - <|> match "t1.micro" T1Micro - <|> match "t2.medium" T2Medium - <|> match "t2.micro" T2Micro - <|> match "t2.small" T2Small - -instance ToText InstanceType where - toText = \case - C1Medium -> "c1.medium" - C1XLarge -> "c1.xlarge" - C32XLarge -> "c3.2xlarge" - C34XLarge -> "c3.4xlarge" - C38XLarge -> "c3.8xlarge" - C3Large -> "c3.large" - C3XLarge -> "c3.xlarge" - Cc14XLarge -> "cc1.4xlarge" - Cc28XLarge -> "cc2.8xlarge" - Cg14XLarge -> "cg1.4xlarge" - Cr18XLarge -> "cr1.8xlarge" - G22XLarge -> "g2.2xlarge" - Hi14XLarge -> "hi1.4xlarge" - Hs18XLarge -> "hs1.8xlarge" - I22XLarge -> "i2.2xlarge" - I24XLarge -> "i2.4xlarge" - I28XLarge -> "i2.8xlarge" - I2XLarge -> "i2.xlarge" - M1Large -> "m1.large" - M1Medium -> "m1.medium" - M1Small -> "m1.small" - M1XLarge -> "m1.xlarge" - M22XLarge -> "m2.2xlarge" - M24XLarge -> "m2.4xlarge" - M2XLarge -> "m2.xlarge" - M32XLarge -> "m3.2xlarge" - M3Large -> "m3.large" - M3Medium -> "m3.medium" - M3XLarge -> "m3.xlarge" - R32XLarge -> "r3.2xlarge" - R34XLarge -> "r3.4xlarge" - R38XLarge -> "r3.8xlarge" - R3Large -> "r3.large" - R3XLarge -> "r3.xlarge" - T1Micro -> "t1.micro" - T2Medium -> "t2.medium" - T2Micro -> "t2.micro" - T2Small -> "t2.small" - -instance ToByteString InstanceType -instance ToHeader InstanceType -instance ToQuery InstanceType - -instance FromXML InstanceType where - parseXML = parseXMLText "InstanceType" - - -data Route = Route - { _rDestinationCidrBlock :: Maybe Text - , _rGatewayId :: Maybe Text - , _rInstanceId :: Maybe Text - , _rInstanceOwnerId :: Maybe Text - , _rNetworkInterfaceId :: Maybe Text - , _rOrigin :: Maybe RouteOrigin - , _rState :: Maybe RouteState - , _rVpcPeeringConnectionId :: Maybe Text - } deriving (Eq, Show) - --- | 'Route' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'rDestinationCidrBlock' @::@ 'Maybe' 'Text' --- --- * 'rGatewayId' @::@ 'Maybe' 'Text' --- --- * 'rInstanceId' @::@ 'Maybe' 'Text' --- --- * 'rInstanceOwnerId' @::@ 'Maybe' 'Text' --- --- * 'rNetworkInterfaceId' @::@ 'Maybe' 'Text' --- --- * 'rOrigin' @::@ 'Maybe' 'RouteOrigin' --- --- * 'rState' @::@ 'Maybe' 'RouteState' --- --- * 'rVpcPeeringConnectionId' @::@ 'Maybe' 'Text' --- -route :: Route -route = Route - { _rDestinationCidrBlock = Nothing - , _rGatewayId = Nothing - , _rInstanceId = Nothing - , _rInstanceOwnerId = Nothing - , _rNetworkInterfaceId = Nothing - , _rVpcPeeringConnectionId = Nothing - , _rState = Nothing - , _rOrigin = Nothing - } - --- | The CIDR block used for the destination match. -rDestinationCidrBlock :: Lens' Route (Maybe Text) -rDestinationCidrBlock = - lens _rDestinationCidrBlock (\s a -> s { _rDestinationCidrBlock = a }) - --- | The ID of a gateway attached to your VPC. -rGatewayId :: Lens' Route (Maybe Text) -rGatewayId = lens _rGatewayId (\s a -> s { _rGatewayId = a }) - --- | The ID of a NAT instance in your VPC. -rInstanceId :: Lens' Route (Maybe Text) -rInstanceId = lens _rInstanceId (\s a -> s { _rInstanceId = 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 ID of the network interface. -rNetworkInterfaceId :: Lens' Route (Maybe Text) -rNetworkInterfaceId = - lens _rNetworkInterfaceId (\s a -> s { _rNetworkInterfaceId = a }) - --- | Describes how the route was created. CreateRouteTable indicates that --- 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. -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 VPC peering connection. -rVpcPeeringConnectionId :: Lens' Route (Maybe Text) -rVpcPeeringConnectionId = - lens _rVpcPeeringConnectionId (\s a -> s { _rVpcPeeringConnectionId = a }) - -instance FromXML Route where - parseXML x = Route - <$> x .@? "destinationCidrBlock" - <*> x .@? "gatewayId" - <*> x .@? "instanceId" - <*> x .@? "instanceOwnerId" - <*> x .@? "networkInterfaceId" - <*> x .@? "origin" - <*> x .@? "state" - <*> x .@? "vpcPeeringConnectionId" - -instance ToQuery Route where - toQuery Route{..} = mconcat - [ "destinationCidrBlock" =? _rDestinationCidrBlock - , "gatewayId" =? _rGatewayId - , "instanceId" =? _rInstanceId - , "instanceOwnerId" =? _rInstanceOwnerId - , "networkInterfaceId" =? _rNetworkInterfaceId - , "origin" =? _rOrigin - , "state" =? _rState - , "vpcPeeringConnectionId" =? _rVpcPeeringConnectionId - ] - -data SpotDatafeedSubscription = SpotDatafeedSubscription - { _sdsBucket :: Maybe Text - , _sdsFault :: Maybe SpotInstanceStateFault - , _sdsOwnerId :: Maybe Text - , _sdsPrefix :: Maybe Text - , _sdsState :: Maybe DatafeedSubscriptionState - } deriving (Eq, Show) - --- | 'SpotDatafeedSubscription' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'sdsBucket' @::@ 'Maybe' 'Text' --- --- * 'sdsFault' @::@ 'Maybe' 'SpotInstanceStateFault' --- --- * 'sdsOwnerId' @::@ 'Maybe' 'Text' --- --- * 'sdsPrefix' @::@ 'Maybe' 'Text' --- --- * 'sdsState' @::@ 'Maybe' 'DatafeedSubscriptionState' --- -spotDatafeedSubscription :: SpotDatafeedSubscription -spotDatafeedSubscription = SpotDatafeedSubscription - { _sdsOwnerId = Nothing - , _sdsBucket = Nothing - , _sdsPrefix = Nothing - , _sdsState = Nothing - , _sdsFault = Nothing - } - --- | The Amazon S3 bucket where the Spot Instance datafeed is located. -sdsBucket :: Lens' SpotDatafeedSubscription (Maybe Text) -sdsBucket = lens _sdsBucket (\s a -> s { _sdsBucket = a }) - --- | The fault codes for the Spot Instance request, if any. -sdsFault :: Lens' SpotDatafeedSubscription (Maybe SpotInstanceStateFault) -sdsFault = lens _sdsFault (\s a -> s { _sdsFault = a }) - --- | The AWS account ID of the account. -sdsOwnerId :: Lens' SpotDatafeedSubscription (Maybe Text) -sdsOwnerId = lens _sdsOwnerId (\s a -> s { _sdsOwnerId = a }) - --- | The prefix that is prepended to datafeed files. -sdsPrefix :: Lens' SpotDatafeedSubscription (Maybe Text) -sdsPrefix = lens _sdsPrefix (\s a -> s { _sdsPrefix = a }) - --- | The state of the Spot Instance datafeed subscription. -sdsState :: Lens' SpotDatafeedSubscription (Maybe DatafeedSubscriptionState) -sdsState = lens _sdsState (\s a -> s { _sdsState = a }) - -instance FromXML SpotDatafeedSubscription where - parseXML x = SpotDatafeedSubscription - <$> x .@? "bucket" - <*> x .@? "fault" - <*> x .@? "ownerId" - <*> x .@? "prefix" - <*> x .@? "state" - -instance ToQuery SpotDatafeedSubscription where - toQuery SpotDatafeedSubscription{..} = mconcat - [ "bucket" =? _sdsBucket - , "fault" =? _sdsFault - , "ownerId" =? _sdsOwnerId - , "prefix" =? _sdsPrefix - , "state" =? _sdsState - ] - -newtype Storage = Storage - { _sS3 :: Maybe S3Storage - } deriving (Eq, Show) - --- | 'Storage' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'sS3' @::@ 'Maybe' 'S3Storage' --- -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 ToQuery Storage where - toQuery Storage{..} = mconcat - [ "S3" =? _sS3 - ] - -data SecurityGroup = SecurityGroup - { _sgDescription :: Text - , _sgGroupId :: Text - , _sgGroupName :: Text - , _sgIpPermissions :: List "item" IpPermission - , _sgIpPermissionsEgress :: List "item" IpPermission - , _sgOwnerId :: Text - , _sgTags :: List "item" Tag - , _sgVpcId :: Maybe Text - } deriving (Eq, Show) - --- | 'SecurityGroup' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'sgDescription' @::@ 'Text' --- --- * 'sgGroupId' @::@ 'Text' --- --- * 'sgGroupName' @::@ 'Text' --- --- * 'sgIpPermissions' @::@ ['IpPermission'] --- --- * 'sgIpPermissionsEgress' @::@ ['IpPermission'] --- --- * 'sgOwnerId' @::@ 'Text' --- --- * 'sgTags' @::@ ['Tag'] --- --- * 'sgVpcId' @::@ 'Maybe' 'Text' --- -securityGroup :: Text -- ^ 'sgOwnerId' - -> Text -- ^ 'sgGroupName' - -> Text -- ^ 'sgGroupId' - -> Text -- ^ 'sgDescription' - -> SecurityGroup -securityGroup p1 p2 p3 p4 = SecurityGroup - { _sgOwnerId = p1 - , _sgGroupName = p2 - , _sgGroupId = p3 - , _sgDescription = p4 - , _sgIpPermissions = mempty - , _sgIpPermissionsEgress = mempty - , _sgVpcId = Nothing - , _sgTags = mempty - } - --- | A description of the security group. -sgDescription :: Lens' SecurityGroup Text -sgDescription = lens _sgDescription (\s a -> s { _sgDescription = 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 }) - --- | One or more inbound rules associated with the security group. -sgIpPermissions :: Lens' SecurityGroup [IpPermission] -sgIpPermissions = lens _sgIpPermissions (\s a -> s { _sgIpPermissions = a }) . _List - --- | [EC2-VPC] One or more outbound rules associated with the security group. -sgIpPermissionsEgress :: Lens' SecurityGroup [IpPermission] -sgIpPermissionsEgress = - lens _sgIpPermissionsEgress (\s a -> s { _sgIpPermissionsEgress = a }) - . _List - --- | The AWS account ID of the owner of the security group. -sgOwnerId :: Lens' SecurityGroup Text -sgOwnerId = lens _sgOwnerId (\s a -> s { _sgOwnerId = a }) - --- | Any tags assigned to the security group. -sgTags :: Lens' SecurityGroup [Tag] -sgTags = lens _sgTags (\s a -> s { _sgTags = a }) . _List - --- | [EC2-VPC] The ID of the VPC for the security group. -sgVpcId :: Lens' SecurityGroup (Maybe Text) -sgVpcId = lens _sgVpcId (\s a -> s { _sgVpcId = a }) - -instance FromXML SecurityGroup where - parseXML x = SecurityGroup - <$> x .@ "groupDescription" - <*> x .@ "groupId" - <*> x .@ "groupName" - <*> x .@ "ipPermissions" - <*> x .@ "ipPermissionsEgress" - <*> x .@ "ownerId" - <*> x .@ "tagSet" - <*> x .@? "vpcId" - -instance ToQuery SecurityGroup where - toQuery SecurityGroup{..} = mconcat - [ "groupDescription" =? _sgDescription - , "groupId" =? _sgGroupId - , "groupName" =? _sgGroupName - , "ipPermissions" =? _sgIpPermissions - , "ipPermissionsEgress" =? _sgIpPermissionsEgress - , "ownerId" =? _sgOwnerId - , "tagSet" =? _sgTags - , "vpcId" =? _sgVpcId - ] - -data CancelSpotInstanceRequestState - = CSIRSActive -- ^ active - | CSIRSCancelled -- ^ cancelled - | CSIRSClosed -- ^ closed - | CSIRSCompleted -- ^ completed - | CSIRSOpen -- ^ open - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable CancelSpotInstanceRequestState - -instance FromText CancelSpotInstanceRequestState where - parser = match "active" CSIRSActive - <|> match "cancelled" CSIRSCancelled - <|> match "closed" CSIRSClosed - <|> match "completed" CSIRSCompleted - <|> match "open" CSIRSOpen - -instance ToText CancelSpotInstanceRequestState where - toText = \case - CSIRSActive -> "active" - CSIRSCancelled -> "cancelled" - CSIRSClosed -> "closed" - CSIRSCompleted -> "completed" - CSIRSOpen -> "open" - -instance ToByteString CancelSpotInstanceRequestState -instance ToHeader CancelSpotInstanceRequestState -instance ToQuery CancelSpotInstanceRequestState - -instance FromXML CancelSpotInstanceRequestState where - parseXML = parseXMLText "CancelSpotInstanceRequestState" - - -data PlacementGroupState - = PGSAvailable -- ^ available - | PGSDeleted -- ^ deleted - | PGSDeleting -- ^ deleting - | PGSPending -- ^ pending - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable PlacementGroupState - -instance FromText PlacementGroupState where - parser = match "available" PGSAvailable - <|> match "deleted" PGSDeleted - <|> match "deleting" PGSDeleting - <|> match "pending" PGSPending - -instance ToText PlacementGroupState where - toText = \case - PGSAvailable -> "available" - PGSDeleted -> "deleted" - PGSDeleting -> "deleting" - PGSPending -> "pending" - -instance ToByteString PlacementGroupState -instance ToHeader PlacementGroupState -instance ToQuery PlacementGroupState - -instance FromXML PlacementGroupState where - parseXML = parseXMLText "PlacementGroupState" - - -data ReservedInstancesModificationResult = ReservedInstancesModificationResult - { _rimrReservedInstancesId :: Maybe Text - , _rimrTargetConfiguration :: Maybe ReservedInstancesConfiguration - } deriving (Eq, Show) - --- | 'ReservedInstancesModificationResult' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'rimrReservedInstancesId' @::@ 'Maybe' 'Text' --- --- * 'rimrTargetConfiguration' @::@ 'Maybe' 'ReservedInstancesConfiguration' --- -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 ToQuery ReservedInstancesModificationResult where - toQuery ReservedInstancesModificationResult{..} = mconcat - [ "reservedInstancesId" =? _rimrReservedInstancesId - , "targetConfiguration" =? _rimrTargetConfiguration - ] - -data InstanceBlockDeviceMappingSpecification = InstanceBlockDeviceMappingSpecification - { _ibdmsDeviceName :: Maybe Text - , _ibdmsEbs :: Maybe EbsInstanceBlockDeviceSpecification - , _ibdmsNoDevice :: Maybe Text - , _ibdmsVirtualName :: Maybe Text - } deriving (Eq, Show) - --- | 'InstanceBlockDeviceMappingSpecification' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'ibdmsDeviceName' @::@ 'Maybe' 'Text' --- --- * 'ibdmsEbs' @::@ 'Maybe' 'EbsInstanceBlockDeviceSpecification' --- --- * 'ibdmsNoDevice' @::@ 'Maybe' 'Text' --- --- * 'ibdmsVirtualName' @::@ 'Maybe' 'Text' --- -instanceBlockDeviceMappingSpecification :: InstanceBlockDeviceMappingSpecification -instanceBlockDeviceMappingSpecification = InstanceBlockDeviceMappingSpecification - { _ibdmsDeviceName = Nothing - , _ibdmsEbs = Nothing - , _ibdmsVirtualName = Nothing - , _ibdmsNoDevice = Nothing - } - --- | The device name exposed to the instance (for example, /dev/sdh). -ibdmsDeviceName :: Lens' InstanceBlockDeviceMappingSpecification (Maybe Text) -ibdmsDeviceName = lens _ibdmsDeviceName (\s a -> s { _ibdmsDeviceName = a }) - --- | Parameters used to automatically set up Amazon EBS volumes when the --- instance is launched. -ibdmsEbs :: Lens' InstanceBlockDeviceMappingSpecification (Maybe EbsInstanceBlockDeviceSpecification) -ibdmsEbs = lens _ibdmsEbs (\s a -> s { _ibdmsEbs = a }) - --- | suppress the specified device included in the block device mapping. -ibdmsNoDevice :: Lens' InstanceBlockDeviceMappingSpecification (Maybe Text) -ibdmsNoDevice = lens _ibdmsNoDevice (\s a -> s { _ibdmsNoDevice = a }) - --- | The virtual device name. -ibdmsVirtualName :: Lens' InstanceBlockDeviceMappingSpecification (Maybe Text) -ibdmsVirtualName = lens _ibdmsVirtualName (\s a -> s { _ibdmsVirtualName = a }) - -instance FromXML InstanceBlockDeviceMappingSpecification where - parseXML x = InstanceBlockDeviceMappingSpecification - <$> x .@? "deviceName" - <*> x .@? "ebs" - <*> x .@? "noDevice" - <*> x .@? "virtualName" - -instance ToQuery InstanceBlockDeviceMappingSpecification where - toQuery InstanceBlockDeviceMappingSpecification{..} = mconcat - [ "deviceName" =? _ibdmsDeviceName - , "ebs" =? _ibdmsEbs - , "noDevice" =? _ibdmsNoDevice - , "virtualName" =? _ibdmsVirtualName - ] - -data ExportEnvironment - = Citrix -- ^ citrix - | Microsoft -- ^ microsoft - | Vmware -- ^ vmware - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable ExportEnvironment - -instance FromText ExportEnvironment where - parser = match "citrix" Citrix - <|> match "microsoft" Microsoft - <|> match "vmware" Vmware - -instance ToText ExportEnvironment where - toText = \case - Citrix -> "citrix" - Microsoft -> "microsoft" - Vmware -> "vmware" - -instance ToByteString ExportEnvironment -instance ToHeader ExportEnvironment -instance ToQuery ExportEnvironment - -instance FromXML ExportEnvironment where - parseXML = parseXMLText "ExportEnvironment" - - -data VolumeAttachment = VolumeAttachment - { _vaAttachTime :: Maybe RFC822 - , _vaDeleteOnTermination :: Maybe Bool - , _vaDevice :: Maybe Text - , _vaInstanceId :: Maybe Text - , _vaState :: Maybe VolumeAttachmentState - , _vaVolumeId :: Maybe Text - } deriving (Eq, Show) - --- | 'VolumeAttachment' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'vaAttachTime' @::@ 'Maybe' 'UTCTime' --- --- * 'vaDeleteOnTermination' @::@ 'Maybe' 'Bool' --- --- * 'vaDevice' @::@ 'Maybe' 'Text' --- --- * 'vaInstanceId' @::@ 'Maybe' 'Text' --- --- * 'vaState' @::@ 'Maybe' 'VolumeAttachmentState' --- --- * 'vaVolumeId' @::@ 'Maybe' 'Text' --- -volumeAttachment :: VolumeAttachment -volumeAttachment = VolumeAttachment - { _vaVolumeId = Nothing - , _vaInstanceId = Nothing - , _vaDevice = Nothing - , _vaState = Nothing - , _vaAttachTime = Nothing - , _vaDeleteOnTermination = Nothing - } - --- | The time stamp when the attachment initiated. -vaAttachTime :: Lens' VolumeAttachment (Maybe UTCTime) -vaAttachTime = lens _vaAttachTime (\s a -> s { _vaAttachTime = a }) . mapping _Time - --- | Indicates whether the Amazon EBS volume is deleted on instance --- termination. -vaDeleteOnTermination :: Lens' VolumeAttachment (Maybe Bool) -vaDeleteOnTermination = - lens _vaDeleteOnTermination (\s a -> s { _vaDeleteOnTermination = a }) - --- | The device name. -vaDevice :: Lens' VolumeAttachment (Maybe Text) -vaDevice = lens _vaDevice (\s a -> s { _vaDevice = a }) - --- | The ID of the instance. -vaInstanceId :: Lens' VolumeAttachment (Maybe Text) -vaInstanceId = lens _vaInstanceId (\s a -> s { _vaInstanceId = a }) - --- | The attachment state of the volume. -vaState :: Lens' VolumeAttachment (Maybe VolumeAttachmentState) -vaState = lens _vaState (\s a -> s { _vaState = a }) - --- | The ID of the volume. -vaVolumeId :: Lens' VolumeAttachment (Maybe Text) -vaVolumeId = lens _vaVolumeId (\s a -> s { _vaVolumeId = a }) - -instance FromXML VolumeAttachment where - parseXML x = VolumeAttachment - <$> x .@? "attachTime" - <*> x .@? "deleteOnTermination" - <*> x .@? "device" - <*> x .@? "instanceId" - <*> x .@? "status" - <*> x .@? "volumeId" - -instance ToQuery VolumeAttachment where - toQuery VolumeAttachment{..} = mconcat - [ "attachTime" =? _vaAttachTime - , "deleteOnTermination" =? _vaDeleteOnTermination - , "device" =? _vaDevice - , "instanceId" =? _vaInstanceId - , "status" =? _vaState - , "volumeId" =? _vaVolumeId - ] - -data CustomerGateway = CustomerGateway - { _cgBgpAsn :: Maybe Text - , _cgCustomerGatewayId :: Maybe Text - , _cgIpAddress :: Maybe Text - , _cgState :: Maybe Text - , _cgTags :: List "item" Tag - , _cgType :: Maybe Text - } deriving (Eq, Show) - --- | 'CustomerGateway' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'cgBgpAsn' @::@ 'Maybe' 'Text' --- --- * 'cgCustomerGatewayId' @::@ 'Maybe' 'Text' --- --- * 'cgIpAddress' @::@ 'Maybe' 'Text' --- --- * 'cgState' @::@ 'Maybe' 'Text' --- --- * 'cgTags' @::@ ['Tag'] --- --- * 'cgType' @::@ 'Maybe' 'Text' --- -customerGateway :: CustomerGateway -customerGateway = CustomerGateway - { _cgCustomerGatewayId = Nothing - , _cgState = Nothing - , _cgType = Nothing - , _cgIpAddress = Nothing - , _cgBgpAsn = Nothing - , _cgTags = mempty - } - --- | The customer gateway's Border Gateway Protocol (BGP) Autonomous System --- Number (ASN). -cgBgpAsn :: Lens' CustomerGateway (Maybe Text) -cgBgpAsn = lens _cgBgpAsn (\s a -> s { _cgBgpAsn = a }) - --- | The ID of the customer gateway. -cgCustomerGatewayId :: Lens' CustomerGateway (Maybe Text) -cgCustomerGatewayId = - lens _cgCustomerGatewayId (\s a -> s { _cgCustomerGatewayId = a }) - --- | The Internet-routable IP address of the customer gateway's outside --- interface. -cgIpAddress :: Lens' CustomerGateway (Maybe Text) -cgIpAddress = lens _cgIpAddress (\s a -> s { _cgIpAddress = a }) - --- | The current state of the customer gateway (pending | available | deleting --- | deleted). -cgState :: Lens' CustomerGateway (Maybe Text) -cgState = lens _cgState (\s a -> s { _cgState = a }) - --- | Any tags assigned to the customer gateway. -cgTags :: Lens' CustomerGateway [Tag] -cgTags = lens _cgTags (\s a -> s { _cgTags = a }) . _List - --- | The type of VPN connection the customer gateway supports (ipsec.1). -cgType :: Lens' CustomerGateway (Maybe Text) -cgType = lens _cgType (\s a -> s { _cgType = a }) - -instance FromXML CustomerGateway where - parseXML x = CustomerGateway - <$> x .@? "bgpAsn" - <*> x .@? "customerGatewayId" - <*> x .@? "ipAddress" - <*> x .@? "state" - <*> x .@ "tagSet" - <*> x .@? "type" - -instance ToQuery CustomerGateway where - toQuery CustomerGateway{..} = mconcat - [ "bgpAsn" =? _cgBgpAsn - , "customerGatewayId" =? _cgCustomerGatewayId - , "ipAddress" =? _cgIpAddress - , "state" =? _cgState - , "tagSet" =? _cgTags - , "type" =? _cgType - ] - -data EbsInstanceBlockDevice = EbsInstanceBlockDevice - { _eibdAttachTime :: Maybe RFC822 - , _eibdDeleteOnTermination :: Maybe Bool - , _eibdStatus :: Maybe AttachmentStatus - , _eibdVolumeId :: Maybe Text - } deriving (Eq, Show) - --- | 'EbsInstanceBlockDevice' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'eibdAttachTime' @::@ 'Maybe' 'UTCTime' --- --- * 'eibdDeleteOnTermination' @::@ 'Maybe' 'Bool' --- --- * 'eibdStatus' @::@ 'Maybe' 'AttachmentStatus' --- --- * 'eibdVolumeId' @::@ 'Maybe' 'Text' --- -ebsInstanceBlockDevice :: EbsInstanceBlockDevice -ebsInstanceBlockDevice = EbsInstanceBlockDevice - { _eibdVolumeId = Nothing - , _eibdStatus = Nothing - , _eibdAttachTime = Nothing - , _eibdDeleteOnTermination = Nothing - } - --- | The time stamp when the attachment initiated. -eibdAttachTime :: Lens' EbsInstanceBlockDevice (Maybe UTCTime) -eibdAttachTime = lens _eibdAttachTime (\s a -> s { _eibdAttachTime = a }) . mapping _Time - --- | Indicates whether the volume is deleted on instance termination. -eibdDeleteOnTermination :: Lens' EbsInstanceBlockDevice (Maybe Bool) -eibdDeleteOnTermination = - lens _eibdDeleteOnTermination (\s a -> s { _eibdDeleteOnTermination = a }) - --- | The attachment state. -eibdStatus :: Lens' EbsInstanceBlockDevice (Maybe AttachmentStatus) -eibdStatus = lens _eibdStatus (\s a -> s { _eibdStatus = a }) - --- | The ID of the Amazon EBS volume. -eibdVolumeId :: Lens' EbsInstanceBlockDevice (Maybe Text) -eibdVolumeId = lens _eibdVolumeId (\s a -> s { _eibdVolumeId = a }) - -instance FromXML EbsInstanceBlockDevice where - parseXML x = EbsInstanceBlockDevice - <$> x .@? "attachTime" - <*> x .@? "deleteOnTermination" - <*> x .@? "status" - <*> x .@? "volumeId" - -instance ToQuery EbsInstanceBlockDevice where - toQuery EbsInstanceBlockDevice{..} = mconcat - [ "attachTime" =? _eibdAttachTime - , "deleteOnTermination" =? _eibdDeleteOnTermination - , "status" =? _eibdStatus - , "volumeId" =? _eibdVolumeId - ] - -data ShutdownBehavior - = Stop -- ^ stop - | Terminate -- ^ terminate - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable ShutdownBehavior - -instance FromText ShutdownBehavior where - parser = match "stop" Stop - <|> match "terminate" Terminate - -instance ToText ShutdownBehavior where - toText = \case - Stop -> "stop" - Terminate -> "terminate" - -instance ToByteString ShutdownBehavior -instance ToHeader ShutdownBehavior -instance ToQuery ShutdownBehavior - -instance FromXML ShutdownBehavior where - parseXML = parseXMLText "ShutdownBehavior" - - -data DiskImageDescription = DiskImageDescription - { _did1Checksum :: Maybe Text - , _did1Format :: DiskImageFormat - , _did1ImportManifestUrl :: Text - , _did1Size :: Integer - } deriving (Eq, Show) - --- | 'DiskImageDescription' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'did1Checksum' @::@ 'Maybe' 'Text' --- --- * 'did1Format' @::@ 'DiskImageFormat' --- --- * 'did1ImportManifestUrl' @::@ 'Text' --- --- * 'did1Size' @::@ 'Integer' --- -diskImageDescription :: DiskImageFormat -- ^ 'did1Format' - -> Integer -- ^ 'did1Size' - -> Text -- ^ 'did1ImportManifestUrl' - -> DiskImageDescription -diskImageDescription p1 p2 p3 = DiskImageDescription - { _did1Format = p1 - , _did1Size = p2 - , _did1ImportManifestUrl = p3 - , _did1Checksum = Nothing - } - --- | The checksum computed for the disk image. -did1Checksum :: Lens' DiskImageDescription (Maybe Text) -did1Checksum = lens _did1Checksum (\s a -> s { _did1Checksum = a }) - --- | The disk image format. -did1Format :: Lens' DiskImageDescription DiskImageFormat -did1Format = lens _did1Format (\s a -> s { _did1Format = 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 --- Authenticating REST Requests topic in the Amazon Simple Storage Service --- Developer Guide. -did1ImportManifestUrl :: Lens' DiskImageDescription Text -did1ImportManifestUrl = - lens _did1ImportManifestUrl (\s a -> s { _did1ImportManifestUrl = a }) - --- | The size of the disk image. -did1Size :: Lens' DiskImageDescription Integer -did1Size = lens _did1Size (\s a -> s { _did1Size = a }) - -instance FromXML DiskImageDescription where - parseXML x = DiskImageDescription - <$> x .@? "checksum" - <*> x .@ "format" - <*> x .@ "importManifestUrl" - <*> x .@ "size" - -instance ToQuery DiskImageDescription where - toQuery DiskImageDescription{..} = mconcat - [ "checksum" =? _did1Checksum - , "format" =? _did1Format - , "importManifestUrl" =? _did1ImportManifestUrl - , "size" =? _did1Size - ] - -data DiskImageVolumeDescription = DiskImageVolumeDescription - { _divdId :: Text - , _divdSize :: Maybe Integer - } deriving (Eq, Ord, Show) - --- | 'DiskImageVolumeDescription' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'divdId' @::@ 'Text' --- --- * 'divdSize' @::@ 'Maybe' 'Integer' --- -diskImageVolumeDescription :: Text -- ^ 'divdId' - -> DiskImageVolumeDescription -diskImageVolumeDescription p1 = DiskImageVolumeDescription - { _divdId = p1 - , _divdSize = Nothing - } - --- | The volume identifier. -divdId :: Lens' DiskImageVolumeDescription Text -divdId = lens _divdId (\s a -> s { _divdId = a }) - --- | The size of the volume. -divdSize :: Lens' DiskImageVolumeDescription (Maybe Integer) -divdSize = lens _divdSize (\s a -> s { _divdSize = a }) - -instance FromXML DiskImageVolumeDescription where - parseXML x = DiskImageVolumeDescription - <$> x .@ "id" - <*> x .@? "size" - -instance ToQuery DiskImageVolumeDescription where - toQuery DiskImageVolumeDescription{..} = mconcat - [ "id" =? _divdId - , "size" =? _divdSize - ] - -newtype Monitoring = Monitoring - { _mState :: Maybe MonitoringState - } deriving (Eq, Show) - --- | 'Monitoring' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'mState' @::@ 'Maybe' 'MonitoringState' --- -monitoring :: Monitoring -monitoring = Monitoring - { _mState = Nothing - } - --- | Indicates whether monitoring is enabled for the instance. -mState :: Lens' Monitoring (Maybe MonitoringState) -mState = lens _mState (\s a -> s { _mState = a }) - -instance FromXML Monitoring where - parseXML x = Monitoring - <$> x .@? "state" - -instance ToQuery Monitoring where - toQuery Monitoring{..} = mconcat - [ "state" =? _mState - ] - -data SubnetState - = SSAvailable -- ^ available - | SSPending -- ^ pending - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable SubnetState - -instance FromText SubnetState where - parser = match "available" SSAvailable - <|> match "pending" SSPending - -instance ToText SubnetState where - toText = \case - SSAvailable -> "available" - SSPending -> "pending" - -instance ToByteString SubnetState -instance ToHeader SubnetState -instance ToQuery SubnetState - -instance FromXML SubnetState where - parseXML = parseXMLText "SubnetState" - - -data ContainerFormat - = Ova -- ^ ova - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable ContainerFormat - -instance FromText ContainerFormat where - parser = match "ova" Ova - -instance ToText ContainerFormat where - toText Ova = "ova" - -instance ToByteString ContainerFormat -instance ToHeader ContainerFormat -instance ToQuery ContainerFormat - -instance FromXML ContainerFormat where - parseXML = parseXMLText "ContainerFormat" - - -newtype AvailabilityZoneMessage = AvailabilityZoneMessage - { _azmMessage :: Maybe Text - } deriving (Eq, Ord, Show, Monoid) - --- | 'AvailabilityZoneMessage' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'azmMessage' @::@ 'Maybe' 'Text' --- -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 ToQuery AvailabilityZoneMessage where - toQuery AvailabilityZoneMessage{..} = mconcat - [ "message" =? _azmMessage - ] - -data VpcAttachment = VpcAttachment - { _va1State :: Maybe AttachmentStatus - , _va1VpcId :: Maybe Text - } deriving (Eq, Show) - --- | 'VpcAttachment' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'va1State' @::@ 'Maybe' 'AttachmentStatus' --- --- * 'va1VpcId' @::@ 'Maybe' 'Text' --- -vpcAttachment :: VpcAttachment -vpcAttachment = VpcAttachment - { _va1VpcId = Nothing - , _va1State = Nothing - } - --- | The current state of the attachment. -va1State :: Lens' VpcAttachment (Maybe AttachmentStatus) -va1State = lens _va1State (\s a -> s { _va1State = a }) - --- | The ID of the VPC. -va1VpcId :: Lens' VpcAttachment (Maybe Text) -va1VpcId = lens _va1VpcId (\s a -> s { _va1VpcId = a }) - -instance FromXML VpcAttachment where - parseXML x = VpcAttachment - <$> x .@? "state" - <*> x .@? "vpcId" - -instance ToQuery VpcAttachment where - toQuery VpcAttachment{..} = mconcat - [ "state" =? _va1State - , "vpcId" =? _va1VpcId - ] - -data InstanceBlockDeviceMapping = InstanceBlockDeviceMapping - { _ibdmDeviceName :: Maybe Text - , _ibdmEbs :: Maybe EbsInstanceBlockDevice - } deriving (Eq, Show) - --- | 'InstanceBlockDeviceMapping' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'ibdmDeviceName' @::@ 'Maybe' 'Text' --- --- * 'ibdmEbs' @::@ 'Maybe' 'EbsInstanceBlockDevice' --- -instanceBlockDeviceMapping :: InstanceBlockDeviceMapping -instanceBlockDeviceMapping = InstanceBlockDeviceMapping - { _ibdmDeviceName = Nothing - , _ibdmEbs = Nothing - } - --- | The device name exposed to the instance (for example, /dev/sdh). -ibdmDeviceName :: Lens' InstanceBlockDeviceMapping (Maybe Text) -ibdmDeviceName = lens _ibdmDeviceName (\s a -> s { _ibdmDeviceName = a }) - --- | Parameters used to automatically set up Amazon EBS volumes when the --- instance is launched. -ibdmEbs :: Lens' InstanceBlockDeviceMapping (Maybe EbsInstanceBlockDevice) -ibdmEbs = lens _ibdmEbs (\s a -> s { _ibdmEbs = a }) - -instance FromXML InstanceBlockDeviceMapping where - parseXML x = InstanceBlockDeviceMapping - <$> x .@? "deviceName" - <*> x .@? "ebs" - -instance ToQuery InstanceBlockDeviceMapping where - toQuery InstanceBlockDeviceMapping{..} = mconcat - [ "deviceName" =? _ibdmDeviceName - , "ebs" =? _ibdmEbs - ] - -data StatusType - = Failed -- ^ failed - | InsufficientData -- ^ insufficient-data - | Passed -- ^ passed - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable StatusType - -instance FromText StatusType where - parser = match "failed" Failed - <|> match "insufficient-data" InsufficientData - <|> match "passed" Passed - -instance ToText StatusType where - toText = \case - Failed -> "failed" - InsufficientData -> "insufficient-data" - Passed -> "passed" - -instance ToByteString StatusType -instance ToHeader StatusType -instance ToQuery StatusType - -instance FromXML StatusType where - parseXML = parseXMLText "StatusType" - - -data ExportToS3TaskSpecification = ExportToS3TaskSpecification - { _etstsContainerFormat :: Maybe ContainerFormat - , _etstsDiskImageFormat :: Maybe DiskImageFormat - , _etstsS3Bucket :: Maybe Text - , _etstsS3Prefix :: Maybe Text - } deriving (Eq, Show) - --- | 'ExportToS3TaskSpecification' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'etstsContainerFormat' @::@ 'Maybe' 'ContainerFormat' --- --- * 'etstsDiskImageFormat' @::@ 'Maybe' 'DiskImageFormat' --- --- * 'etstsS3Bucket' @::@ 'Maybe' 'Text' --- --- * 'etstsS3Prefix' @::@ 'Maybe' 'Text' --- -exportToS3TaskSpecification :: ExportToS3TaskSpecification -exportToS3TaskSpecification = ExportToS3TaskSpecification - { _etstsDiskImageFormat = Nothing - , _etstsContainerFormat = Nothing - , _etstsS3Bucket = Nothing - , _etstsS3Prefix = Nothing - } - -etstsContainerFormat :: Lens' ExportToS3TaskSpecification (Maybe ContainerFormat) -etstsContainerFormat = - lens _etstsContainerFormat (\s a -> s { _etstsContainerFormat = a }) - -etstsDiskImageFormat :: Lens' ExportToS3TaskSpecification (Maybe DiskImageFormat) -etstsDiskImageFormat = - lens _etstsDiskImageFormat (\s a -> s { _etstsDiskImageFormat = a }) - -etstsS3Bucket :: Lens' ExportToS3TaskSpecification (Maybe Text) -etstsS3Bucket = lens _etstsS3Bucket (\s a -> s { _etstsS3Bucket = a }) - --- | The image is written to a single object in the Amazon S3 bucket at the S3 --- key s3prefix + exportTaskId + '.' + diskImageFormat. -etstsS3Prefix :: Lens' ExportToS3TaskSpecification (Maybe Text) -etstsS3Prefix = lens _etstsS3Prefix (\s a -> s { _etstsS3Prefix = a }) - -instance FromXML ExportToS3TaskSpecification where - parseXML x = ExportToS3TaskSpecification - <$> x .@? "containerFormat" - <*> x .@? "diskImageFormat" - <*> x .@? "s3Bucket" - <*> x .@? "s3Prefix" - -instance ToQuery ExportToS3TaskSpecification where - toQuery ExportToS3TaskSpecification{..} = mconcat - [ "containerFormat" =? _etstsContainerFormat - , "diskImageFormat" =? _etstsDiskImageFormat - , "s3Bucket" =? _etstsS3Bucket - , "s3Prefix" =? _etstsS3Prefix - ] - -data NetworkInterfaceAttribute - = Attachment -- ^ attachment - | Description -- ^ description - | GroupSet -- ^ groupSet - | SourceDestCheck -- ^ sourceDestCheck - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable NetworkInterfaceAttribute - -instance FromText NetworkInterfaceAttribute where - parser = match "attachment" Attachment - <|> match "description" Description - <|> match "groupSet" GroupSet - <|> match "sourceDestCheck" SourceDestCheck - -instance ToText NetworkInterfaceAttribute where - toText = \case - Attachment -> "attachment" - Description -> "description" - GroupSet -> "groupSet" - SourceDestCheck -> "sourceDestCheck" - -instance ToByteString NetworkInterfaceAttribute -instance ToHeader NetworkInterfaceAttribute -instance ToQuery NetworkInterfaceAttribute - -instance FromXML NetworkInterfaceAttribute where - parseXML = parseXMLText "NetworkInterfaceAttribute" - - -data ImageTypeValues - = Kernel -- ^ kernel - | Machine -- ^ machine - | Ramdisk -- ^ ramdisk - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable ImageTypeValues - -instance FromText ImageTypeValues where - parser = match "kernel" Kernel - <|> match "machine" Machine - <|> match "ramdisk" Ramdisk - -instance ToText ImageTypeValues where - toText = \case - Kernel -> "kernel" - Machine -> "machine" - Ramdisk -> "ramdisk" - -instance ToByteString ImageTypeValues -instance ToHeader ImageTypeValues -instance ToQuery ImageTypeValues - -instance FromXML ImageTypeValues where - parseXML = parseXMLText "ImageTypeValues" - - -data InstanceExportDetails = InstanceExportDetails - { _iedInstanceId :: Maybe Text - , _iedTargetEnvironment :: Maybe ExportEnvironment - } deriving (Eq, Show) - --- | 'InstanceExportDetails' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'iedInstanceId' @::@ 'Maybe' 'Text' --- --- * 'iedTargetEnvironment' @::@ 'Maybe' 'ExportEnvironment' --- -instanceExportDetails :: InstanceExportDetails -instanceExportDetails = InstanceExportDetails - { _iedInstanceId = Nothing - , _iedTargetEnvironment = Nothing - } - --- | The ID of the resource being exported. -iedInstanceId :: Lens' InstanceExportDetails (Maybe Text) -iedInstanceId = lens _iedInstanceId (\s a -> s { _iedInstanceId = a }) - --- | The target virtualization environment. -iedTargetEnvironment :: Lens' InstanceExportDetails (Maybe ExportEnvironment) -iedTargetEnvironment = - lens _iedTargetEnvironment (\s a -> s { _iedTargetEnvironment = a }) - -instance FromXML InstanceExportDetails where - parseXML x = InstanceExportDetails - <$> x .@? "instanceId" - <*> x .@? "targetEnvironment" - -instance ToQuery InstanceExportDetails where - toQuery InstanceExportDetails{..} = mconcat - [ "instanceId" =? _iedInstanceId - , "targetEnvironment" =? _iedTargetEnvironment - ] - -data SnapshotAttributeName - = SANCreateVolumePermission -- ^ createVolumePermission - | SANProductCodes -- ^ productCodes - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable SnapshotAttributeName - -instance FromText SnapshotAttributeName where - parser = match "createVolumePermission" SANCreateVolumePermission - <|> match "productCodes" SANProductCodes - -instance ToText SnapshotAttributeName where - toText = \case - SANCreateVolumePermission -> "createVolumePermission" - SANProductCodes -> "productCodes" - -instance ToByteString SnapshotAttributeName -instance ToHeader SnapshotAttributeName -instance ToQuery SnapshotAttributeName - -instance FromXML SnapshotAttributeName where - parseXML = parseXMLText "SnapshotAttributeName" - - -data AvailabilityZone = AvailabilityZone - { _azMessages :: List "item" AvailabilityZoneMessage - , _azRegionName :: Maybe Text - , _azState :: Maybe AvailabilityZoneState - , _azZoneName :: Maybe Text - } deriving (Eq, Show) - --- | 'AvailabilityZone' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'azMessages' @::@ ['AvailabilityZoneMessage'] --- --- * 'azRegionName' @::@ 'Maybe' 'Text' --- --- * 'azState' @::@ 'Maybe' 'AvailabilityZoneState' --- --- * 'azZoneName' @::@ 'Maybe' 'Text' --- -availabilityZone :: AvailabilityZone -availabilityZone = AvailabilityZone - { _azZoneName = Nothing - , _azState = Nothing - , _azRegionName = Nothing - , _azMessages = mempty - } - --- | Any messages about the Availability Zone. -azMessages :: Lens' AvailabilityZone [AvailabilityZoneMessage] -azMessages = lens _azMessages (\s a -> s { _azMessages = a }) . _List - --- | The name of the region. -azRegionName :: Lens' AvailabilityZone (Maybe Text) -azRegionName = lens _azRegionName (\s a -> s { _azRegionName = a }) - --- | The state of the Availability Zone (available | impaired | unavailable). -azState :: Lens' AvailabilityZone (Maybe AvailabilityZoneState) -azState = lens _azState (\s a -> s { _azState = a }) - --- | The name of the Availability Zone. -azZoneName :: Lens' AvailabilityZone (Maybe Text) -azZoneName = lens _azZoneName (\s a -> s { _azZoneName = a }) - -instance FromXML AvailabilityZone where - parseXML x = AvailabilityZone - <$> x .@ "messageSet" - <*> x .@? "regionName" - <*> x .@? "zoneState" - <*> x .@? "zoneName" - -instance ToQuery AvailabilityZone where - toQuery AvailabilityZone{..} = mconcat - [ "messageSet" =? _azMessages - , "regionName" =? _azRegionName - , "zoneState" =? _azState - , "zoneName" =? _azZoneName - ] - -data VpnState - = VpnStateAvailable -- ^ available - | VpnStateDeleted -- ^ deleted - | VpnStateDeleting -- ^ deleting - | VpnStatePending -- ^ pending - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable VpnState - -instance FromText VpnState where - parser = match "available" VpnStateAvailable - <|> match "deleted" VpnStateDeleted - <|> match "deleting" VpnStateDeleting - <|> match "pending" VpnStatePending - -instance ToText VpnState where - toText = \case - VpnStateAvailable -> "available" - VpnStateDeleted -> "deleted" - VpnStateDeleting -> "deleting" - VpnStatePending -> "pending" - -instance ToByteString VpnState -instance ToHeader VpnState -instance ToQuery VpnState - -instance FromXML VpnState where - parseXML = parseXMLText "VpnState" - - -data RouteTable = RouteTable - { _rtAssociations :: List "item" RouteTableAssociation - , _rtPropagatingVgws :: List "item" PropagatingVgw - , _rtRouteTableId :: Maybe Text - , _rtRoutes :: List "item" Route - , _rtTags :: List "item" Tag - , _rtVpcId :: Maybe Text - } deriving (Eq, Show) - --- | 'RouteTable' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'rtAssociations' @::@ ['RouteTableAssociation'] --- --- * 'rtPropagatingVgws' @::@ ['PropagatingVgw'] --- --- * 'rtRouteTableId' @::@ 'Maybe' 'Text' --- --- * 'rtRoutes' @::@ ['Route'] --- --- * 'rtTags' @::@ ['Tag'] --- --- * 'rtVpcId' @::@ 'Maybe' 'Text' --- -routeTable :: RouteTable -routeTable = RouteTable - { _rtRouteTableId = Nothing - , _rtVpcId = Nothing - , _rtRoutes = mempty - , _rtAssociations = mempty - , _rtTags = mempty - , _rtPropagatingVgws = mempty - } - --- | The associations between the route table and one or more subnets. -rtAssociations :: Lens' RouteTable [RouteTableAssociation] -rtAssociations = lens _rtAssociations (\s a -> s { _rtAssociations = a }) . _List - --- | Any virtual private gateway (VGW) propagating routes. -rtPropagatingVgws :: Lens' RouteTable [PropagatingVgw] -rtPropagatingVgws = - lens _rtPropagatingVgws (\s a -> s { _rtPropagatingVgws = a }) - . _List - --- | 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 }) . _List - --- | Any tags assigned to the route table. -rtTags :: Lens' RouteTable [Tag] -rtTags = lens _rtTags (\s a -> s { _rtTags = a }) . _List - --- | The ID of the VPC. -rtVpcId :: Lens' RouteTable (Maybe Text) -rtVpcId = lens _rtVpcId (\s a -> s { _rtVpcId = a }) - -instance FromXML RouteTable where - parseXML x = RouteTable - <$> x .@ "associationSet" - <*> x .@ "propagatingVgwSet" - <*> x .@? "routeTableId" - <*> x .@ "routeSet" - <*> x .@ "tagSet" - <*> x .@? "vpcId" - -instance ToQuery RouteTable where - toQuery RouteTable{..} = mconcat - [ "associationSet" =? _rtAssociations - , "propagatingVgwSet" =? _rtPropagatingVgws - , "routeTableId" =? _rtRouteTableId - , "routeSet" =? _rtRoutes - , "tagSet" =? _rtTags - , "vpcId" =? _rtVpcId - ] - -data HypervisorType - = Ovm -- ^ ovm - | Xen -- ^ xen - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable HypervisorType - -instance FromText HypervisorType where - parser = match "ovm" Ovm - <|> match "xen" Xen - -instance ToText HypervisorType where - toText = \case - Ovm -> "ovm" - Xen -> "xen" - -instance ToByteString HypervisorType -instance ToHeader HypervisorType -instance ToQuery HypervisorType - -instance FromXML HypervisorType where - parseXML = parseXMLText "HypervisorType" - - -data InstanceStatusDetails = InstanceStatusDetails - { _isdImpairedSince :: Maybe RFC822 - , _isdName :: Maybe StatusName - , _isdStatus :: Maybe StatusType - } deriving (Eq, Show) - --- | 'InstanceStatusDetails' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'isdImpairedSince' @::@ 'Maybe' 'UTCTime' --- --- * 'isdName' @::@ 'Maybe' 'StatusName' --- --- * 'isdStatus' @::@ 'Maybe' 'StatusType' --- -instanceStatusDetails :: InstanceStatusDetails -instanceStatusDetails = InstanceStatusDetails - { _isdName = Nothing - , _isdStatus = Nothing - , _isdImpairedSince = Nothing - } - --- | 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 }) - --- | The status. -isdStatus :: Lens' InstanceStatusDetails (Maybe StatusType) -isdStatus = lens _isdStatus (\s a -> s { _isdStatus = a }) - -instance FromXML InstanceStatusDetails where - parseXML x = InstanceStatusDetails - <$> x .@? "impairedSince" - <*> x .@? "name" - <*> x .@? "status" - -instance ToQuery InstanceStatusDetails where - toQuery InstanceStatusDetails{..} = mconcat - [ "impairedSince" =? _isdImpairedSince - , "name" =? _isdName - , "status" =? _isdStatus - ] - -data IamInstanceProfile = IamInstanceProfile - { _iipArn :: Maybe Text - , _iipId :: Maybe Text - } deriving (Eq, Ord, Show) - --- | 'IamInstanceProfile' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'iipArn' @::@ 'Maybe' 'Text' --- --- * 'iipId' @::@ 'Maybe' 'Text' --- -iamInstanceProfile :: IamInstanceProfile -iamInstanceProfile = IamInstanceProfile - { _iipArn = Nothing - , _iipId = Nothing - } - --- | The Amazon Resource Name (ARN) of the instance profile. -iipArn :: Lens' IamInstanceProfile (Maybe Text) -iipArn = lens _iipArn (\s a -> s { _iipArn = a }) - --- | The ID of the instance profile. -iipId :: Lens' IamInstanceProfile (Maybe Text) -iipId = lens _iipId (\s a -> s { _iipId = a }) - -instance FromXML IamInstanceProfile where - parseXML x = IamInstanceProfile - <$> x .@? "arn" - <*> x .@? "id" - -instance ToQuery IamInstanceProfile where - toQuery IamInstanceProfile{..} = mconcat - [ "arn" =? _iipArn - , "id" =? _iipId - ] - -data InternetGatewayAttachment = InternetGatewayAttachment - { _igaState :: AttachmentStatus - , _igaVpcId :: Text - } deriving (Eq, Show) - --- | 'InternetGatewayAttachment' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'igaState' @::@ 'AttachmentStatus' --- --- * 'igaVpcId' @::@ 'Text' --- -internetGatewayAttachment :: Text -- ^ 'igaVpcId' - -> AttachmentStatus -- ^ 'igaState' - -> InternetGatewayAttachment -internetGatewayAttachment p1 p2 = InternetGatewayAttachment - { _igaVpcId = p1 - , _igaState = p2 - } - --- | 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 ToQuery InternetGatewayAttachment where - toQuery InternetGatewayAttachment{..} = mconcat - [ "state" =? _igaState - , "vpcId" =? _igaVpcId - ] - -data ReservedInstanceState - = RISActive -- ^ active - | RISPaymentFailed -- ^ payment-failed - | RISPaymentPending -- ^ payment-pending - | RISRetired -- ^ retired - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable ReservedInstanceState - -instance FromText ReservedInstanceState where - parser = match "active" RISActive - <|> match "payment-failed" RISPaymentFailed - <|> match "payment-pending" RISPaymentPending - <|> match "retired" RISRetired - -instance ToText ReservedInstanceState where - toText = \case - RISActive -> "active" - RISPaymentFailed -> "payment-failed" - RISPaymentPending -> "payment-pending" - RISRetired -> "retired" - -instance ToByteString ReservedInstanceState -instance ToHeader ReservedInstanceState -instance ToQuery ReservedInstanceState - -instance FromXML ReservedInstanceState where - parseXML = parseXMLText "ReservedInstanceState" - - -data InstanceAttributeName - = IANInstanceBlockDeviceMapping -- ^ blockDeviceMapping - | IANInstanceDisableApiTermination -- ^ disableApiTermination - | IANInstanceEbsOptimized -- ^ ebsOptimized - | IANInstanceGroupSet -- ^ groupSet - | IANInstanceInstanceInitiatedShutdownBehavior -- ^ instanceInitiatedShutdownBehavior - | IANInstanceInstanceType -- ^ instanceType - | IANInstanceKernel -- ^ kernel - | IANInstanceProductCodes -- ^ productCodes - | IANInstanceRamdisk -- ^ ramdisk - | IANInstanceRootDeviceName -- ^ rootDeviceName - | IANInstanceSourceDestCheck -- ^ sourceDestCheck - | IANInstanceSriovNetSupport -- ^ sriovNetSupport - | IANInstanceUserData -- ^ userData - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable InstanceAttributeName - -instance FromText InstanceAttributeName where - parser = match "blockDeviceMapping" IANInstanceBlockDeviceMapping - <|> match "disableApiTermination" IANInstanceDisableApiTermination - <|> match "ebsOptimized" IANInstanceEbsOptimized - <|> match "groupSet" IANInstanceGroupSet - <|> match "instanceInitiatedShutdownBehavior" IANInstanceInstanceInitiatedShutdownBehavior - <|> match "instanceType" IANInstanceInstanceType - <|> match "kernel" IANInstanceKernel - <|> match "productCodes" IANInstanceProductCodes - <|> match "ramdisk" IANInstanceRamdisk - <|> match "rootDeviceName" IANInstanceRootDeviceName - <|> match "sourceDestCheck" IANInstanceSourceDestCheck - <|> match "sriovNetSupport" IANInstanceSriovNetSupport - <|> match "userData" IANInstanceUserData - -instance ToText InstanceAttributeName where - toText = \case - IANInstanceBlockDeviceMapping -> "blockDeviceMapping" - IANInstanceDisableApiTermination -> "disableApiTermination" - IANInstanceEbsOptimized -> "ebsOptimized" - IANInstanceGroupSet -> "groupSet" - IANInstanceInstanceInitiatedShutdownBehavior -> "instanceInitiatedShutdownBehavior" - IANInstanceInstanceType -> "instanceType" - IANInstanceKernel -> "kernel" - IANInstanceProductCodes -> "productCodes" - IANInstanceRamdisk -> "ramdisk" - IANInstanceRootDeviceName -> "rootDeviceName" - IANInstanceSourceDestCheck -> "sourceDestCheck" - IANInstanceSriovNetSupport -> "sriovNetSupport" - IANInstanceUserData -> "userData" - -instance ToByteString InstanceAttributeName -instance ToHeader InstanceAttributeName -instance ToQuery InstanceAttributeName - -instance FromXML InstanceAttributeName where - parseXML = parseXMLText "InstanceAttributeName" - - -data IpPermission = IpPermission - { _ipFromPort :: Int - , _ipIpProtocol :: Text - , _ipIpRanges :: List "item" IpRange - , _ipToPort :: Int - , _ipUserIdGroupPairs :: List "item" UserIdGroupPair - } deriving (Eq, Show) - --- | 'IpPermission' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'ipFromPort' @::@ 'Int' --- --- * 'ipIpProtocol' @::@ 'Text' --- --- * 'ipIpRanges' @::@ ['IpRange'] --- --- * 'ipToPort' @::@ 'Int' --- --- * 'ipUserIdGroupPairs' @::@ ['UserIdGroupPair'] --- -ipPermission :: Text -- ^ 'ipIpProtocol' - -> Int -- ^ 'ipFromPort' - -> Int -- ^ 'ipToPort' - -> IpPermission -ipPermission p1 p2 p3 = IpPermission - { _ipIpProtocol = p1 - , _ipFromPort = p2 - , _ipToPort = p3 - , _ipUserIdGroupPairs = mempty - , _ipIpRanges = mempty - } - --- | The start of port range for the TCP and UDP protocols, or an ICMP type --- number. A value of -1 indicates all ICMP types. -ipFromPort :: Lens' IpPermission Int -ipFromPort = lens _ipFromPort (\s a -> s { _ipFromPort = a }) - --- | The protocol. When you call DescribeSecurityGroups, the protocol value --- returned is the number. Exception: For TCP, UDP, and ICMP, the value --- returned is the name (for example, tcp, udp, or icmp). For a list of --- protocol numbers, see Protocol Numbers. -ipIpProtocol :: Lens' IpPermission Text -ipIpProtocol = lens _ipIpProtocol (\s a -> s { _ipIpProtocol = a }) - --- | One or more IP ranges. -ipIpRanges :: Lens' IpPermission [IpRange] -ipIpRanges = lens _ipIpRanges (\s a -> s { _ipIpRanges = a }) . _List - --- | The end of port range for the TCP and UDP protocols, or an ICMP code. A --- value of -1 indicates all ICMP codes for the specified ICMP type. -ipToPort :: Lens' IpPermission Int -ipToPort = lens _ipToPort (\s a -> s { _ipToPort = a }) - --- | One or more security group and AWS account ID pairs. -ipUserIdGroupPairs :: Lens' IpPermission [UserIdGroupPair] -ipUserIdGroupPairs = - lens _ipUserIdGroupPairs (\s a -> s { _ipUserIdGroupPairs = a }) - . _List - -instance FromXML IpPermission where - parseXML x = IpPermission - <$> x .@ "fromPort" - <*> x .@ "ipProtocol" - <*> x .@ "ipRanges" - <*> x .@ "toPort" - <*> x .@ "groups" - -instance ToQuery IpPermission where - toQuery IpPermission{..} = mconcat - [ "fromPort" =? _ipFromPort - , "ipProtocol" =? _ipIpProtocol - , "ipRanges" =? _ipIpRanges - , "toPort" =? _ipToPort - , "groups" =? _ipUserIdGroupPairs - ] - -data ConversionTaskState - = CTSActive -- ^ active - | CTSCancelled -- ^ cancelled - | CTSCancelling -- ^ cancelling - | CTSCompleted -- ^ completed - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable ConversionTaskState - -instance FromText ConversionTaskState where - parser = match "active" CTSActive - <|> match "cancelled" CTSCancelled - <|> match "cancelling" CTSCancelling - <|> match "completed" CTSCompleted - -instance ToText ConversionTaskState where - toText = \case - CTSActive -> "active" - CTSCancelled -> "cancelled" - CTSCancelling -> "cancelling" - CTSCompleted -> "completed" - -instance ToByteString ConversionTaskState -instance ToHeader ConversionTaskState -instance ToQuery ConversionTaskState - -instance FromXML ConversionTaskState where - parseXML = parseXMLText "ConversionTaskState" - - -data DiskImage = DiskImage - { _diDescription :: Maybe Text - , _diImage :: Maybe DiskImageDetail - , _diVolume :: Maybe VolumeDetail - } deriving (Eq, Show) - --- | 'DiskImage' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'diDescription' @::@ 'Maybe' 'Text' --- --- * 'diImage' @::@ 'Maybe' 'DiskImageDetail' --- --- * 'diVolume' @::@ 'Maybe' 'VolumeDetail' --- -diskImage :: DiskImage -diskImage = DiskImage - { _diImage = Nothing - , _diDescription = Nothing - , _diVolume = Nothing - } - -diDescription :: Lens' DiskImage (Maybe Text) -diDescription = lens _diDescription (\s a -> s { _diDescription = a }) - -diImage :: Lens' DiskImage (Maybe DiskImageDetail) -diImage = lens _diImage (\s a -> s { _diImage = a }) - -diVolume :: Lens' DiskImage (Maybe VolumeDetail) -diVolume = lens _diVolume (\s a -> s { _diVolume = a }) - -instance FromXML DiskImage where - parseXML x = DiskImage - <$> x .@? "Description" - <*> x .@? "Image" - <*> x .@? "Volume" - -instance ToQuery DiskImage where - toQuery DiskImage{..} = mconcat - [ "Description" =? _diDescription - , "Image" =? _diImage - , "Volume" =? _diVolume - ] - -data Tenancy - = Dedicated -- ^ dedicated - | Default' -- ^ default - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable Tenancy - -instance FromText Tenancy where - parser = match "dedicated" Dedicated - <|> match "default" Default' - -instance ToText Tenancy where - toText = \case - Dedicated -> "dedicated" - Default' -> "default" - -instance ToByteString Tenancy -instance ToHeader Tenancy -instance ToQuery Tenancy - -instance FromXML Tenancy where - parseXML = parseXMLText "Tenancy" - - -data VpcPeeringConnectionStateReason = VpcPeeringConnectionStateReason - { _vpcsrCode :: Maybe Text - , _vpcsrMessage :: Maybe Text - } deriving (Eq, Ord, Show) - --- | 'VpcPeeringConnectionStateReason' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'vpcsrCode' @::@ 'Maybe' 'Text' --- --- * 'vpcsrMessage' @::@ 'Maybe' 'Text' --- -vpcPeeringConnectionStateReason :: VpcPeeringConnectionStateReason -vpcPeeringConnectionStateReason = VpcPeeringConnectionStateReason - { _vpcsrCode = Nothing - , _vpcsrMessage = Nothing - } - --- | The status of the VPC peering connection. -vpcsrCode :: Lens' VpcPeeringConnectionStateReason (Maybe Text) -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 ToQuery VpcPeeringConnectionStateReason where - toQuery VpcPeeringConnectionStateReason{..} = mconcat - [ "code" =? _vpcsrCode - , "message" =? _vpcsrMessage - ] - -data IamInstanceProfileSpecification = IamInstanceProfileSpecification - { _iipsArn :: Maybe Text - , _iipsName :: Maybe Text - } deriving (Eq, Ord, Show) - --- | 'IamInstanceProfileSpecification' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'iipsArn' @::@ 'Maybe' 'Text' --- --- * 'iipsName' @::@ 'Maybe' 'Text' --- -iamInstanceProfileSpecification :: IamInstanceProfileSpecification -iamInstanceProfileSpecification = IamInstanceProfileSpecification - { _iipsArn = Nothing - , _iipsName = Nothing - } - --- | The Amazon Resource Name (ARN) of the instance profile. -iipsArn :: Lens' IamInstanceProfileSpecification (Maybe Text) -iipsArn = lens _iipsArn (\s a -> s { _iipsArn = a }) - --- | The name of the instance profile. -iipsName :: Lens' IamInstanceProfileSpecification (Maybe Text) -iipsName = lens _iipsName (\s a -> s { _iipsName = a }) - -instance FromXML IamInstanceProfileSpecification where - parseXML x = IamInstanceProfileSpecification - <$> x .@? "arn" - <*> x .@? "name" - -instance ToQuery IamInstanceProfileSpecification where - toQuery IamInstanceProfileSpecification{..} = mconcat - [ "arn" =? _iipsArn - , "name" =? _iipsName - ] - -data ImportVolumeTaskDetails = ImportVolumeTaskDetails - { _ivtdAvailabilityZone :: Text - , _ivtdBytesConverted :: Integer - , _ivtdDescription :: Maybe Text - , _ivtdImage :: DiskImageDescription - , _ivtdVolume :: DiskImageVolumeDescription - } deriving (Eq, Show) - --- | 'ImportVolumeTaskDetails' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'ivtdAvailabilityZone' @::@ 'Text' --- --- * 'ivtdBytesConverted' @::@ 'Integer' --- --- * 'ivtdDescription' @::@ 'Maybe' 'Text' --- --- * 'ivtdImage' @::@ 'DiskImageDescription' --- --- * 'ivtdVolume' @::@ 'DiskImageVolumeDescription' --- -importVolumeTaskDetails :: Integer -- ^ 'ivtdBytesConverted' - -> Text -- ^ 'ivtdAvailabilityZone' - -> DiskImageDescription -- ^ 'ivtdImage' - -> DiskImageVolumeDescription -- ^ 'ivtdVolume' - -> ImportVolumeTaskDetails -importVolumeTaskDetails p1 p2 p3 p4 = ImportVolumeTaskDetails - { _ivtdBytesConverted = p1 - , _ivtdAvailabilityZone = p2 - , _ivtdImage = p3 - , _ivtdVolume = p4 - , _ivtdDescription = Nothing - } - --- | 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 description you provided when starting the import volume task. -ivtdDescription :: Lens' ImportVolumeTaskDetails (Maybe Text) -ivtdDescription = lens _ivtdDescription (\s a -> s { _ivtdDescription = 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 .@ "availabilityZone" - <*> x .@ "bytesConverted" - <*> x .@? "description" - <*> x .@ "image" - <*> x .@ "volume" - -instance ToQuery ImportVolumeTaskDetails where - toQuery ImportVolumeTaskDetails{..} = mconcat - [ "availabilityZone" =? _ivtdAvailabilityZone - , "bytesConverted" =? _ivtdBytesConverted - , "description" =? _ivtdDescription - , "image" =? _ivtdImage - , "volume" =? _ivtdVolume - ] - -data PlacementStrategy - = Cluster -- ^ cluster - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable PlacementStrategy - -instance FromText PlacementStrategy where - parser = match "cluster" Cluster - -instance ToText PlacementStrategy where - toText Cluster = "cluster" - -instance ToByteString PlacementStrategy -instance ToHeader PlacementStrategy -instance ToQuery PlacementStrategy - -instance FromXML PlacementStrategy where - parseXML = parseXMLText "PlacementStrategy" - - -data InstanceNetworkInterface = InstanceNetworkInterface - { _iniAssociation :: Maybe InstanceNetworkInterfaceAssociation - , _iniAttachment :: Maybe InstanceNetworkInterfaceAttachment - , _iniDescription :: Maybe Text - , _iniGroups :: List "item" GroupIdentifier - , _iniMacAddress :: Maybe Text - , _iniNetworkInterfaceId :: Maybe Text - , _iniOwnerId :: Maybe Text - , _iniPrivateDnsName :: Maybe Text - , _iniPrivateIpAddress :: Maybe Text - , _iniPrivateIpAddresses :: List "item" InstancePrivateIpAddress - , _iniSourceDestCheck :: Maybe Bool - , _iniStatus :: Maybe NetworkInterfaceStatus - , _iniSubnetId :: Maybe Text - , _iniVpcId :: Maybe Text - } deriving (Eq, Show) - --- | 'InstanceNetworkInterface' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'iniAssociation' @::@ 'Maybe' 'InstanceNetworkInterfaceAssociation' --- --- * 'iniAttachment' @::@ 'Maybe' 'InstanceNetworkInterfaceAttachment' --- --- * 'iniDescription' @::@ 'Maybe' 'Text' --- --- * 'iniGroups' @::@ ['GroupIdentifier'] --- --- * 'iniMacAddress' @::@ 'Maybe' 'Text' --- --- * 'iniNetworkInterfaceId' @::@ 'Maybe' 'Text' --- --- * 'iniOwnerId' @::@ 'Maybe' 'Text' --- --- * 'iniPrivateDnsName' @::@ 'Maybe' 'Text' --- --- * 'iniPrivateIpAddress' @::@ 'Maybe' 'Text' --- --- * 'iniPrivateIpAddresses' @::@ ['InstancePrivateIpAddress'] --- --- * 'iniSourceDestCheck' @::@ 'Maybe' 'Bool' --- --- * 'iniStatus' @::@ 'Maybe' 'NetworkInterfaceStatus' --- --- * 'iniSubnetId' @::@ 'Maybe' 'Text' --- --- * 'iniVpcId' @::@ 'Maybe' 'Text' --- -instanceNetworkInterface :: InstanceNetworkInterface -instanceNetworkInterface = InstanceNetworkInterface - { _iniNetworkInterfaceId = Nothing - , _iniSubnetId = Nothing - , _iniVpcId = Nothing - , _iniDescription = Nothing - , _iniOwnerId = Nothing - , _iniStatus = Nothing - , _iniMacAddress = Nothing - , _iniPrivateIpAddress = Nothing - , _iniPrivateDnsName = Nothing - , _iniSourceDestCheck = Nothing - , _iniGroups = mempty - , _iniAttachment = Nothing - , _iniAssociation = Nothing - , _iniPrivateIpAddresses = mempty - } - --- | The association information for an Elastic IP associated with the network --- interface. -iniAssociation :: Lens' InstanceNetworkInterface (Maybe InstanceNetworkInterfaceAssociation) -iniAssociation = lens _iniAssociation (\s a -> s { _iniAssociation = a }) - --- | The network interface attachment. -iniAttachment :: Lens' InstanceNetworkInterface (Maybe InstanceNetworkInterfaceAttachment) -iniAttachment = lens _iniAttachment (\s a -> s { _iniAttachment = a }) - --- | The description. -iniDescription :: Lens' InstanceNetworkInterface (Maybe Text) -iniDescription = lens _iniDescription (\s a -> s { _iniDescription = a }) - --- | One or more security groups. -iniGroups :: Lens' InstanceNetworkInterface [GroupIdentifier] -iniGroups = lens _iniGroups (\s a -> s { _iniGroups = a }) . _List - --- | The MAC address. -iniMacAddress :: Lens' InstanceNetworkInterface (Maybe Text) -iniMacAddress = lens _iniMacAddress (\s a -> s { _iniMacAddress = a }) - --- | The ID of the network interface. -iniNetworkInterfaceId :: Lens' InstanceNetworkInterface (Maybe Text) -iniNetworkInterfaceId = - lens _iniNetworkInterfaceId (\s a -> s { _iniNetworkInterfaceId = 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 private DNS name. -iniPrivateDnsName :: Lens' InstanceNetworkInterface (Maybe Text) -iniPrivateDnsName = - lens _iniPrivateDnsName (\s a -> s { _iniPrivateDnsName = a }) - --- | The IP address of the network interface within the subnet. -iniPrivateIpAddress :: Lens' InstanceNetworkInterface (Maybe Text) -iniPrivateIpAddress = - lens _iniPrivateIpAddress (\s a -> s { _iniPrivateIpAddress = a }) - --- | The private IP addresses associated with the network interface. -iniPrivateIpAddresses :: Lens' InstanceNetworkInterface [InstancePrivateIpAddress] -iniPrivateIpAddresses = - lens _iniPrivateIpAddresses (\s a -> s { _iniPrivateIpAddresses = a }) - . _List - --- | 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 status of the network interface. -iniStatus :: Lens' InstanceNetworkInterface (Maybe NetworkInterfaceStatus) -iniStatus = lens _iniStatus (\s a -> s { _iniStatus = a }) - --- | The ID of the subnet. -iniSubnetId :: Lens' InstanceNetworkInterface (Maybe Text) -iniSubnetId = lens _iniSubnetId (\s a -> s { _iniSubnetId = a }) - --- | The ID of the VPC. -iniVpcId :: Lens' InstanceNetworkInterface (Maybe Text) -iniVpcId = lens _iniVpcId (\s a -> s { _iniVpcId = a }) - -instance FromXML InstanceNetworkInterface where - parseXML x = InstanceNetworkInterface - <$> x .@? "association" - <*> x .@? "attachment" - <*> x .@? "description" - <*> x .@ "groupSet" - <*> x .@? "macAddress" - <*> x .@? "networkInterfaceId" - <*> x .@? "ownerId" - <*> x .@? "privateDnsName" - <*> x .@? "privateIpAddress" - <*> x .@ "privateIpAddressesSet" - <*> x .@? "sourceDestCheck" - <*> x .@? "status" - <*> x .@? "subnetId" - <*> x .@? "vpcId" - -instance ToQuery InstanceNetworkInterface where - toQuery InstanceNetworkInterface{..} = mconcat - [ "association" =? _iniAssociation - , "attachment" =? _iniAttachment - , "description" =? _iniDescription - , "groupSet" =? _iniGroups - , "macAddress" =? _iniMacAddress - , "networkInterfaceId" =? _iniNetworkInterfaceId - , "ownerId" =? _iniOwnerId - , "privateDnsName" =? _iniPrivateDnsName - , "privateIpAddress" =? _iniPrivateIpAddress - , "privateIpAddressesSet" =? _iniPrivateIpAddresses - , "sourceDestCheck" =? _iniSourceDestCheck - , "status" =? _iniStatus - , "subnetId" =? _iniSubnetId - , "vpcId" =? _iniVpcId - ] - -data VolumeStatusAction = VolumeStatusAction - { _vsaCode :: Maybe Text - , _vsaDescription :: Maybe Text - , _vsaEventId :: Maybe Text - , _vsaEventType :: Maybe Text - } deriving (Eq, Ord, Show) - --- | 'VolumeStatusAction' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'vsaCode' @::@ 'Maybe' 'Text' --- --- * 'vsaDescription' @::@ 'Maybe' 'Text' --- --- * 'vsaEventId' @::@ 'Maybe' 'Text' --- --- * 'vsaEventType' @::@ 'Maybe' 'Text' --- -volumeStatusAction :: VolumeStatusAction -volumeStatusAction = VolumeStatusAction - { _vsaCode = Nothing - , _vsaDescription = Nothing - , _vsaEventType = Nothing - , _vsaEventId = Nothing - } - --- | 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 }) - --- | The event type associated with this operation. -vsaEventType :: Lens' VolumeStatusAction (Maybe Text) -vsaEventType = lens _vsaEventType (\s a -> s { _vsaEventType = a }) - -instance FromXML VolumeStatusAction where - parseXML x = VolumeStatusAction - <$> x .@? "code" - <*> x .@? "description" - <*> x .@? "eventId" - <*> x .@? "eventType" - -instance ToQuery VolumeStatusAction where - toQuery VolumeStatusAction{..} = mconcat - [ "code" =? _vsaCode - , "description" =? _vsaDescription - , "eventId" =? _vsaEventId - , "eventType" =? _vsaEventType - ] - -data VpcPeeringConnectionVpcInfo = VpcPeeringConnectionVpcInfo - { _vpcviCidrBlock :: Maybe Text - , _vpcviOwnerId :: Maybe Text - , _vpcviVpcId :: Maybe Text - } deriving (Eq, Ord, Show) - --- | 'VpcPeeringConnectionVpcInfo' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'vpcviCidrBlock' @::@ 'Maybe' 'Text' --- --- * 'vpcviOwnerId' @::@ 'Maybe' 'Text' --- --- * 'vpcviVpcId' @::@ 'Maybe' 'Text' --- -vpcPeeringConnectionVpcInfo :: VpcPeeringConnectionVpcInfo -vpcPeeringConnectionVpcInfo = VpcPeeringConnectionVpcInfo - { _vpcviCidrBlock = Nothing - , _vpcviOwnerId = Nothing - , _vpcviVpcId = Nothing - } - --- | The CIDR block for the VPC. -vpcviCidrBlock :: Lens' VpcPeeringConnectionVpcInfo (Maybe Text) -vpcviCidrBlock = lens _vpcviCidrBlock (\s a -> s { _vpcviCidrBlock = a }) - --- | The AWS account ID of the VPC owner. -vpcviOwnerId :: Lens' VpcPeeringConnectionVpcInfo (Maybe Text) -vpcviOwnerId = lens _vpcviOwnerId (\s a -> s { _vpcviOwnerId = a }) - --- | The ID of the VPC. -vpcviVpcId :: Lens' VpcPeeringConnectionVpcInfo (Maybe Text) -vpcviVpcId = lens _vpcviVpcId (\s a -> s { _vpcviVpcId = a }) - -instance FromXML VpcPeeringConnectionVpcInfo where - parseXML x = VpcPeeringConnectionVpcInfo - <$> x .@? "cidrBlock" - <*> x .@? "ownerId" - <*> x .@? "vpcId" - -instance ToQuery VpcPeeringConnectionVpcInfo where - toQuery VpcPeeringConnectionVpcInfo{..} = mconcat - [ "cidrBlock" =? _vpcviCidrBlock - , "ownerId" =? _vpcviOwnerId - , "vpcId" =? _vpcviVpcId - ] - -data ReservedInstanceLimitPrice = ReservedInstanceLimitPrice - { _rilpAmount :: Maybe Double - , _rilpCurrencyCode :: Maybe CurrencyCodeValues - } deriving (Eq, Show) - --- | 'ReservedInstanceLimitPrice' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'rilpAmount' @::@ 'Maybe' 'Double' --- --- * 'rilpCurrencyCode' @::@ 'Maybe' 'CurrencyCodeValues' --- -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 FromXML ReservedInstanceLimitPrice where - parseXML x = ReservedInstanceLimitPrice - <$> x .@? "amount" - <*> x .@? "currencyCode" - -instance ToQuery ReservedInstanceLimitPrice where - toQuery ReservedInstanceLimitPrice{..} = mconcat - [ "amount" =? _rilpAmount - , "currencyCode" =? _rilpCurrencyCode - ] - -data Vpc = Vpc - { _vpcCidrBlock :: Maybe Text - , _vpcDhcpOptionsId :: Maybe Text - , _vpcInstanceTenancy :: Maybe Tenancy - , _vpcIsDefault :: Maybe Bool - , _vpcState :: Maybe VpcState - , _vpcTags :: List "item" Tag - , _vpcVpcId :: Maybe Text - } deriving (Eq, Show) - --- | 'Vpc' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'vpcCidrBlock' @::@ 'Maybe' 'Text' --- --- * 'vpcDhcpOptionsId' @::@ 'Maybe' 'Text' --- --- * 'vpcInstanceTenancy' @::@ 'Maybe' 'Tenancy' --- --- * 'vpcIsDefault' @::@ 'Maybe' 'Bool' --- --- * 'vpcState' @::@ 'Maybe' 'VpcState' --- --- * 'vpcTags' @::@ ['Tag'] --- --- * 'vpcVpcId' @::@ 'Maybe' 'Text' --- -vpc :: Vpc -vpc = Vpc - { _vpcVpcId = Nothing - , _vpcState = Nothing - , _vpcCidrBlock = Nothing - , _vpcDhcpOptionsId = Nothing - , _vpcTags = mempty - , _vpcInstanceTenancy = Nothing - , _vpcIsDefault = Nothing - } - --- | The CIDR block for the VPC. -vpcCidrBlock :: Lens' Vpc (Maybe 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 (Maybe Text) -vpcDhcpOptionsId = lens _vpcDhcpOptionsId (\s a -> s { _vpcDhcpOptionsId = a }) - --- | The allowed tenancy of instances launched into the VPC. -vpcInstanceTenancy :: Lens' Vpc (Maybe Tenancy) -vpcInstanceTenancy = - lens _vpcInstanceTenancy (\s a -> s { _vpcInstanceTenancy = a }) - --- | Indicates whether the VPC is the default VPC. -vpcIsDefault :: Lens' Vpc (Maybe Bool) -vpcIsDefault = lens _vpcIsDefault (\s a -> s { _vpcIsDefault = a }) - --- | The current state of the VPC. -vpcState :: Lens' Vpc (Maybe VpcState) -vpcState = lens _vpcState (\s a -> s { _vpcState = a }) - --- | Any tags assigned to the VPC. -vpcTags :: Lens' Vpc [Tag] -vpcTags = lens _vpcTags (\s a -> s { _vpcTags = a }) . _List - --- | The ID of the VPC. -vpcVpcId :: Lens' Vpc (Maybe Text) -vpcVpcId = lens _vpcVpcId (\s a -> s { _vpcVpcId = a }) - -instance FromXML Vpc where - parseXML x = Vpc - <$> x .@? "cidrBlock" - <*> x .@? "dhcpOptionsId" - <*> x .@? "instanceTenancy" - <*> x .@? "isDefault" - <*> x .@? "state" - <*> x .@ "tagSet" - <*> x .@? "vpcId" - -instance ToQuery Vpc where - toQuery Vpc{..} = mconcat - [ "cidrBlock" =? _vpcCidrBlock - , "dhcpOptionsId" =? _vpcDhcpOptionsId - , "instanceTenancy" =? _vpcInstanceTenancy - , "isDefault" =? _vpcIsDefault - , "state" =? _vpcState - , "tagSet" =? _vpcTags - , "vpcId" =? _vpcVpcId - ] - -data InstanceStatus = InstanceStatus - { _isAvailabilityZone :: Maybe Text - , _isEvents :: List "item" InstanceStatusEvent - , _isInstanceId :: Maybe Text - , _isInstanceState :: Maybe InstanceState - , _isInstanceStatus :: Maybe InstanceStatusSummary - , _isSystemStatus :: Maybe InstanceStatusSummary - } deriving (Eq, Show) - --- | 'InstanceStatus' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'isAvailabilityZone' @::@ 'Maybe' 'Text' --- --- * 'isEvents' @::@ ['InstanceStatusEvent'] --- --- * 'isInstanceId' @::@ 'Maybe' 'Text' --- --- * 'isInstanceState' @::@ 'Maybe' 'InstanceState' --- --- * 'isInstanceStatus' @::@ 'Maybe' 'InstanceStatusSummary' --- --- * 'isSystemStatus' @::@ 'Maybe' 'InstanceStatusSummary' --- -instanceStatus :: InstanceStatus -instanceStatus = InstanceStatus - { _isInstanceId = Nothing - , _isAvailabilityZone = Nothing - , _isEvents = mempty - , _isInstanceState = Nothing - , _isSystemStatus = Nothing - , _isInstanceStatus = Nothing - } - --- | The Availability Zone of the instance. -isAvailabilityZone :: Lens' InstanceStatus (Maybe Text) -isAvailabilityZone = - lens _isAvailabilityZone (\s a -> s { _isAvailabilityZone = a }) - --- | Extra information regarding events associated with the instance. -isEvents :: Lens' InstanceStatus [InstanceStatusEvent] -isEvents = lens _isEvents (\s a -> s { _isEvents = a }) . _List - --- | The ID of the instance. -isInstanceId :: Lens' InstanceStatus (Maybe Text) -isInstanceId = lens _isInstanceId (\s a -> s { _isInstanceId = 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 }) - --- | 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 }) - --- | 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 }) - -instance FromXML InstanceStatus where - parseXML x = InstanceStatus - <$> x .@? "availabilityZone" - <*> x .@ "eventsSet" - <*> x .@? "instanceId" - <*> x .@? "instanceState" - <*> x .@? "instanceStatus" - <*> x .@? "systemStatus" - -instance ToQuery InstanceStatus where - toQuery InstanceStatus{..} = mconcat - [ "availabilityZone" =? _isAvailabilityZone - , "eventsSet" =? _isEvents - , "instanceId" =? _isInstanceId - , "instanceState" =? _isInstanceState - , "instanceStatus" =? _isInstanceStatus - , "systemStatus" =? _isSystemStatus - ] - -data ArchitectureValues - = I386 -- ^ i386 - | X8664 -- ^ x86_64 - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable ArchitectureValues - -instance FromText ArchitectureValues where - parser = match "i386" I386 - <|> match "x86_64" X8664 - -instance ToText ArchitectureValues where - toText = \case - I386 -> "i386" - X8664 -> "x86_64" - -instance ToByteString ArchitectureValues -instance ToHeader ArchitectureValues -instance ToQuery ArchitectureValues - -instance FromXML ArchitectureValues where - parseXML = parseXMLText "ArchitectureValues" - - -data ReportInstanceReasonCodes - = InstanceStuckInState -- ^ instance-stuck-in-state - | NotAcceptingCredentials -- ^ not-accepting-credentials - | Other -- ^ other - | PasswordNotAvailable -- ^ password-not-available - | PerformanceEbsVolume -- ^ performance-ebs-volume - | PerformanceInstanceStore -- ^ performance-instance-store - | PerformanceNetwork -- ^ performance-network - | PerformanceOther -- ^ performance-other - | Unresponsive -- ^ unresponsive - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable ReportInstanceReasonCodes - -instance FromText ReportInstanceReasonCodes where - parser = match "instance-stuck-in-state" InstanceStuckInState - <|> match "not-accepting-credentials" NotAcceptingCredentials - <|> match "other" Other - <|> match "password-not-available" PasswordNotAvailable - <|> match "performance-ebs-volume" PerformanceEbsVolume - <|> match "performance-instance-store" PerformanceInstanceStore - <|> match "performance-network" PerformanceNetwork - <|> match "performance-other" PerformanceOther - <|> match "unresponsive" Unresponsive - -instance ToText ReportInstanceReasonCodes where - toText = \case - InstanceStuckInState -> "instance-stuck-in-state" - NotAcceptingCredentials -> "not-accepting-credentials" - Other -> "other" - PasswordNotAvailable -> "password-not-available" - PerformanceEbsVolume -> "performance-ebs-volume" - PerformanceInstanceStore -> "performance-instance-store" - PerformanceNetwork -> "performance-network" - PerformanceOther -> "performance-other" - Unresponsive -> "unresponsive" - -instance ToByteString ReportInstanceReasonCodes -instance ToHeader ReportInstanceReasonCodes -instance ToQuery ReportInstanceReasonCodes - -instance FromXML ReportInstanceReasonCodes where - parseXML = parseXMLText "ReportInstanceReasonCodes" - - -data EbsBlockDevice = EbsBlockDevice - { _ebdDeleteOnTermination :: Maybe Bool - , _ebdEncrypted :: Maybe Bool - , _ebdIops :: Maybe Int - , _ebdSnapshotId :: Maybe Text - , _ebdVolumeSize :: Maybe Int - , _ebdVolumeType :: Maybe VolumeType - } deriving (Eq, Show) - --- | 'EbsBlockDevice' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'ebdDeleteOnTermination' @::@ 'Maybe' 'Bool' --- --- * 'ebdEncrypted' @::@ 'Maybe' 'Bool' --- --- * 'ebdIops' @::@ 'Maybe' 'Int' --- --- * 'ebdSnapshotId' @::@ 'Maybe' 'Text' --- --- * 'ebdVolumeSize' @::@ 'Maybe' 'Int' --- --- * 'ebdVolumeType' @::@ 'Maybe' 'VolumeType' --- -ebsBlockDevice :: EbsBlockDevice -ebsBlockDevice = EbsBlockDevice - { _ebdSnapshotId = Nothing - , _ebdVolumeSize = Nothing - , _ebdDeleteOnTermination = Nothing - , _ebdVolumeType = Nothing - , _ebdIops = Nothing - , _ebdEncrypted = Nothing - } - --- | Indicates whether the Amazon EBS volume is deleted on instance --- termination. -ebdDeleteOnTermination :: Lens' EbsBlockDevice (Maybe Bool) -ebdDeleteOnTermination = - lens _ebdDeleteOnTermination (\s a -> s { _ebdDeleteOnTermination = a }) - --- | Indicates whether the Amazon EBS volume is encrypted. Encrypted Amazon --- EBS volumes may only be attached to instances that support Amazon EBS --- encryption. -ebdEncrypted :: Lens' EbsBlockDevice (Maybe Bool) -ebdEncrypted = lens _ebdEncrypted (\s a -> s { _ebdEncrypted = a }) - --- | 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 Amazon EBS Volume Types in the Amazon Elastic Compute --- Cloud User Guide. Constraint: Range is 100 to 4000 for Provisioned IOPS --- (SSD) volumes and 3 to 3072 for General Purpose (SSD) volumes. Condition: --- This parameter is required for requests to create io1 volumes; it is not --- used in requests to create standard or gp2 volumes. -ebdIops :: Lens' EbsBlockDevice (Maybe Int) -ebdIops = lens _ebdIops (\s a -> s { _ebdIops = a }) - --- | The ID of the snapshot. -ebdSnapshotId :: Lens' EbsBlockDevice (Maybe Text) -ebdSnapshotId = lens _ebdSnapshotId (\s a -> s { _ebdSnapshotId = a }) - --- | The size of the volume, in GiB. Constraints: If the volume type is io1, --- the minimum size of the volume is 10 GiB; otherwise, the minimum size is --- 1 GiB. The maximum volume size is 1024 GiB. 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 volume type. gp2 for General Purpose (SSD) volumes, io1 for --- Provisioned IOPS (SSD) volumes, and standard for Magnetic volumes. --- Default: standard. -ebdVolumeType :: Lens' EbsBlockDevice (Maybe VolumeType) -ebdVolumeType = lens _ebdVolumeType (\s a -> s { _ebdVolumeType = a }) - -instance FromXML EbsBlockDevice where - parseXML x = EbsBlockDevice - <$> x .@? "deleteOnTermination" - <*> x .@? "encrypted" - <*> x .@? "iops" - <*> x .@? "snapshotId" - <*> x .@? "volumeSize" - <*> x .@? "volumeType" - -instance ToQuery EbsBlockDevice where - toQuery EbsBlockDevice{..} = mconcat - [ "deleteOnTermination" =? _ebdDeleteOnTermination - , "encrypted" =? _ebdEncrypted - , "iops" =? _ebdIops - , "snapshotId" =? _ebdSnapshotId - , "volumeSize" =? _ebdVolumeSize - , "volumeType" =? _ebdVolumeType - ] - -data AccountAttribute = AccountAttribute - { _aaAttributeName :: Maybe Text - , _aaAttributeValues :: List "item" AccountAttributeValue - } deriving (Eq, Show) - --- | 'AccountAttribute' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'aaAttributeName' @::@ 'Maybe' 'Text' --- --- * 'aaAttributeValues' @::@ ['AccountAttributeValue'] --- -accountAttribute :: AccountAttribute -accountAttribute = AccountAttribute - { _aaAttributeName = Nothing - , _aaAttributeValues = mempty - } - --- | The name of the account attribute. -aaAttributeName :: Lens' AccountAttribute (Maybe Text) -aaAttributeName = lens _aaAttributeName (\s a -> s { _aaAttributeName = a }) - --- | One or more values for the account attribute. -aaAttributeValues :: Lens' AccountAttribute [AccountAttributeValue] -aaAttributeValues = - lens _aaAttributeValues (\s a -> s { _aaAttributeValues = a }) - . _List - -instance FromXML AccountAttribute where - parseXML x = AccountAttribute - <$> x .@? "attributeName" - <*> x .@ "attributeValueSet" - -instance ToQuery AccountAttribute where - toQuery AccountAttribute{..} = mconcat - [ "attributeName" =? _aaAttributeName - , "attributeValueSet" =? _aaAttributeValues - ] - -data PriceSchedule = PriceSchedule - { _psActive :: Maybe Bool - , _psCurrencyCode :: Maybe CurrencyCodeValues - , _psPrice :: Maybe Double - , _psTerm :: Maybe Integer - } deriving (Eq, Show) - --- | 'PriceSchedule' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'psActive' @::@ 'Maybe' 'Bool' --- --- * 'psCurrencyCode' @::@ 'Maybe' 'CurrencyCodeValues' --- --- * 'psPrice' @::@ 'Maybe' 'Double' --- --- * 'psTerm' @::@ 'Maybe' 'Integer' --- -priceSchedule :: PriceSchedule -priceSchedule = PriceSchedule - { _psTerm = Nothing - , _psPrice = Nothing - , _psCurrencyCode = Nothing - , _psActive = Nothing - } - --- | 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 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 fixed price for the term. -psPrice :: Lens' PriceSchedule (Maybe Double) -psPrice = lens _psPrice (\s a -> s { _psPrice = 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 }) - -instance FromXML PriceSchedule where - parseXML x = PriceSchedule - <$> x .@? "active" - <*> x .@? "currencyCode" - <*> x .@? "price" - <*> x .@? "term" - -instance ToQuery PriceSchedule where - toQuery PriceSchedule{..} = mconcat - [ "active" =? _psActive - , "currencyCode" =? _psCurrencyCode - , "price" =? _psPrice - , "term" =? _psTerm - ] - -data DeviceType - = Ebs -- ^ ebs - | InstanceStore -- ^ instance-store - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable DeviceType - -instance FromText DeviceType where - parser = match "ebs" Ebs - <|> match "instance-store" InstanceStore - -instance ToText DeviceType where - toText = \case - Ebs -> "ebs" - InstanceStore -> "instance-store" - -instance ToByteString DeviceType -instance ToHeader DeviceType -instance ToQuery DeviceType - -instance FromXML DeviceType where - parseXML = parseXMLText "DeviceType" - - -data DomainType - = DTStandard -- ^ standard - | DTVpc -- ^ vpc - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable DomainType - -instance FromText DomainType where - parser = match "standard" DTStandard - <|> match "vpc" DTVpc - -instance ToText DomainType where - toText = \case - DTStandard -> "standard" - DTVpc -> "vpc" - -instance ToByteString DomainType -instance ToHeader DomainType -instance ToQuery DomainType - -instance FromXML DomainType where - parseXML = parseXMLText "DomainType" - - -data Region = Region - { _rEndpoint :: Maybe Text - , _rRegionName :: Maybe Text - } deriving (Eq, Ord, Show) - --- | 'Region' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'rEndpoint' @::@ 'Maybe' 'Text' --- --- * 'rRegionName' @::@ 'Maybe' 'Text' --- -region :: Region -region = Region - { _rRegionName = Nothing - , _rEndpoint = Nothing - } - --- | The region service endpoint. -rEndpoint :: Lens' Region (Maybe Text) -rEndpoint = lens _rEndpoint (\s a -> s { _rEndpoint = a }) - --- | The name of the region. -rRegionName :: Lens' Region (Maybe Text) -rRegionName = lens _rRegionName (\s a -> s { _rRegionName = a }) - -instance FromXML Region where - parseXML x = Region - <$> x .@? "regionEndpoint" - <*> x .@? "regionName" - -instance ToQuery Region where - toQuery Region{..} = mconcat - [ "regionEndpoint" =? _rEndpoint - , "regionName" =? _rRegionName - ] - -newtype PropagatingVgw = PropagatingVgw - { _pvGatewayId :: Maybe Text - } deriving (Eq, Ord, Show, Monoid) - --- | 'PropagatingVgw' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'pvGatewayId' @::@ 'Maybe' 'Text' --- -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 ToQuery PropagatingVgw where - toQuery PropagatingVgw{..} = mconcat - [ "gatewayId" =? _pvGatewayId - ] - -data OfferingTypeValues - = HeavyUtilization -- ^ Heavy Utilization - | LightUtilization -- ^ Light Utilization - | MediumUtilization -- ^ Medium Utilization - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable OfferingTypeValues - -instance FromText OfferingTypeValues where - parser = match "Heavy Utilization" HeavyUtilization - <|> match "Light Utilization" LightUtilization - <|> match "Medium Utilization" MediumUtilization - -instance ToText OfferingTypeValues where - toText = \case - HeavyUtilization -> "Heavy Utilization" - LightUtilization -> "Light Utilization" - MediumUtilization -> "Medium Utilization" - -instance ToByteString OfferingTypeValues -instance ToHeader OfferingTypeValues -instance ToQuery OfferingTypeValues - -instance FromXML OfferingTypeValues where - parseXML = parseXMLText "OfferingTypeValues" - - -data VpnGateway = VpnGateway - { _vgAvailabilityZone :: Maybe Text - , _vgState :: Maybe VpnState - , _vgTags :: List "item" Tag - , _vgType :: Maybe GatewayType - , _vgVpcAttachments :: List "item" VpcAttachment - , _vgVpnGatewayId :: Maybe Text - } deriving (Eq, Show) - --- | 'VpnGateway' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'vgAvailabilityZone' @::@ 'Maybe' 'Text' --- --- * 'vgState' @::@ 'Maybe' 'VpnState' --- --- * 'vgTags' @::@ ['Tag'] --- --- * 'vgType' @::@ 'Maybe' 'GatewayType' --- --- * 'vgVpcAttachments' @::@ ['VpcAttachment'] --- --- * 'vgVpnGatewayId' @::@ 'Maybe' 'Text' --- -vpnGateway :: VpnGateway -vpnGateway = VpnGateway - { _vgVpnGatewayId = Nothing - , _vgState = Nothing - , _vgType = Nothing - , _vgAvailabilityZone = Nothing - , _vgVpcAttachments = mempty - , _vgTags = mempty - } - --- | The Availability Zone where the virtual private gateway was created. -vgAvailabilityZone :: Lens' VpnGateway (Maybe Text) -vgAvailabilityZone = - lens _vgAvailabilityZone (\s a -> s { _vgAvailabilityZone = a }) - --- | The current state of the virtual private gateway. -vgState :: Lens' VpnGateway (Maybe VpnState) -vgState = lens _vgState (\s a -> s { _vgState = a }) - --- | Any tags assigned to the virtual private gateway. -vgTags :: Lens' VpnGateway [Tag] -vgTags = lens _vgTags (\s a -> s { _vgTags = a }) . _List - --- | The type of VPN connection the virtual private gateway supports. -vgType :: Lens' VpnGateway (Maybe GatewayType) -vgType = lens _vgType (\s a -> s { _vgType = a }) - --- | Any VPCs attached to the virtual private gateway. -vgVpcAttachments :: Lens' VpnGateway [VpcAttachment] -vgVpcAttachments = lens _vgVpcAttachments (\s a -> s { _vgVpcAttachments = a }) . _List - --- | The ID of the virtual private gateway. -vgVpnGatewayId :: Lens' VpnGateway (Maybe Text) -vgVpnGatewayId = lens _vgVpnGatewayId (\s a -> s { _vgVpnGatewayId = a }) - -instance FromXML VpnGateway where - parseXML x = VpnGateway - <$> x .@? "availabilityZone" - <*> x .@? "state" - <*> x .@ "tagSet" - <*> x .@? "type" - <*> x .@ "attachments" - <*> x .@? "vpnGatewayId" - -instance ToQuery VpnGateway where - toQuery VpnGateway{..} = mconcat - [ "availabilityZone" =? _vgAvailabilityZone - , "state" =? _vgState - , "tagSet" =? _vgTags - , "type" =? _vgType - , "attachments" =? _vgVpcAttachments - , "vpnGatewayId" =? _vgVpnGatewayId - ] - -data Filter = Filter - { _fName :: Text - , _fValues :: List "item" Text - } deriving (Eq, Ord, Show) - --- | 'Filter' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'fName' @::@ 'Text' --- --- * 'fValues' @::@ ['Text'] --- -filter' :: Text -- ^ 'fName' - -> Filter -filter' p1 = Filter - { _fName = p1 - , _fValues = mempty - } - --- | The name of the filter. -fName :: Lens' Filter Text -fName = lens _fName (\s a -> s { _fName = a }) - --- | One or more filter values. -fValues :: Lens' Filter [Text] -fValues = lens _fValues (\s a -> s { _fValues = a }) . _List - -instance FromXML Filter where - parseXML x = Filter - <$> x .@ "Name" - <*> x .@ "Value" - -instance ToQuery Filter where - toQuery Filter{..} = mconcat - [ "Name" =? _fName - , "Value" =? _fValues - ] - -data VolumeType - = Gp2 -- ^ gp2 - | Io1 -- ^ io1 - | Standard -- ^ standard - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable VolumeType - -instance FromText VolumeType where - parser = match "gp2" Gp2 - <|> match "io1" Io1 - <|> match "standard" Standard - -instance ToText VolumeType where - toText = \case - Gp2 -> "gp2" - Io1 -> "io1" - Standard -> "standard" - -instance ToByteString VolumeType -instance ToHeader VolumeType -instance ToQuery VolumeType - -instance FromXML VolumeType where - parseXML = parseXMLText "VolumeType" - - -data InstanceStateChange = InstanceStateChange - { _iscCurrentState :: Maybe InstanceState - , _iscInstanceId :: Maybe Text - , _iscPreviousState :: Maybe InstanceState - } deriving (Eq, Show) - --- | 'InstanceStateChange' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'iscCurrentState' @::@ 'Maybe' 'InstanceState' --- --- * 'iscInstanceId' @::@ 'Maybe' 'Text' --- --- * 'iscPreviousState' @::@ 'Maybe' 'InstanceState' --- -instanceStateChange :: InstanceStateChange -instanceStateChange = InstanceStateChange - { _iscInstanceId = Nothing - , _iscCurrentState = Nothing - , _iscPreviousState = Nothing - } - --- | The current state of the instance. -iscCurrentState :: Lens' InstanceStateChange (Maybe InstanceState) -iscCurrentState = lens _iscCurrentState (\s a -> s { _iscCurrentState = a }) - --- | The ID of the instance. -iscInstanceId :: Lens' InstanceStateChange (Maybe Text) -iscInstanceId = lens _iscInstanceId (\s a -> s { _iscInstanceId = 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 .@? "currentState" - <*> x .@? "instanceId" - <*> x .@? "previousState" - -instance ToQuery InstanceStateChange where - toQuery InstanceStateChange{..} = mconcat - [ "currentState" =? _iscCurrentState - , "instanceId" =? _iscInstanceId - , "previousState" =? _iscPreviousState - ] - -data NetworkAcl = NetworkAcl - { _naAssociations :: List "item" NetworkAclAssociation - , _naEntries :: List "item" NetworkAclEntry - , _naIsDefault :: Maybe Bool - , _naNetworkAclId :: Maybe Text - , _naTags :: List "item" Tag - , _naVpcId :: Maybe Text - } deriving (Eq, Show) - --- | 'NetworkAcl' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'naAssociations' @::@ ['NetworkAclAssociation'] --- --- * 'naEntries' @::@ ['NetworkAclEntry'] --- --- * 'naIsDefault' @::@ 'Maybe' 'Bool' --- --- * 'naNetworkAclId' @::@ 'Maybe' 'Text' --- --- * 'naTags' @::@ ['Tag'] --- --- * 'naVpcId' @::@ 'Maybe' 'Text' --- -networkAcl :: NetworkAcl -networkAcl = NetworkAcl - { _naNetworkAclId = Nothing - , _naVpcId = Nothing - , _naIsDefault = Nothing - , _naEntries = mempty - , _naAssociations = mempty - , _naTags = mempty - } - --- | Any associations between the network ACL and one or more subnets. -naAssociations :: Lens' NetworkAcl [NetworkAclAssociation] -naAssociations = lens _naAssociations (\s a -> s { _naAssociations = a }) . _List - --- | One or more entries (rules) in the network ACL. -naEntries :: Lens' NetworkAcl [NetworkAclEntry] -naEntries = lens _naEntries (\s a -> s { _naEntries = a }) . _List - --- | Indicates whether this is the default network ACL for the VPC. -naIsDefault :: Lens' NetworkAcl (Maybe Bool) -naIsDefault = lens _naIsDefault (\s a -> s { _naIsDefault = a }) - --- | The ID of the network ACL. -naNetworkAclId :: Lens' NetworkAcl (Maybe Text) -naNetworkAclId = lens _naNetworkAclId (\s a -> s { _naNetworkAclId = a }) - --- | Any tags assigned to the network ACL. -naTags :: Lens' NetworkAcl [Tag] -naTags = lens _naTags (\s a -> s { _naTags = a }) . _List - --- | The ID of the VPC for the network ACL. -naVpcId :: Lens' NetworkAcl (Maybe Text) -naVpcId = lens _naVpcId (\s a -> s { _naVpcId = a }) - -instance FromXML NetworkAcl where - parseXML x = NetworkAcl - <$> x .@ "associationSet" - <*> x .@ "entrySet" - <*> x .@? "default" - <*> x .@? "networkAclId" - <*> x .@ "tagSet" - <*> x .@? "vpcId" - -instance ToQuery NetworkAcl where - toQuery NetworkAcl{..} = mconcat - [ "associationSet" =? _naAssociations - , "entrySet" =? _naEntries - , "default" =? _naIsDefault - , "networkAclId" =? _naNetworkAclId - , "tagSet" =? _naTags - , "vpcId" =? _naVpcId - ] - -data ImageState - = ISAvailable -- ^ available - | ISDeregistered -- ^ deregistered - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable ImageState - -instance FromText ImageState where - parser = match "available" ISAvailable - <|> match "deregistered" ISDeregistered - -instance ToText ImageState where - toText = \case - ISAvailable -> "available" - ISDeregistered -> "deregistered" - -instance ToByteString ImageState -instance ToHeader ImageState -instance ToQuery ImageState - -instance FromXML ImageState where - parseXML = parseXMLText "ImageState" - - -data GatewayType - = Ipsec1 -- ^ ipsec.1 - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable GatewayType - -instance FromText GatewayType where - parser = match "ipsec.1" Ipsec1 - -instance ToText GatewayType where - toText Ipsec1 = "ipsec.1" - -instance ToByteString GatewayType -instance ToHeader GatewayType -instance ToQuery GatewayType - -instance FromXML GatewayType where - parseXML = parseXMLText "GatewayType" - - -data InstanceNetworkInterfaceAttachment = InstanceNetworkInterfaceAttachment - { _iniaAttachTime :: Maybe RFC822 - , _iniaAttachmentId :: Maybe Text - , _iniaDeleteOnTermination :: Maybe Bool - , _iniaDeviceIndex :: Maybe Int - , _iniaStatus :: Maybe AttachmentStatus - } deriving (Eq, Show) - --- | 'InstanceNetworkInterfaceAttachment' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'iniaAttachTime' @::@ 'Maybe' 'UTCTime' --- --- * 'iniaAttachmentId' @::@ 'Maybe' 'Text' --- --- * 'iniaDeleteOnTermination' @::@ 'Maybe' 'Bool' --- --- * 'iniaDeviceIndex' @::@ 'Maybe' 'Int' --- --- * 'iniaStatus' @::@ 'Maybe' 'AttachmentStatus' --- -instanceNetworkInterfaceAttachment :: InstanceNetworkInterfaceAttachment -instanceNetworkInterfaceAttachment = InstanceNetworkInterfaceAttachment - { _iniaAttachmentId = Nothing - , _iniaDeviceIndex = Nothing - , _iniaStatus = Nothing - , _iniaAttachTime = Nothing - , _iniaDeleteOnTermination = Nothing - } - --- | The time stamp when the attachment initiated. -iniaAttachTime :: Lens' InstanceNetworkInterfaceAttachment (Maybe UTCTime) -iniaAttachTime = lens _iniaAttachTime (\s a -> s { _iniaAttachTime = a }) . mapping _Time - --- | The ID of the network interface attachment. -iniaAttachmentId :: Lens' InstanceNetworkInterfaceAttachment (Maybe Text) -iniaAttachmentId = lens _iniaAttachmentId (\s a -> s { _iniaAttachmentId = 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 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 }) - --- | The attachment state. -iniaStatus :: Lens' InstanceNetworkInterfaceAttachment (Maybe AttachmentStatus) -iniaStatus = lens _iniaStatus (\s a -> s { _iniaStatus = a }) - -instance FromXML InstanceNetworkInterfaceAttachment where - parseXML x = InstanceNetworkInterfaceAttachment - <$> x .@? "attachTime" - <*> x .@? "attachmentId" - <*> x .@? "deleteOnTermination" - <*> x .@? "deviceIndex" - <*> x .@? "status" - -instance ToQuery InstanceNetworkInterfaceAttachment where - toQuery InstanceNetworkInterfaceAttachment{..} = mconcat - [ "attachTime" =? _iniaAttachTime - , "attachmentId" =? _iniaAttachmentId - , "deleteOnTermination" =? _iniaDeleteOnTermination - , "deviceIndex" =? _iniaDeviceIndex - , "status" =? _iniaStatus - ] - -newtype AttributeBooleanValue = AttributeBooleanValue - { _abvValue :: Maybe Bool - } deriving (Eq, Ord, Show) - --- | 'AttributeBooleanValue' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'abvValue' @::@ 'Maybe' 'Bool' --- -attributeBooleanValue :: AttributeBooleanValue -attributeBooleanValue = AttributeBooleanValue - { _abvValue = Nothing - } - -abvValue :: Lens' AttributeBooleanValue (Maybe Bool) -abvValue = lens _abvValue (\s a -> s { _abvValue = a }) - -instance FromXML AttributeBooleanValue where - parseXML x = AttributeBooleanValue - <$> x .@? "value" - -instance ToQuery AttributeBooleanValue where - toQuery AttributeBooleanValue{..} = mconcat - [ "value" =? _abvValue - ] - -data RecurringCharge = RecurringCharge - { _rcAmount :: Maybe Double - , _rcFrequency :: Maybe RecurringChargeFrequency - } deriving (Eq, Show) - --- | 'RecurringCharge' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'rcAmount' @::@ 'Maybe' 'Double' --- --- * 'rcFrequency' @::@ 'Maybe' 'RecurringChargeFrequency' --- -recurringCharge :: RecurringCharge -recurringCharge = RecurringCharge - { _rcFrequency = Nothing - , _rcAmount = 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 ToQuery RecurringCharge where - toQuery RecurringCharge{..} = mconcat - [ "amount" =? _rcAmount - , "frequency" =? _rcFrequency - ] - -data NewDhcpConfiguration = NewDhcpConfiguration - { _ndcKey :: Maybe Text - , _ndcValues :: List "item" Text - } deriving (Eq, Ord, Show) - --- | 'NewDhcpConfiguration' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'ndcKey' @::@ 'Maybe' 'Text' --- --- * 'ndcValues' @::@ ['Text'] --- -newDhcpConfiguration :: NewDhcpConfiguration -newDhcpConfiguration = NewDhcpConfiguration - { _ndcKey = Nothing - , _ndcValues = mempty - } - -ndcKey :: Lens' NewDhcpConfiguration (Maybe Text) -ndcKey = lens _ndcKey (\s a -> s { _ndcKey = a }) - -ndcValues :: Lens' NewDhcpConfiguration [Text] -ndcValues = lens _ndcValues (\s a -> s { _ndcValues = a }) . _List - -instance FromXML NewDhcpConfiguration where - parseXML x = NewDhcpConfiguration - <$> x .@? "key" - <*> x .@ "Value" - -instance ToQuery NewDhcpConfiguration where - toQuery NewDhcpConfiguration{..} = mconcat - [ "key" =? _ndcKey - , "Value" =? _ndcValues - ] - -data StateReason = StateReason - { _srCode :: Maybe Text - , _srMessage :: Maybe Text - } deriving (Eq, Ord, Show) - --- | 'StateReason' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'srCode' @::@ 'Maybe' 'Text' --- --- * 'srMessage' @::@ 'Maybe' 'Text' --- -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.SpotInstanceTermination: A Spot --- Instance was terminated due to an increase in the market price. --- Server.InternalError: An internal error occurred during instance launch, --- resulting in termination. Server.InsufficientInstanceCapacity: There was --- insufficient instance capacity to satisfy the launch request. --- 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.UserInitiatedShutdown: The instance was shut down using the Amazon --- EC2 API. Client.VolumeLimitExceeded: The volume limit was exceeded. --- 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 ToQuery StateReason where - toQuery StateReason{..} = mconcat - [ "code" =? _srCode - , "message" =? _srMessage - ] - -data MonitoringState - = MSDisabled -- ^ disabled - | MSEnabled -- ^ enabled - | MSPending -- ^ pending - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable MonitoringState - -instance FromText MonitoringState where - parser = match "disabled" MSDisabled - <|> match "enabled" MSEnabled - <|> match "pending" MSPending - -instance ToText MonitoringState where - toText = \case - MSDisabled -> "disabled" - MSEnabled -> "enabled" - MSPending -> "pending" - -instance ToByteString MonitoringState -instance ToHeader MonitoringState -instance ToQuery MonitoringState - -instance FromXML MonitoringState where - parseXML = parseXMLText "MonitoringState" - - -newtype ReservedInstancesId = ReservedInstancesId - { _riiReservedInstancesId :: Maybe Text - } deriving (Eq, Ord, Show, Monoid) - --- | 'ReservedInstancesId' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'riiReservedInstancesId' @::@ 'Maybe' 'Text' --- -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 ToQuery ReservedInstancesId where - toQuery ReservedInstancesId{..} = mconcat - [ "reservedInstancesId" =? _riiReservedInstancesId - ] - -data StatusName - = Reachability -- ^ reachability - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable StatusName - -instance FromText StatusName where - parser = match "reachability" Reachability - -instance ToText StatusName where - toText Reachability = "reachability" - -instance ToByteString StatusName -instance ToHeader StatusName -instance ToQuery StatusName - -instance FromXML StatusName where - parseXML = parseXMLText "StatusName" - - -data InternetGateway = InternetGateway - { _igAttachments :: List "item" InternetGatewayAttachment - , _igInternetGatewayId :: Text - , _igTags :: List "item" Tag - } deriving (Eq, Show) - --- | 'InternetGateway' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'igAttachments' @::@ ['InternetGatewayAttachment'] --- --- * 'igInternetGatewayId' @::@ 'Text' --- --- * 'igTags' @::@ ['Tag'] --- -internetGateway :: Text -- ^ 'igInternetGatewayId' - -> InternetGateway -internetGateway p1 = InternetGateway - { _igInternetGatewayId = p1 - , _igAttachments = mempty - , _igTags = mempty - } - --- | Any VPCs attached to the Internet gateway. -igAttachments :: Lens' InternetGateway [InternetGatewayAttachment] -igAttachments = lens _igAttachments (\s a -> s { _igAttachments = a }) . _List - --- | The ID of the Internet gateway. -igInternetGatewayId :: Lens' InternetGateway Text -igInternetGatewayId = - lens _igInternetGatewayId (\s a -> s { _igInternetGatewayId = a }) - --- | Any tags assigned to the Internet gateway. -igTags :: Lens' InternetGateway [Tag] -igTags = lens _igTags (\s a -> s { _igTags = a }) . _List - -instance FromXML InternetGateway where - parseXML x = InternetGateway - <$> x .@ "attachmentSet" - <*> x .@ "internetGatewayId" - <*> x .@ "tagSet" - -instance ToQuery InternetGateway where - toQuery InternetGateway{..} = mconcat - [ "attachmentSet" =? _igAttachments - , "internetGatewayId" =? _igInternetGatewayId - , "tagSet" =? _igTags - ] - -data VolumeStatusName - = IoEnabled -- ^ io-enabled - | IoPerformance -- ^ io-performance - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable VolumeStatusName - -instance FromText VolumeStatusName where - parser = match "io-enabled" IoEnabled - <|> match "io-performance" IoPerformance - -instance ToText VolumeStatusName where - toText = \case - IoEnabled -> "io-enabled" - IoPerformance -> "io-performance" - -instance ToByteString VolumeStatusName -instance ToHeader VolumeStatusName -instance ToQuery VolumeStatusName - -instance FromXML VolumeStatusName where - parseXML = parseXMLText "VolumeStatusName" - - -data VolumeAttributeName - = AutoEnableIO -- ^ autoEnableIO - | ProductCodes -- ^ productCodes - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable VolumeAttributeName - -instance FromText VolumeAttributeName where - parser = match "autoEnableIO" AutoEnableIO - <|> match "productCodes" ProductCodes - -instance ToText VolumeAttributeName where - toText = \case - AutoEnableIO -> "autoEnableIO" - ProductCodes -> "productCodes" - -instance ToByteString VolumeAttributeName -instance ToHeader VolumeAttributeName -instance ToQuery VolumeAttributeName - -instance FromXML VolumeAttributeName where - parseXML = parseXMLText "VolumeAttributeName" - - -data ImportInstanceTaskDetails = ImportInstanceTaskDetails - { _iitdDescription :: Maybe Text - , _iitdInstanceId :: Maybe Text - , _iitdPlatform :: Maybe PlatformValues - , _iitdVolumes :: List "item" ImportInstanceVolumeDetailItem - } deriving (Eq, Show) - --- | 'ImportInstanceTaskDetails' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'iitdDescription' @::@ 'Maybe' 'Text' --- --- * 'iitdInstanceId' @::@ 'Maybe' 'Text' --- --- * 'iitdPlatform' @::@ 'Maybe' 'PlatformValues' --- --- * 'iitdVolumes' @::@ ['ImportInstanceVolumeDetailItem'] --- -importInstanceTaskDetails :: ImportInstanceTaskDetails -importInstanceTaskDetails = ImportInstanceTaskDetails - { _iitdVolumes = mempty - , _iitdInstanceId = Nothing - , _iitdPlatform = Nothing - , _iitdDescription = Nothing - } - -iitdDescription :: Lens' ImportInstanceTaskDetails (Maybe Text) -iitdDescription = lens _iitdDescription (\s a -> s { _iitdDescription = a }) - -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 }) - -iitdVolumes :: Lens' ImportInstanceTaskDetails [ImportInstanceVolumeDetailItem] -iitdVolumes = lens _iitdVolumes (\s a -> s { _iitdVolumes = a }) . _List - -instance FromXML ImportInstanceTaskDetails where - parseXML x = ImportInstanceTaskDetails - <$> x .@? "description" - <*> x .@? "instanceId" - <*> x .@? "platform" - <*> x .@ "volumes" - -instance ToQuery ImportInstanceTaskDetails where - toQuery ImportInstanceTaskDetails{..} = mconcat - [ "description" =? _iitdDescription - , "instanceId" =? _iitdInstanceId - , "platform" =? _iitdPlatform - , "volumes" =? _iitdVolumes - ] - -data PlacementGroup = PlacementGroup - { _pgGroupName :: Maybe Text - , _pgState :: Maybe PlacementGroupState - , _pgStrategy :: Maybe PlacementStrategy - } deriving (Eq, Show) - --- | 'PlacementGroup' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'pgGroupName' @::@ 'Maybe' 'Text' --- --- * 'pgState' @::@ 'Maybe' 'PlacementGroupState' --- --- * 'pgStrategy' @::@ 'Maybe' 'PlacementStrategy' --- -placementGroup :: PlacementGroup -placementGroup = PlacementGroup - { _pgGroupName = Nothing - , _pgStrategy = Nothing - , _pgState = Nothing - } - --- | The name of the placement group. -pgGroupName :: Lens' PlacementGroup (Maybe Text) -pgGroupName = lens _pgGroupName (\s a -> s { _pgGroupName = a }) - --- | 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 }) - -instance FromXML PlacementGroup where - parseXML x = PlacementGroup - <$> x .@? "groupName" - <*> x .@? "state" - <*> x .@? "strategy" - -instance ToQuery PlacementGroup where - toQuery PlacementGroup{..} = mconcat - [ "groupName" =? _pgGroupName - , "state" =? _pgState - , "strategy" =? _pgStrategy - ] - -data ProductCode = ProductCode - { _pcProductCodeId :: Maybe Text - , _pcProductCodeType :: Maybe ProductCodeValues - } deriving (Eq, Show) - --- | 'ProductCode' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'pcProductCodeId' @::@ 'Maybe' 'Text' --- --- * 'pcProductCodeType' @::@ 'Maybe' 'ProductCodeValues' --- -productCode :: ProductCode -productCode = ProductCode - { _pcProductCodeId = Nothing - , _pcProductCodeType = Nothing - } - --- | The product code. -pcProductCodeId :: Lens' ProductCode (Maybe Text) -pcProductCodeId = lens _pcProductCodeId (\s a -> s { _pcProductCodeId = a }) - --- | The type of product code. -pcProductCodeType :: Lens' ProductCode (Maybe ProductCodeValues) -pcProductCodeType = - lens _pcProductCodeType (\s a -> s { _pcProductCodeType = a }) - -instance FromXML ProductCode where - parseXML x = ProductCode - <$> x .@? "productCode" - <*> x .@? "type" - -instance ToQuery ProductCode where - toQuery ProductCode{..} = mconcat - [ "productCode" =? _pcProductCodeId - , "type" =? _pcProductCodeType - ] - -data ListingStatus - = ListingStatusActive -- ^ active - | ListingStatusCancelled -- ^ cancelled - | ListingStatusClosed -- ^ closed - | ListingStatusPending -- ^ pending - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable ListingStatus - -instance FromText ListingStatus where - parser = match "active" ListingStatusActive - <|> match "cancelled" ListingStatusCancelled - <|> match "closed" ListingStatusClosed - <|> match "pending" ListingStatusPending - -instance ToText ListingStatus where - toText = \case - ListingStatusActive -> "active" - ListingStatusCancelled -> "cancelled" - ListingStatusClosed -> "closed" - ListingStatusPending -> "pending" - -instance ToByteString ListingStatus -instance ToHeader ListingStatus -instance ToQuery ListingStatus - -instance FromXML ListingStatus where - parseXML = parseXMLText "ListingStatus" - - -newtype IpRange = IpRange - { _irCidrIp :: Text - } deriving (Eq, Ord, Show, Monoid, IsString) - --- | 'IpRange' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'irCidrIp' @::@ 'Text' --- -ipRange :: Text -- ^ 'irCidrIp' - -> IpRange -ipRange p1 = IpRange - { _irCidrIp = p1 - } - --- | The CIDR range. You can either specify a CIDR range or a source security --- group, not both. -irCidrIp :: Lens' IpRange Text -irCidrIp = lens _irCidrIp (\s a -> s { _irCidrIp = a }) - -instance FromXML IpRange where - parseXML x = IpRange - <$> x .@ "cidrIp" - -instance ToQuery IpRange where - toQuery IpRange{..} = mconcat - [ "cidrIp" =? _irCidrIp - ] - -data VolumeStatusInfoStatus - = VSISImpaired -- ^ impaired - | VSISInsufficientData -- ^ insufficient-data - | VSISOk -- ^ ok - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable VolumeStatusInfoStatus - -instance FromText VolumeStatusInfoStatus where - parser = match "impaired" VSISImpaired - <|> match "insufficient-data" VSISInsufficientData - <|> match "ok" VSISOk - -instance ToText VolumeStatusInfoStatus where - toText = \case - VSISImpaired -> "impaired" - VSISInsufficientData -> "insufficient-data" - VSISOk -> "ok" - -instance ToByteString VolumeStatusInfoStatus -instance ToHeader VolumeStatusInfoStatus -instance ToQuery VolumeStatusInfoStatus - -instance FromXML VolumeStatusInfoStatus where - parseXML = parseXMLText "VolumeStatusInfoStatus" - - -newtype AccountAttributeValue = AccountAttributeValue - { _aavAttributeValue :: Maybe Text - } deriving (Eq, Ord, Show, Monoid) - --- | 'AccountAttributeValue' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'aavAttributeValue' @::@ 'Maybe' 'Text' --- -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 ToQuery AccountAttributeValue where - toQuery AccountAttributeValue{..} = mconcat - [ "attributeValue" =? _aavAttributeValue - ] - -data RIProductDescription - = RIPDLinuxUNIX -- ^ Linux/UNIX - | RIPDLinuxUNIXAmazonVPC -- ^ Linux/UNIX (Amazon VPC) - | RIPDWindows -- ^ Windows - | RIPDWindowsAmazonVPC -- ^ Windows (Amazon VPC) - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable RIProductDescription - -instance FromText RIProductDescription where - parser = match "Linux/UNIX" RIPDLinuxUNIX - <|> match "Linux/UNIX (Amazon VPC)" RIPDLinuxUNIXAmazonVPC - <|> match "Windows" RIPDWindows - <|> match "Windows (Amazon VPC)" RIPDWindowsAmazonVPC - -instance ToText RIProductDescription where - toText = \case - RIPDLinuxUNIX -> "Linux/UNIX" - RIPDLinuxUNIXAmazonVPC -> "Linux/UNIX (Amazon VPC)" - RIPDWindows -> "Windows" - RIPDWindowsAmazonVPC -> "Windows (Amazon VPC)" - -instance ToByteString RIProductDescription -instance ToHeader RIProductDescription -instance ToQuery RIProductDescription - -instance FromXML RIProductDescription where - parseXML = parseXMLText "RIProductDescription" - - -data ReservedInstancesOffering = ReservedInstancesOffering - { _rioAvailabilityZone :: Maybe Text - , _rioCurrencyCode :: Maybe CurrencyCodeValues - , _rioDuration :: Maybe Integer - , _rioFixedPrice :: Maybe Double - , _rioInstanceTenancy :: Maybe Tenancy - , _rioInstanceType :: Maybe InstanceType - , _rioMarketplace :: Maybe Bool - , _rioOfferingType :: Maybe OfferingTypeValues - , _rioPricingDetails :: List "item" PricingDetail - , _rioProductDescription :: Maybe RIProductDescription - , _rioRecurringCharges :: List "item" RecurringCharge - , _rioReservedInstancesOfferingId :: Maybe Text - , _rioUsagePrice :: Maybe Double - } deriving (Eq, Show) - --- | 'ReservedInstancesOffering' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'rioAvailabilityZone' @::@ 'Maybe' 'Text' --- --- * 'rioCurrencyCode' @::@ 'Maybe' 'CurrencyCodeValues' --- --- * 'rioDuration' @::@ 'Maybe' 'Integer' --- --- * 'rioFixedPrice' @::@ 'Maybe' 'Double' --- --- * 'rioInstanceTenancy' @::@ 'Maybe' 'Tenancy' --- --- * 'rioInstanceType' @::@ 'Maybe' 'InstanceType' --- --- * 'rioMarketplace' @::@ 'Maybe' 'Bool' --- --- * 'rioOfferingType' @::@ 'Maybe' 'OfferingTypeValues' --- --- * 'rioPricingDetails' @::@ ['PricingDetail'] --- --- * 'rioProductDescription' @::@ 'Maybe' 'RIProductDescription' --- --- * 'rioRecurringCharges' @::@ ['RecurringCharge'] --- --- * 'rioReservedInstancesOfferingId' @::@ 'Maybe' 'Text' --- --- * 'rioUsagePrice' @::@ 'Maybe' 'Double' --- -reservedInstancesOffering :: ReservedInstancesOffering -reservedInstancesOffering = ReservedInstancesOffering - { _rioReservedInstancesOfferingId = Nothing - , _rioInstanceType = Nothing - , _rioAvailabilityZone = Nothing - , _rioDuration = Nothing - , _rioUsagePrice = Nothing - , _rioFixedPrice = Nothing - , _rioProductDescription = Nothing - , _rioInstanceTenancy = Nothing - , _rioCurrencyCode = Nothing - , _rioOfferingType = Nothing - , _rioRecurringCharges = mempty - , _rioMarketplace = Nothing - , _rioPricingDetails = mempty - } - --- | 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 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 duration of the Reserved Instance, in seconds. -rioDuration :: Lens' ReservedInstancesOffering (Maybe Integer) -rioDuration = lens _rioDuration (\s a -> s { _rioDuration = 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 reserved instance. -rioInstanceTenancy :: Lens' ReservedInstancesOffering (Maybe Tenancy) -rioInstanceTenancy = - lens _rioInstanceTenancy (\s a -> s { _rioInstanceTenancy = 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 }) - --- | 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 Reserved Instance offering type. -rioOfferingType :: Lens' ReservedInstancesOffering (Maybe OfferingTypeValues) -rioOfferingType = lens _rioOfferingType (\s a -> s { _rioOfferingType = a }) - --- | The pricing details of the Reserved Instance offering. -rioPricingDetails :: Lens' ReservedInstancesOffering [PricingDetail] -rioPricingDetails = - lens _rioPricingDetails (\s a -> s { _rioPricingDetails = a }) - . _List - --- | The Reserved Instance description. -rioProductDescription :: Lens' ReservedInstancesOffering (Maybe RIProductDescription) -rioProductDescription = - lens _rioProductDescription (\s a -> s { _rioProductDescription = a }) - --- | The recurring charge tag assigned to the resource. -rioRecurringCharges :: Lens' ReservedInstancesOffering [RecurringCharge] -rioRecurringCharges = - lens _rioRecurringCharges (\s a -> s { _rioRecurringCharges = a }) - . _List - --- | The ID of the Reserved Instance offering. -rioReservedInstancesOfferingId :: Lens' ReservedInstancesOffering (Maybe Text) -rioReservedInstancesOfferingId = - lens _rioReservedInstancesOfferingId - (\s a -> s { _rioReservedInstancesOfferingId = a }) - --- | The usage price of the Reserved Instance, per hour. -rioUsagePrice :: Lens' ReservedInstancesOffering (Maybe Double) -rioUsagePrice = lens _rioUsagePrice (\s a -> s { _rioUsagePrice = a }) - -instance FromXML ReservedInstancesOffering where - parseXML x = ReservedInstancesOffering - <$> x .@? "availabilityZone" - <*> x .@? "currencyCode" - <*> x .@? "duration" - <*> x .@? "fixedPrice" - <*> x .@? "instanceTenancy" - <*> x .@? "instanceType" - <*> x .@? "marketplace" - <*> x .@? "offeringType" - <*> x .@ "pricingDetailsSet" - <*> x .@? "productDescription" - <*> x .@ "recurringCharges" - <*> x .@? "reservedInstancesOfferingId" - <*> x .@? "usagePrice" - -instance ToQuery ReservedInstancesOffering where - toQuery ReservedInstancesOffering{..} = mconcat - [ "availabilityZone" =? _rioAvailabilityZone - , "currencyCode" =? _rioCurrencyCode - , "duration" =? _rioDuration - , "fixedPrice" =? _rioFixedPrice - , "instanceTenancy" =? _rioInstanceTenancy - , "instanceType" =? _rioInstanceType - , "marketplace" =? _rioMarketplace - , "offeringType" =? _rioOfferingType - , "pricingDetailsSet" =? _rioPricingDetails - , "productDescription" =? _rioProductDescription - , "recurringCharges" =? _rioRecurringCharges - , "reservedInstancesOfferingId" =? _rioReservedInstancesOfferingId - , "usagePrice" =? _rioUsagePrice - ] - -data ReservedInstances = ReservedInstances - { _ri1AvailabilityZone :: Maybe Text - , _ri1CurrencyCode :: Maybe CurrencyCodeValues - , _ri1Duration :: Maybe Integer - , _ri1End :: Maybe RFC822 - , _ri1FixedPrice :: Maybe Double - , _ri1InstanceCount :: Maybe Int - , _ri1InstanceTenancy :: Maybe Tenancy - , _ri1InstanceType :: Maybe InstanceType - , _ri1OfferingType :: Maybe OfferingTypeValues - , _ri1ProductDescription :: Maybe RIProductDescription - , _ri1RecurringCharges :: List "item" RecurringCharge - , _ri1ReservedInstancesId :: Maybe Text - , _ri1Start :: Maybe RFC822 - , _ri1State :: Maybe ReservedInstanceState - , _ri1Tags :: List "item" Tag - , _ri1UsagePrice :: Maybe Double - } deriving (Eq, Show) - --- | 'ReservedInstances' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'ri1AvailabilityZone' @::@ 'Maybe' 'Text' --- --- * 'ri1CurrencyCode' @::@ 'Maybe' 'CurrencyCodeValues' --- --- * 'ri1Duration' @::@ 'Maybe' 'Integer' --- --- * 'ri1End' @::@ 'Maybe' 'UTCTime' --- --- * 'ri1FixedPrice' @::@ 'Maybe' 'Double' --- --- * 'ri1InstanceCount' @::@ 'Maybe' 'Int' --- --- * 'ri1InstanceTenancy' @::@ 'Maybe' 'Tenancy' --- --- * 'ri1InstanceType' @::@ 'Maybe' 'InstanceType' --- --- * 'ri1OfferingType' @::@ 'Maybe' 'OfferingTypeValues' --- --- * 'ri1ProductDescription' @::@ 'Maybe' 'RIProductDescription' --- --- * 'ri1RecurringCharges' @::@ ['RecurringCharge'] --- --- * 'ri1ReservedInstancesId' @::@ 'Maybe' 'Text' --- --- * 'ri1Start' @::@ 'Maybe' 'UTCTime' --- --- * 'ri1State' @::@ 'Maybe' 'ReservedInstanceState' --- --- * 'ri1Tags' @::@ ['Tag'] --- --- * 'ri1UsagePrice' @::@ 'Maybe' 'Double' --- -reservedInstances :: ReservedInstances -reservedInstances = ReservedInstances - { _ri1ReservedInstancesId = Nothing - , _ri1InstanceType = Nothing - , _ri1AvailabilityZone = Nothing - , _ri1Start = Nothing - , _ri1End = Nothing - , _ri1Duration = Nothing - , _ri1UsagePrice = Nothing - , _ri1FixedPrice = Nothing - , _ri1InstanceCount = Nothing - , _ri1ProductDescription = Nothing - , _ri1State = Nothing - , _ri1Tags = mempty - , _ri1InstanceTenancy = Nothing - , _ri1CurrencyCode = Nothing - , _ri1OfferingType = Nothing - , _ri1RecurringCharges = mempty - } - --- | The Availability Zone in which the Reserved Instance can be used. -ri1AvailabilityZone :: Lens' ReservedInstances (Maybe Text) -ri1AvailabilityZone = - lens _ri1AvailabilityZone (\s a -> s { _ri1AvailabilityZone = 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. -ri1CurrencyCode :: Lens' ReservedInstances (Maybe CurrencyCodeValues) -ri1CurrencyCode = lens _ri1CurrencyCode (\s a -> s { _ri1CurrencyCode = a }) - --- | The duration of the Reserved Instance, in seconds. -ri1Duration :: Lens' ReservedInstances (Maybe Integer) -ri1Duration = lens _ri1Duration (\s a -> s { _ri1Duration = a }) - --- | The time when the Reserved Instance expires. -ri1End :: Lens' ReservedInstances (Maybe UTCTime) -ri1End = lens _ri1End (\s a -> s { _ri1End = a }) . mapping _Time - --- | The purchase price of the Reserved Instance. -ri1FixedPrice :: Lens' ReservedInstances (Maybe Double) -ri1FixedPrice = lens _ri1FixedPrice (\s a -> s { _ri1FixedPrice = a }) - --- | The number of Reserved Instances purchased. -ri1InstanceCount :: Lens' ReservedInstances (Maybe Int) -ri1InstanceCount = lens _ri1InstanceCount (\s a -> s { _ri1InstanceCount = a }) - --- | The tenancy of the reserved instance. -ri1InstanceTenancy :: Lens' ReservedInstances (Maybe Tenancy) -ri1InstanceTenancy = - lens _ri1InstanceTenancy (\s a -> s { _ri1InstanceTenancy = a }) - --- | The instance type on which the Reserved Instance can be used. -ri1InstanceType :: Lens' ReservedInstances (Maybe InstanceType) -ri1InstanceType = lens _ri1InstanceType (\s a -> s { _ri1InstanceType = a }) - --- | The Reserved Instance offering type. -ri1OfferingType :: Lens' ReservedInstances (Maybe OfferingTypeValues) -ri1OfferingType = lens _ri1OfferingType (\s a -> s { _ri1OfferingType = a }) - --- | The Reserved Instance description. -ri1ProductDescription :: Lens' ReservedInstances (Maybe RIProductDescription) -ri1ProductDescription = - lens _ri1ProductDescription (\s a -> s { _ri1ProductDescription = a }) - --- | The recurring charge tag assigned to the resource. -ri1RecurringCharges :: Lens' ReservedInstances [RecurringCharge] -ri1RecurringCharges = - lens _ri1RecurringCharges (\s a -> s { _ri1RecurringCharges = a }) - . _List - --- | The ID of the Reserved Instance. -ri1ReservedInstancesId :: Lens' ReservedInstances (Maybe Text) -ri1ReservedInstancesId = - lens _ri1ReservedInstancesId (\s a -> s { _ri1ReservedInstancesId = a }) - --- | The date and time the Reserved Instance started. -ri1Start :: Lens' ReservedInstances (Maybe UTCTime) -ri1Start = lens _ri1Start (\s a -> s { _ri1Start = a }) . mapping _Time - --- | The state of the Reserved Instance purchase. -ri1State :: Lens' ReservedInstances (Maybe ReservedInstanceState) -ri1State = lens _ri1State (\s a -> s { _ri1State = a }) - --- | Any tags assigned to the resource. -ri1Tags :: Lens' ReservedInstances [Tag] -ri1Tags = lens _ri1Tags (\s a -> s { _ri1Tags = a }) . _List - --- | The usage price of the Reserved Instance, per hour. -ri1UsagePrice :: Lens' ReservedInstances (Maybe Double) -ri1UsagePrice = lens _ri1UsagePrice (\s a -> s { _ri1UsagePrice = a }) - -instance FromXML ReservedInstances where - parseXML x = ReservedInstances - <$> x .@? "availabilityZone" - <*> x .@? "currencyCode" - <*> x .@? "duration" - <*> x .@? "end" - <*> x .@? "fixedPrice" - <*> x .@? "instanceCount" - <*> x .@? "instanceTenancy" - <*> x .@? "instanceType" - <*> x .@? "offeringType" - <*> x .@? "productDescription" - <*> x .@ "recurringCharges" - <*> x .@? "reservedInstancesId" - <*> x .@? "start" - <*> x .@? "state" - <*> x .@ "tagSet" - <*> x .@? "usagePrice" - -instance ToQuery ReservedInstances where - toQuery ReservedInstances{..} = mconcat - [ "availabilityZone" =? _ri1AvailabilityZone - , "currencyCode" =? _ri1CurrencyCode - , "duration" =? _ri1Duration - , "end" =? _ri1End - , "fixedPrice" =? _ri1FixedPrice - , "instanceCount" =? _ri1InstanceCount - , "instanceTenancy" =? _ri1InstanceTenancy - , "instanceType" =? _ri1InstanceType - , "offeringType" =? _ri1OfferingType - , "productDescription" =? _ri1ProductDescription - , "recurringCharges" =? _ri1RecurringCharges - , "reservedInstancesId" =? _ri1ReservedInstancesId - , "start" =? _ri1Start - , "state" =? _ri1State - , "tagSet" =? _ri1Tags - , "usagePrice" =? _ri1UsagePrice - ] - -data DatafeedSubscriptionState - = DSSActive -- ^ Active - | DSSInactive -- ^ Inactive - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable DatafeedSubscriptionState - -instance FromText DatafeedSubscriptionState where - parser = match "Active" DSSActive - <|> match "Inactive" DSSInactive - -instance ToText DatafeedSubscriptionState where - toText = \case - DSSActive -> "Active" - DSSInactive -> "Inactive" - -instance ToByteString DatafeedSubscriptionState -instance ToHeader DatafeedSubscriptionState -instance ToQuery DatafeedSubscriptionState - -instance FromXML DatafeedSubscriptionState where - parseXML = parseXMLText "DatafeedSubscriptionState" - - -data ExportTaskState - = ETSActive -- ^ active - | ETSCancelled -- ^ cancelled - | ETSCancelling -- ^ cancelling - | ETSCompleted -- ^ completed - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable ExportTaskState - -instance FromText ExportTaskState where - parser = match "active" ETSActive - <|> match "cancelled" ETSCancelled - <|> match "cancelling" ETSCancelling - <|> match "completed" ETSCompleted - -instance ToText ExportTaskState where - toText = \case - ETSActive -> "active" - ETSCancelled -> "cancelled" - ETSCancelling -> "cancelling" - ETSCompleted -> "completed" - -instance ToByteString ExportTaskState -instance ToHeader ExportTaskState -instance ToQuery ExportTaskState - -instance FromXML ExportTaskState where - parseXML = parseXMLText "ExportTaskState" - - -data ProductCodeValues - = Devpay -- ^ devpay - | Marketplace -- ^ marketplace - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable ProductCodeValues - -instance FromText ProductCodeValues where - parser = match "devpay" Devpay - <|> match "marketplace" Marketplace - -instance ToText ProductCodeValues where - toText = \case - Devpay -> "devpay" - Marketplace -> "marketplace" - -instance ToByteString ProductCodeValues -instance ToHeader ProductCodeValues -instance ToQuery ProductCodeValues - -instance FromXML ProductCodeValues where - parseXML = parseXMLText "ProductCodeValues" - - -data VpnConnection = VpnConnection - { _vcCustomerGatewayConfiguration :: Maybe Text - , _vcCustomerGatewayId :: Maybe Text - , _vcOptions :: Maybe VpnConnectionOptions - , _vcRoutes :: List "item" VpnStaticRoute - , _vcState :: Maybe VpnState - , _vcTags :: List "item" Tag - , _vcType :: Maybe GatewayType - , _vcVgwTelemetry :: List "item" VgwTelemetry - , _vcVpnConnectionId :: Maybe Text - , _vcVpnGatewayId :: Maybe Text - } deriving (Eq, Show) - --- | 'VpnConnection' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'vcCustomerGatewayConfiguration' @::@ 'Maybe' 'Text' --- --- * 'vcCustomerGatewayId' @::@ 'Maybe' 'Text' --- --- * 'vcOptions' @::@ 'Maybe' 'VpnConnectionOptions' --- --- * 'vcRoutes' @::@ ['VpnStaticRoute'] --- --- * 'vcState' @::@ 'Maybe' 'VpnState' --- --- * 'vcTags' @::@ ['Tag'] --- --- * 'vcType' @::@ 'Maybe' 'GatewayType' --- --- * 'vcVgwTelemetry' @::@ ['VgwTelemetry'] --- --- * 'vcVpnConnectionId' @::@ 'Maybe' 'Text' --- --- * 'vcVpnGatewayId' @::@ 'Maybe' 'Text' --- -vpnConnection :: VpnConnection -vpnConnection = VpnConnection - { _vcVpnConnectionId = Nothing - , _vcState = Nothing - , _vcCustomerGatewayConfiguration = Nothing - , _vcType = Nothing - , _vcCustomerGatewayId = Nothing - , _vcVpnGatewayId = Nothing - , _vcTags = mempty - , _vcVgwTelemetry = mempty - , _vcOptions = Nothing - , _vcRoutes = mempty - } - --- | 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 ID of the customer gateway at your end of the VPN connection. -vcCustomerGatewayId :: Lens' VpnConnection (Maybe Text) -vcCustomerGatewayId = - lens _vcCustomerGatewayId (\s a -> s { _vcCustomerGatewayId = a }) - --- | The VPN connection options. -vcOptions :: Lens' VpnConnection (Maybe VpnConnectionOptions) -vcOptions = lens _vcOptions (\s a -> s { _vcOptions = a }) - --- | The static routes associated with the VPN connection. -vcRoutes :: Lens' VpnConnection [VpnStaticRoute] -vcRoutes = lens _vcRoutes (\s a -> s { _vcRoutes = a }) . _List - --- | The current state of the VPN connection. -vcState :: Lens' VpnConnection (Maybe VpnState) -vcState = lens _vcState (\s a -> s { _vcState = a }) - --- | Any tags assigned to the VPN connection. -vcTags :: Lens' VpnConnection [Tag] -vcTags = lens _vcTags (\s a -> s { _vcTags = a }) . _List - --- | The type of VPN connection. -vcType :: Lens' VpnConnection (Maybe GatewayType) -vcType = lens _vcType (\s a -> s { _vcType = a }) - --- | Information about the VPN tunnel. -vcVgwTelemetry :: Lens' VpnConnection [VgwTelemetry] -vcVgwTelemetry = lens _vcVgwTelemetry (\s a -> s { _vcVgwTelemetry = a }) . _List - --- | The ID of the VPN connection. -vcVpnConnectionId :: Lens' VpnConnection (Maybe Text) -vcVpnConnectionId = - lens _vcVpnConnectionId (\s a -> s { _vcVpnConnectionId = a }) - --- | 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 }) - -instance FromXML VpnConnection where - parseXML x = VpnConnection - <$> x .@? "customerGatewayConfiguration" - <*> x .@? "customerGatewayId" - <*> x .@? "options" - <*> x .@ "routes" - <*> x .@? "state" - <*> x .@ "tagSet" - <*> x .@? "type" - <*> x .@ "vgwTelemetry" - <*> x .@? "vpnConnectionId" - <*> x .@? "vpnGatewayId" - -instance ToQuery VpnConnection where - toQuery VpnConnection{..} = mconcat - [ "customerGatewayConfiguration" =? _vcCustomerGatewayConfiguration - , "customerGatewayId" =? _vcCustomerGatewayId - , "options" =? _vcOptions - , "routes" =? _vcRoutes - , "state" =? _vcState - , "tagSet" =? _vcTags - , "type" =? _vcType - , "vgwTelemetry" =? _vcVgwTelemetry - , "vpnConnectionId" =? _vcVpnConnectionId - , "vpnGatewayId" =? _vcVpnGatewayId - ] - -data InstanceState = InstanceState - { _isCode :: Int - , _isName :: InstanceStateName - } deriving (Eq, Show) - --- | 'InstanceState' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'isCode' @::@ 'Int' --- --- * 'isName' @::@ 'InstanceStateName' --- -instanceState :: Int -- ^ 'isCode' - -> InstanceStateName -- ^ 'isName' - -> InstanceState -instanceState p1 p2 = InstanceState - { _isCode = p1 - , _isName = p2 - } - --- | 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 }) - --- | The current state of the instance. -isName :: Lens' InstanceState InstanceStateName -isName = lens _isName (\s a -> s { _isName = a }) - -instance FromXML InstanceState where - parseXML x = InstanceState - <$> x .@ "code" - <*> x .@ "name" - -instance ToQuery InstanceState where - toQuery InstanceState{..} = mconcat - [ "code" =? _isCode - , "name" =? _isName - ] - -data Placement = Placement - { _pAvailabilityZone :: Maybe Text - , _pGroupName :: Maybe Text - , _pTenancy :: Maybe Tenancy - } deriving (Eq, Show) - --- | 'Placement' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'pAvailabilityZone' @::@ 'Maybe' 'Text' --- --- * 'pGroupName' @::@ 'Maybe' 'Text' --- --- * 'pTenancy' @::@ 'Maybe' 'Tenancy' --- -placement :: Placement -placement = Placement - { _pAvailabilityZone = Nothing - , _pGroupName = Nothing - , _pTenancy = Nothing - } - --- | The Availability Zone of the instance. -pAvailabilityZone :: Lens' Placement (Maybe Text) -pAvailabilityZone = - lens _pAvailabilityZone (\s a -> s { _pAvailabilityZone = 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 }) - --- | 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. -pTenancy :: Lens' Placement (Maybe Tenancy) -pTenancy = lens _pTenancy (\s a -> s { _pTenancy = a }) - -instance FromXML Placement where - parseXML x = Placement - <$> x .@? "availabilityZone" - <*> x .@? "groupName" - <*> x .@? "tenancy" - -instance ToQuery Placement where - toQuery Placement{..} = mconcat - [ "availabilityZone" =? _pAvailabilityZone - , "groupName" =? _pGroupName - , "tenancy" =? _pTenancy - ] - -data EventCode - = InstanceReboot -- ^ instance-reboot - | InstanceRetirement -- ^ instance-retirement - | InstanceStop -- ^ instance-stop - | SystemMaintenance -- ^ system-maintenance - | SystemReboot -- ^ system-reboot - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable EventCode - -instance FromText EventCode where - parser = match "instance-reboot" InstanceReboot - <|> match "instance-retirement" InstanceRetirement - <|> match "instance-stop" InstanceStop - <|> match "system-maintenance" SystemMaintenance - <|> match "system-reboot" SystemReboot - -instance ToText EventCode where - toText = \case - InstanceReboot -> "instance-reboot" - InstanceRetirement -> "instance-retirement" - InstanceStop -> "instance-stop" - SystemMaintenance -> "system-maintenance" - SystemReboot -> "system-reboot" - -instance ToByteString EventCode -instance ToHeader EventCode -instance ToQuery EventCode - -instance FromXML EventCode where - parseXML = parseXMLText "EventCode" - - -data SpotInstanceType - = OneTime -- ^ one-time - | Persistent -- ^ persistent - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable SpotInstanceType - -instance FromText SpotInstanceType where - parser = match "one-time" OneTime - <|> match "persistent" Persistent - -instance ToText SpotInstanceType where - toText = \case - OneTime -> "one-time" - Persistent -> "persistent" - -instance ToByteString SpotInstanceType -instance ToHeader SpotInstanceType -instance ToQuery SpotInstanceType - -instance FromXML SpotInstanceType where - parseXML = parseXMLText "SpotInstanceType" - - -data VpcPeeringConnection = VpcPeeringConnection - { _vpc1AccepterVpcInfo :: Maybe VpcPeeringConnectionVpcInfo - , _vpc1ExpirationTime :: Maybe RFC822 - , _vpc1RequesterVpcInfo :: Maybe VpcPeeringConnectionVpcInfo - , _vpc1Status :: Maybe VpcPeeringConnectionStateReason - , _vpc1Tags :: List "item" Tag - , _vpc1VpcPeeringConnectionId :: Maybe Text - } deriving (Eq, Show) - --- | 'VpcPeeringConnection' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'vpc1AccepterVpcInfo' @::@ 'Maybe' 'VpcPeeringConnectionVpcInfo' --- --- * 'vpc1ExpirationTime' @::@ 'Maybe' 'UTCTime' --- --- * 'vpc1RequesterVpcInfo' @::@ 'Maybe' 'VpcPeeringConnectionVpcInfo' --- --- * 'vpc1Status' @::@ 'Maybe' 'VpcPeeringConnectionStateReason' --- --- * 'vpc1Tags' @::@ ['Tag'] --- --- * 'vpc1VpcPeeringConnectionId' @::@ 'Maybe' 'Text' --- -vpcPeeringConnection :: VpcPeeringConnection -vpcPeeringConnection = VpcPeeringConnection - { _vpc1AccepterVpcInfo = Nothing - , _vpc1ExpirationTime = Nothing - , _vpc1RequesterVpcInfo = Nothing - , _vpc1Status = Nothing - , _vpc1Tags = mempty - , _vpc1VpcPeeringConnectionId = Nothing - } - --- | The information of the peer VPC. -vpc1AccepterVpcInfo :: Lens' VpcPeeringConnection (Maybe VpcPeeringConnectionVpcInfo) -vpc1AccepterVpcInfo = - lens _vpc1AccepterVpcInfo (\s a -> s { _vpc1AccepterVpcInfo = a }) - --- | The time that an unaccepted VPC peering connection will expire. -vpc1ExpirationTime :: Lens' VpcPeeringConnection (Maybe UTCTime) -vpc1ExpirationTime = - lens _vpc1ExpirationTime (\s a -> s { _vpc1ExpirationTime = a }) - . mapping _Time - --- | The information of the requester VPC. -vpc1RequesterVpcInfo :: Lens' VpcPeeringConnection (Maybe VpcPeeringConnectionVpcInfo) -vpc1RequesterVpcInfo = - lens _vpc1RequesterVpcInfo (\s a -> s { _vpc1RequesterVpcInfo = a }) - --- | The status of the VPC peering connection. -vpc1Status :: Lens' VpcPeeringConnection (Maybe VpcPeeringConnectionStateReason) -vpc1Status = lens _vpc1Status (\s a -> s { _vpc1Status = a }) - --- | Any tags assigned to the resource. -vpc1Tags :: Lens' VpcPeeringConnection [Tag] -vpc1Tags = lens _vpc1Tags (\s a -> s { _vpc1Tags = a }) . _List - --- | The ID of the VPC peering connection. -vpc1VpcPeeringConnectionId :: Lens' VpcPeeringConnection (Maybe Text) -vpc1VpcPeeringConnectionId = - lens _vpc1VpcPeeringConnectionId - (\s a -> s { _vpc1VpcPeeringConnectionId = a }) - -instance FromXML VpcPeeringConnection where - parseXML x = VpcPeeringConnection - <$> x .@? "accepterVpcInfo" - <*> x .@? "expirationTime" - <*> x .@? "requesterVpcInfo" - <*> x .@? "status" - <*> x .@ "tagSet" - <*> x .@? "vpcPeeringConnectionId" - -instance ToQuery VpcPeeringConnection where - toQuery VpcPeeringConnection{..} = mconcat - [ "accepterVpcInfo" =? _vpc1AccepterVpcInfo - , "expirationTime" =? _vpc1ExpirationTime - , "requesterVpcInfo" =? _vpc1RequesterVpcInfo - , "status" =? _vpc1Status - , "tagSet" =? _vpc1Tags - , "vpcPeeringConnectionId" =? _vpc1VpcPeeringConnectionId - ] - -data S3Storage = S3Storage - { _ssAWSAccessKeyId :: Maybe Text - , _ssBucket :: Maybe Text - , _ssPrefix :: Maybe Text - , _ssUploadPolicy :: Maybe Base64 - , _ssUploadPolicySignature :: Maybe Text - } deriving (Eq, Show) - --- | 'S3Storage' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'ssAWSAccessKeyId' @::@ 'Maybe' 'Text' --- --- * 'ssBucket' @::@ 'Maybe' 'Text' --- --- * 'ssPrefix' @::@ 'Maybe' 'Text' --- --- * 'ssUploadPolicy' @::@ 'Maybe' 'Base64' --- --- * 'ssUploadPolicySignature' @::@ 'Maybe' 'Text' --- -s3Storage :: S3Storage -s3Storage = S3Storage - { _ssBucket = Nothing - , _ssPrefix = Nothing - , _ssAWSAccessKeyId = Nothing - , _ssUploadPolicy = Nothing - , _ssUploadPolicySignature = Nothing - } - --- | 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 Best Practices --- for Managing AWS Access Keys. -ssAWSAccessKeyId :: Lens' S3Storage (Maybe Text) -ssAWSAccessKeyId = lens _ssAWSAccessKeyId (\s a -> s { _ssAWSAccessKeyId = 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. -ssBucket :: Lens' S3Storage (Maybe Text) -ssBucket = lens _ssBucket (\s a -> s { _ssBucket = a }) - --- | The beginning of the file name of the AMI. -ssPrefix :: Lens' S3Storage (Maybe Text) -ssPrefix = lens _ssPrefix (\s a -> s { _ssPrefix = a }) - --- | A Base64-encoded Amazon S3 upload policy that gives Amazon EC2 permission --- to upload items into Amazon S3 on your behalf. -ssUploadPolicy :: Lens' S3Storage (Maybe Base64) -ssUploadPolicy = lens _ssUploadPolicy (\s a -> s { _ssUploadPolicy = a }) - --- | The signature of the Base64 encoded JSON document. -ssUploadPolicySignature :: Lens' S3Storage (Maybe Text) -ssUploadPolicySignature = - lens _ssUploadPolicySignature (\s a -> s { _ssUploadPolicySignature = a }) - -instance FromXML S3Storage where - parseXML x = S3Storage - <$> x .@? "AWSAccessKeyId" - <*> x .@? "bucket" - <*> x .@? "prefix" - <*> x .@? "uploadPolicy" - <*> x .@? "uploadPolicySignature" - -instance ToQuery S3Storage where - toQuery S3Storage{..} = mconcat - [ "AWSAccessKeyId" =? _ssAWSAccessKeyId - , "bucket" =? _ssBucket - , "prefix" =? _ssPrefix - , "uploadPolicy" =? _ssUploadPolicy - , "uploadPolicySignature" =? _ssUploadPolicySignature - ] - -data VgwTelemetry = VgwTelemetry - { _vtAcceptedRouteCount :: Maybe Int - , _vtLastStatusChange :: Maybe RFC822 - , _vtOutsideIpAddress :: Maybe Text - , _vtStatus :: Maybe TelemetryStatus - , _vtStatusMessage :: Maybe Text - } deriving (Eq, Show) - --- | 'VgwTelemetry' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'vtAcceptedRouteCount' @::@ 'Maybe' 'Int' --- --- * 'vtLastStatusChange' @::@ 'Maybe' 'UTCTime' --- --- * 'vtOutsideIpAddress' @::@ 'Maybe' 'Text' --- --- * 'vtStatus' @::@ 'Maybe' 'TelemetryStatus' --- --- * 'vtStatusMessage' @::@ 'Maybe' 'Text' --- -vgwTelemetry :: VgwTelemetry -vgwTelemetry = VgwTelemetry - { _vtOutsideIpAddress = Nothing - , _vtStatus = Nothing - , _vtLastStatusChange = Nothing - , _vtStatusMessage = Nothing - , _vtAcceptedRouteCount = Nothing - } - --- | The number of accepted routes. -vtAcceptedRouteCount :: Lens' VgwTelemetry (Maybe Int) -vtAcceptedRouteCount = - lens _vtAcceptedRouteCount (\s a -> s { _vtAcceptedRouteCount = 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 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 status of the VPN tunnel. -vtStatus :: Lens' VgwTelemetry (Maybe TelemetryStatus) -vtStatus = lens _vtStatus (\s a -> s { _vtStatus = 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 .@? "acceptedRouteCount" - <*> x .@? "lastStatusChange" - <*> x .@? "outsideIpAddress" - <*> x .@? "status" - <*> x .@? "statusMessage" - -instance ToQuery VgwTelemetry where - toQuery VgwTelemetry{..} = mconcat - [ "acceptedRouteCount" =? _vtAcceptedRouteCount - , "lastStatusChange" =? _vtLastStatusChange - , "outsideIpAddress" =? _vtOutsideIpAddress - , "status" =? _vtStatus - , "statusMessage" =? _vtStatusMessage - ] - -data VpnStaticRoute = VpnStaticRoute - { _vsrDestinationCidrBlock :: Maybe Text - , _vsrSource :: Maybe VpnStaticRouteSource - , _vsrState :: Maybe VpnState - } deriving (Eq, Show) - --- | 'VpnStaticRoute' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'vsrDestinationCidrBlock' @::@ 'Maybe' 'Text' --- --- * 'vsrSource' @::@ 'Maybe' 'VpnStaticRouteSource' --- --- * 'vsrState' @::@ 'Maybe' 'VpnState' --- -vpnStaticRoute :: VpnStaticRoute -vpnStaticRoute = VpnStaticRoute - { _vsrDestinationCidrBlock = Nothing - , _vsrSource = Nothing - , _vsrState = Nothing - } - --- | 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 }) - --- | Indicates how the routes were provided. -vsrSource :: Lens' VpnStaticRoute (Maybe VpnStaticRouteSource) -vsrSource = lens _vsrSource (\s a -> s { _vsrSource = a }) - --- | The current state of the static route. -vsrState :: Lens' VpnStaticRoute (Maybe VpnState) -vsrState = lens _vsrState (\s a -> s { _vsrState = a }) - -instance FromXML VpnStaticRoute where - parseXML x = VpnStaticRoute - <$> x .@? "destinationCidrBlock" - <*> x .@? "source" - <*> x .@? "state" - -instance ToQuery VpnStaticRoute where - toQuery VpnStaticRoute{..} = mconcat - [ "destinationCidrBlock" =? _vsrDestinationCidrBlock - , "source" =? _vsrSource - , "state" =? _vsrState - ] - -data InstanceStateName - = ISNPending -- ^ pending - | ISNRunning -- ^ running - | ISNShuttingDown -- ^ shutting-down - | ISNStopped -- ^ stopped - | ISNStopping -- ^ stopping - | ISNTerminated -- ^ terminated - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable InstanceStateName - -instance FromText InstanceStateName where - parser = match "pending" ISNPending - <|> match "running" ISNRunning - <|> match "shutting-down" ISNShuttingDown - <|> match "stopped" ISNStopped - <|> match "stopping" ISNStopping - <|> match "terminated" ISNTerminated - -instance ToText InstanceStateName where - toText = \case - ISNPending -> "pending" - ISNRunning -> "running" - ISNShuttingDown -> "shutting-down" - ISNStopped -> "stopped" - ISNStopping -> "stopping" - ISNTerminated -> "terminated" - -instance ToByteString InstanceStateName -instance ToHeader InstanceStateName -instance ToQuery InstanceStateName - -instance FromXML InstanceStateName where - parseXML = parseXMLText "InstanceStateName" - - -data Instance = Instance - { _i1AmiLaunchIndex :: Maybe Int - , _i1Architecture :: Maybe ArchitectureValues - , _i1BlockDeviceMappings :: List "item" InstanceBlockDeviceMapping - , _i1ClientToken :: Maybe Text - , _i1EbsOptimized :: Maybe Bool - , _i1Hypervisor :: Maybe HypervisorType - , _i1IamInstanceProfile :: Maybe IamInstanceProfile - , _i1ImageId :: Maybe Text - , _i1InstanceId :: Maybe Text - , _i1InstanceLifecycle :: Maybe InstanceLifecycleType - , _i1InstanceType :: Maybe InstanceType - , _i1KernelId :: Maybe Text - , _i1KeyName :: Maybe Text - , _i1LaunchTime :: Maybe RFC822 - , _i1Monitoring :: Maybe Monitoring - , _i1NetworkInterfaces :: List "item" InstanceNetworkInterface - , _i1Placement :: Maybe Placement - , _i1Platform :: Maybe PlatformValues - , _i1PrivateDnsName :: Maybe Text - , _i1PrivateIpAddress :: Maybe Text - , _i1ProductCodes :: List "item" ProductCode - , _i1PublicDnsName :: Maybe Text - , _i1PublicIpAddress :: Maybe Text - , _i1RamdiskId :: Maybe Text - , _i1RootDeviceName :: Maybe Text - , _i1RootDeviceType :: Maybe DeviceType - , _i1SecurityGroups :: List "item" GroupIdentifier - , _i1SourceDestCheck :: Maybe Bool - , _i1SpotInstanceRequestId :: Maybe Text - , _i1SriovNetSupport :: Maybe Text - , _i1State :: Maybe InstanceState - , _i1StateReason :: Maybe StateReason - , _i1StateTransitionReason :: Maybe Text - , _i1SubnetId :: Maybe Text - , _i1Tags :: List "item" Tag - , _i1VirtualizationType :: Maybe VirtualizationType - , _i1VpcId :: Maybe Text - } deriving (Eq, Show) - --- | 'Instance' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'i1AmiLaunchIndex' @::@ 'Maybe' 'Int' --- --- * 'i1Architecture' @::@ 'Maybe' 'ArchitectureValues' --- --- * 'i1BlockDeviceMappings' @::@ ['InstanceBlockDeviceMapping'] --- --- * 'i1ClientToken' @::@ 'Maybe' 'Text' --- --- * 'i1EbsOptimized' @::@ 'Maybe' 'Bool' --- --- * 'i1Hypervisor' @::@ 'Maybe' 'HypervisorType' --- --- * 'i1IamInstanceProfile' @::@ 'Maybe' 'IamInstanceProfile' --- --- * 'i1ImageId' @::@ 'Maybe' 'Text' --- --- * 'i1InstanceId' @::@ 'Maybe' 'Text' --- --- * 'i1InstanceLifecycle' @::@ 'Maybe' 'InstanceLifecycleType' --- --- * 'i1InstanceType' @::@ 'Maybe' 'InstanceType' --- --- * 'i1KernelId' @::@ 'Maybe' 'Text' --- --- * 'i1KeyName' @::@ 'Maybe' 'Text' --- --- * 'i1LaunchTime' @::@ 'Maybe' 'UTCTime' --- --- * 'i1Monitoring' @::@ 'Maybe' 'Monitoring' --- --- * 'i1NetworkInterfaces' @::@ ['InstanceNetworkInterface'] --- --- * 'i1Placement' @::@ 'Maybe' 'Placement' --- --- * 'i1Platform' @::@ 'Maybe' 'PlatformValues' --- --- * 'i1PrivateDnsName' @::@ 'Maybe' 'Text' --- --- * 'i1PrivateIpAddress' @::@ 'Maybe' 'Text' --- --- * 'i1ProductCodes' @::@ ['ProductCode'] --- --- * 'i1PublicDnsName' @::@ 'Maybe' 'Text' --- --- * 'i1PublicIpAddress' @::@ 'Maybe' 'Text' --- --- * 'i1RamdiskId' @::@ 'Maybe' 'Text' --- --- * 'i1RootDeviceName' @::@ 'Maybe' 'Text' --- --- * 'i1RootDeviceType' @::@ 'Maybe' 'DeviceType' --- --- * 'i1SecurityGroups' @::@ ['GroupIdentifier'] --- --- * 'i1SourceDestCheck' @::@ 'Maybe' 'Bool' --- --- * 'i1SpotInstanceRequestId' @::@ 'Maybe' 'Text' --- --- * 'i1SriovNetSupport' @::@ 'Maybe' 'Text' --- --- * 'i1State' @::@ 'Maybe' 'InstanceState' --- --- * 'i1StateReason' @::@ 'Maybe' 'StateReason' --- --- * 'i1StateTransitionReason' @::@ 'Maybe' 'Text' --- --- * 'i1SubnetId' @::@ 'Maybe' 'Text' --- --- * 'i1Tags' @::@ ['Tag'] --- --- * 'i1VirtualizationType' @::@ 'Maybe' 'VirtualizationType' --- --- * 'i1VpcId' @::@ 'Maybe' 'Text' --- -instance' :: Instance -instance' = Instance - { _i1InstanceId = Nothing - , _i1ImageId = Nothing - , _i1State = Nothing - , _i1PrivateDnsName = Nothing - , _i1PublicDnsName = Nothing - , _i1StateTransitionReason = Nothing - , _i1KeyName = Nothing - , _i1AmiLaunchIndex = Nothing - , _i1ProductCodes = mempty - , _i1InstanceType = Nothing - , _i1LaunchTime = Nothing - , _i1Placement = Nothing - , _i1KernelId = Nothing - , _i1RamdiskId = Nothing - , _i1Platform = Nothing - , _i1Monitoring = Nothing - , _i1SubnetId = Nothing - , _i1VpcId = Nothing - , _i1PrivateIpAddress = Nothing - , _i1PublicIpAddress = Nothing - , _i1StateReason = Nothing - , _i1Architecture = Nothing - , _i1RootDeviceType = Nothing - , _i1RootDeviceName = Nothing - , _i1BlockDeviceMappings = mempty - , _i1VirtualizationType = Nothing - , _i1InstanceLifecycle = Nothing - , _i1SpotInstanceRequestId = Nothing - , _i1ClientToken = Nothing - , _i1Tags = mempty - , _i1SecurityGroups = mempty - , _i1SourceDestCheck = Nothing - , _i1Hypervisor = Nothing - , _i1NetworkInterfaces = mempty - , _i1IamInstanceProfile = Nothing - , _i1EbsOptimized = Nothing - , _i1SriovNetSupport = Nothing - } - --- | The AMI launch index, which can be used to find this instance in the --- launch group. -i1AmiLaunchIndex :: Lens' Instance (Maybe Int) -i1AmiLaunchIndex = lens _i1AmiLaunchIndex (\s a -> s { _i1AmiLaunchIndex = a }) - --- | The architecture of the image. -i1Architecture :: Lens' Instance (Maybe ArchitectureValues) -i1Architecture = lens _i1Architecture (\s a -> s { _i1Architecture = a }) - --- | Any block device mapping entries for the instance. -i1BlockDeviceMappings :: Lens' Instance [InstanceBlockDeviceMapping] -i1BlockDeviceMappings = - lens _i1BlockDeviceMappings (\s a -> s { _i1BlockDeviceMappings = a }) - . _List - --- | The idempotency token you provided when you launched the instance. -i1ClientToken :: Lens' Instance (Maybe Text) -i1ClientToken = lens _i1ClientToken (\s a -> s { _i1ClientToken = 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 I/O performance. This optimization --- isn't available with all instance types. Additional usage charges apply --- when using an EBS Optimized instance. -i1EbsOptimized :: Lens' Instance (Maybe Bool) -i1EbsOptimized = lens _i1EbsOptimized (\s a -> s { _i1EbsOptimized = a }) - --- | The hypervisor type of the instance. -i1Hypervisor :: Lens' Instance (Maybe HypervisorType) -i1Hypervisor = lens _i1Hypervisor (\s a -> s { _i1Hypervisor = a }) - --- | The IAM instance profile associated with the instance. -i1IamInstanceProfile :: Lens' Instance (Maybe IamInstanceProfile) -i1IamInstanceProfile = - lens _i1IamInstanceProfile (\s a -> s { _i1IamInstanceProfile = a }) - --- | The ID of the AMI used to launch the instance. -i1ImageId :: Lens' Instance (Maybe Text) -i1ImageId = lens _i1ImageId (\s a -> s { _i1ImageId = a }) - --- | The ID of the instance. -i1InstanceId :: Lens' Instance (Maybe Text) -i1InstanceId = lens _i1InstanceId (\s a -> s { _i1InstanceId = a }) - --- | Indicates whether this is a Spot Instance. -i1InstanceLifecycle :: Lens' Instance (Maybe InstanceLifecycleType) -i1InstanceLifecycle = - lens _i1InstanceLifecycle (\s a -> s { _i1InstanceLifecycle = a }) - --- | The instance type. -i1InstanceType :: Lens' Instance (Maybe InstanceType) -i1InstanceType = lens _i1InstanceType (\s a -> s { _i1InstanceType = a }) - --- | The kernel associated with this instance. -i1KernelId :: Lens' Instance (Maybe Text) -i1KernelId = lens _i1KernelId (\s a -> s { _i1KernelId = a }) - --- | The name of the key pair, if this instance was launched with an --- associated key pair. -i1KeyName :: Lens' Instance (Maybe Text) -i1KeyName = lens _i1KeyName (\s a -> s { _i1KeyName = a }) - --- | The time the instance was launched. -i1LaunchTime :: Lens' Instance (Maybe UTCTime) -i1LaunchTime = lens _i1LaunchTime (\s a -> s { _i1LaunchTime = a }) . mapping _Time - --- | The monitoring information for the instance. -i1Monitoring :: Lens' Instance (Maybe Monitoring) -i1Monitoring = lens _i1Monitoring (\s a -> s { _i1Monitoring = a }) - --- | [EC2-VPC] One or more network interfaces for the instance. -i1NetworkInterfaces :: Lens' Instance [InstanceNetworkInterface] -i1NetworkInterfaces = - lens _i1NetworkInterfaces (\s a -> s { _i1NetworkInterfaces = a }) - . _List - --- | The location where the instance launched. -i1Placement :: Lens' Instance (Maybe Placement) -i1Placement = lens _i1Placement (\s a -> s { _i1Placement = a }) - --- | The value is Windows for Windows instances; otherwise blank. -i1Platform :: Lens' Instance (Maybe PlatformValues) -i1Platform = lens _i1Platform (\s a -> s { _i1Platform = a }) - --- | The private DNS name assigned to the instance. This DNS name can only be --- used inside the Amazon EC2 network. This name is not available until the --- instance enters the running state. -i1PrivateDnsName :: Lens' Instance (Maybe Text) -i1PrivateDnsName = lens _i1PrivateDnsName (\s a -> s { _i1PrivateDnsName = a }) - --- | The private IP address assigned to the instance. -i1PrivateIpAddress :: Lens' Instance (Maybe Text) -i1PrivateIpAddress = - lens _i1PrivateIpAddress (\s a -> s { _i1PrivateIpAddress = a }) - --- | The product codes attached to this instance. -i1ProductCodes :: Lens' Instance [ProductCode] -i1ProductCodes = lens _i1ProductCodes (\s a -> s { _i1ProductCodes = a }) . _List - --- | The public DNS name assigned to the instance. This name is not available --- until the instance enters the running state. -i1PublicDnsName :: Lens' Instance (Maybe Text) -i1PublicDnsName = lens _i1PublicDnsName (\s a -> s { _i1PublicDnsName = a }) - --- | The public IP address assigned to the instance. -i1PublicIpAddress :: Lens' Instance (Maybe Text) -i1PublicIpAddress = - lens _i1PublicIpAddress (\s a -> s { _i1PublicIpAddress = a }) - --- | The RAM disk associated with this instance. -i1RamdiskId :: Lens' Instance (Maybe Text) -i1RamdiskId = lens _i1RamdiskId (\s a -> s { _i1RamdiskId = a }) - --- | The root device name (for example, /dev/sda1). -i1RootDeviceName :: Lens' Instance (Maybe Text) -i1RootDeviceName = lens _i1RootDeviceName (\s a -> s { _i1RootDeviceName = a }) - --- | The root device type used by the AMI. The AMI can use an Amazon EBS --- volume or an instance store volume. -i1RootDeviceType :: Lens' Instance (Maybe DeviceType) -i1RootDeviceType = lens _i1RootDeviceType (\s a -> s { _i1RootDeviceType = a }) - --- | One or more security groups for the instance. -i1SecurityGroups :: Lens' Instance [GroupIdentifier] -i1SecurityGroups = lens _i1SecurityGroups (\s a -> s { _i1SecurityGroups = a }) . _List - --- | Specifies whether to enable an instance launched in a VPC to perform NAT. --- This controls whether source/destination checking is enabled on the --- instance. A value of true means checking is enabled, and false means --- checking is disabled. The value must be false for the instance to perform --- NAT. For more information, see NAT Instances in the Amazon Virtual --- Private Cloud User Guide. -i1SourceDestCheck :: Lens' Instance (Maybe Bool) -i1SourceDestCheck = - lens _i1SourceDestCheck (\s a -> s { _i1SourceDestCheck = a }) - --- | The ID of the Spot Instance request. -i1SpotInstanceRequestId :: Lens' Instance (Maybe Text) -i1SpotInstanceRequestId = - lens _i1SpotInstanceRequestId (\s a -> s { _i1SpotInstanceRequestId = a }) - --- | Specifies whether enhanced networking is enabled. -i1SriovNetSupport :: Lens' Instance (Maybe Text) -i1SriovNetSupport = - lens _i1SriovNetSupport (\s a -> s { _i1SriovNetSupport = a }) - --- | The current state of the instance. -i1State :: Lens' Instance (Maybe InstanceState) -i1State = lens _i1State (\s a -> s { _i1State = a }) - --- | The reason for the most recent state transition. -i1StateReason :: Lens' Instance (Maybe StateReason) -i1StateReason = lens _i1StateReason (\s a -> s { _i1StateReason = a }) - --- | The reason for the most recent state transition. This might be an empty --- string. -i1StateTransitionReason :: Lens' Instance (Maybe Text) -i1StateTransitionReason = - lens _i1StateTransitionReason (\s a -> s { _i1StateTransitionReason = a }) - --- | The ID of the subnet in which the instance is running. -i1SubnetId :: Lens' Instance (Maybe Text) -i1SubnetId = lens _i1SubnetId (\s a -> s { _i1SubnetId = a }) - --- | Any tags assigned to the instance. -i1Tags :: Lens' Instance [Tag] -i1Tags = lens _i1Tags (\s a -> s { _i1Tags = a }) . _List - --- | The virtualization type of the instance. -i1VirtualizationType :: Lens' Instance (Maybe VirtualizationType) -i1VirtualizationType = - lens _i1VirtualizationType (\s a -> s { _i1VirtualizationType = a }) - --- | The ID of the VPC in which the instance is running. -i1VpcId :: Lens' Instance (Maybe Text) -i1VpcId = lens _i1VpcId (\s a -> s { _i1VpcId = a }) - -instance FromXML Instance where - parseXML x = Instance - <$> x .@? "amiLaunchIndex" - <*> x .@? "architecture" - <*> x .@ "blockDeviceMapping" - <*> x .@? "clientToken" - <*> x .@? "ebsOptimized" - <*> x .@? "hypervisor" - <*> x .@? "iamInstanceProfile" - <*> x .@? "imageId" - <*> x .@? "instanceId" - <*> x .@? "instanceLifecycle" - <*> x .@? "instanceType" - <*> x .@? "kernelId" - <*> x .@? "keyName" - <*> x .@? "launchTime" - <*> x .@? "monitoring" - <*> x .@ "networkInterfaceSet" - <*> x .@? "placement" - <*> x .@? "platform" - <*> x .@? "privateDnsName" - <*> x .@? "privateIpAddress" - <*> x .@ "productCodes" - <*> x .@? "dnsName" - <*> x .@? "ipAddress" - <*> x .@? "ramdiskId" - <*> x .@? "rootDeviceName" - <*> x .@? "rootDeviceType" - <*> x .@ "groupSet" - <*> x .@? "sourceDestCheck" - <*> x .@? "spotInstanceRequestId" - <*> x .@? "sriovNetSupport" - <*> x .@? "instanceState" - <*> x .@? "stateReason" - <*> x .@? "reason" - <*> x .@? "subnetId" - <*> x .@ "tagSet" - <*> x .@? "virtualizationType" - <*> x .@? "vpcId" - -instance ToQuery Instance where - toQuery Instance{..} = mconcat - [ "amiLaunchIndex" =? _i1AmiLaunchIndex - , "architecture" =? _i1Architecture - , "blockDeviceMapping" =? _i1BlockDeviceMappings - , "clientToken" =? _i1ClientToken - , "ebsOptimized" =? _i1EbsOptimized - , "hypervisor" =? _i1Hypervisor - , "iamInstanceProfile" =? _i1IamInstanceProfile - , "imageId" =? _i1ImageId - , "instanceId" =? _i1InstanceId - , "instanceLifecycle" =? _i1InstanceLifecycle - , "instanceType" =? _i1InstanceType - , "kernelId" =? _i1KernelId - , "keyName" =? _i1KeyName - , "launchTime" =? _i1LaunchTime - , "monitoring" =? _i1Monitoring - , "networkInterfaceSet" =? _i1NetworkInterfaces - , "placement" =? _i1Placement - , "platform" =? _i1Platform - , "privateDnsName" =? _i1PrivateDnsName - , "privateIpAddress" =? _i1PrivateIpAddress - , "productCodes" =? _i1ProductCodes - , "dnsName" =? _i1PublicDnsName - , "ipAddress" =? _i1PublicIpAddress - , "ramdiskId" =? _i1RamdiskId - , "rootDeviceName" =? _i1RootDeviceName - , "rootDeviceType" =? _i1RootDeviceType - , "groupSet" =? _i1SecurityGroups - , "sourceDestCheck" =? _i1SourceDestCheck - , "spotInstanceRequestId" =? _i1SpotInstanceRequestId - , "sriovNetSupport" =? _i1SriovNetSupport - , "instanceState" =? _i1State - , "stateReason" =? _i1StateReason - , "reason" =? _i1StateTransitionReason - , "subnetId" =? _i1SubnetId - , "tagSet" =? _i1Tags - , "virtualizationType" =? _i1VirtualizationType - , "vpcId" =? _i1VpcId - ] - -data ExportTask = ExportTask - { _etDescription :: Maybe Text - , _etExportTaskId :: Maybe Text - , _etExportToS3Task :: Maybe ExportToS3Task - , _etInstanceExportDetails :: Maybe InstanceExportDetails - , _etState :: Maybe ExportTaskState - , _etStatusMessage :: Maybe Text - } deriving (Eq, Show) - --- | 'ExportTask' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'etDescription' @::@ 'Maybe' 'Text' --- --- * 'etExportTaskId' @::@ 'Maybe' 'Text' --- --- * 'etExportToS3Task' @::@ 'Maybe' 'ExportToS3Task' --- --- * 'etInstanceExportDetails' @::@ 'Maybe' 'InstanceExportDetails' --- --- * 'etState' @::@ 'Maybe' 'ExportTaskState' --- --- * 'etStatusMessage' @::@ 'Maybe' 'Text' --- -exportTask :: ExportTask -exportTask = ExportTask - { _etExportTaskId = Nothing - , _etDescription = Nothing - , _etState = Nothing - , _etStatusMessage = Nothing - , _etInstanceExportDetails = Nothing - , _etExportToS3Task = Nothing - } - --- | A description of the resource being exported. -etDescription :: Lens' ExportTask (Maybe Text) -etDescription = lens _etDescription (\s a -> s { _etDescription = a }) - --- | The ID of the export task. -etExportTaskId :: Lens' ExportTask (Maybe Text) -etExportTaskId = lens _etExportTaskId (\s a -> s { _etExportTaskId = a }) - -etExportToS3Task :: Lens' ExportTask (Maybe ExportToS3Task) -etExportToS3Task = lens _etExportToS3Task (\s a -> s { _etExportToS3Task = a }) - --- | The instance being exported. -etInstanceExportDetails :: Lens' ExportTask (Maybe InstanceExportDetails) -etInstanceExportDetails = - lens _etInstanceExportDetails (\s a -> s { _etInstanceExportDetails = a }) - --- | The state of the conversion task. -etState :: Lens' ExportTask (Maybe ExportTaskState) -etState = lens _etState (\s a -> s { _etState = a }) - --- | The status message related to the export task. -etStatusMessage :: Lens' ExportTask (Maybe 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 ToQuery ExportTask where - toQuery ExportTask{..} = mconcat - [ "description" =? _etDescription - , "exportTaskId" =? _etExportTaskId - , "exportToS3" =? _etExportToS3Task - , "instanceExport" =? _etInstanceExportDetails - , "state" =? _etState - , "statusMessage" =? _etStatusMessage - ] - -data ResetImageAttributeName - = RIANLaunchPermission -- ^ launchPermission - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable ResetImageAttributeName - -instance FromText ResetImageAttributeName where - parser = match "launchPermission" RIANLaunchPermission - -instance ToText ResetImageAttributeName where - toText RIANLaunchPermission = "launchPermission" - -instance ToByteString ResetImageAttributeName -instance ToHeader ResetImageAttributeName -instance ToQuery ResetImageAttributeName - -instance FromXML ResetImageAttributeName where - parseXML = parseXMLText "ResetImageAttributeName" - - -data RequestSpotLaunchSpecification = RequestSpotLaunchSpecification - { _rslsAddressingType :: Maybe Text - , _rslsBlockDeviceMappings :: List "item" BlockDeviceMapping - , _rslsEbsOptimized :: Maybe Bool - , _rslsIamInstanceProfile :: Maybe IamInstanceProfileSpecification - , _rslsImageId :: Maybe Text - , _rslsInstanceType :: Maybe InstanceType - , _rslsKernelId :: Maybe Text - , _rslsKeyName :: Maybe Text - , _rslsMonitoring :: Maybe RunInstancesMonitoringEnabled - , _rslsNetworkInterfaces :: List "item" InstanceNetworkInterfaceSpecification - , _rslsPlacement :: Maybe SpotPlacement - , _rslsRamdiskId :: Maybe Text - , _rslsSecurityGroupIds :: List "item" Text - , _rslsSecurityGroups :: List "item" Text - , _rslsSubnetId :: Maybe Text - , _rslsUserData :: Maybe Text - } deriving (Eq, Show) - --- | 'RequestSpotLaunchSpecification' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'rslsAddressingType' @::@ 'Maybe' 'Text' --- --- * 'rslsBlockDeviceMappings' @::@ ['BlockDeviceMapping'] --- --- * 'rslsEbsOptimized' @::@ 'Maybe' 'Bool' --- --- * 'rslsIamInstanceProfile' @::@ 'Maybe' 'IamInstanceProfileSpecification' --- --- * 'rslsImageId' @::@ 'Maybe' 'Text' --- --- * 'rslsInstanceType' @::@ 'Maybe' 'InstanceType' --- --- * 'rslsKernelId' @::@ 'Maybe' 'Text' --- --- * 'rslsKeyName' @::@ 'Maybe' 'Text' --- --- * 'rslsMonitoring' @::@ 'Maybe' 'RunInstancesMonitoringEnabled' --- --- * 'rslsNetworkInterfaces' @::@ ['InstanceNetworkInterfaceSpecification'] --- --- * 'rslsPlacement' @::@ 'Maybe' 'SpotPlacement' --- --- * 'rslsRamdiskId' @::@ 'Maybe' 'Text' --- --- * 'rslsSecurityGroupIds' @::@ ['Text'] --- --- * 'rslsSecurityGroups' @::@ ['Text'] --- --- * 'rslsSubnetId' @::@ 'Maybe' 'Text' --- --- * 'rslsUserData' @::@ 'Maybe' 'Text' --- -requestSpotLaunchSpecification :: RequestSpotLaunchSpecification -requestSpotLaunchSpecification = RequestSpotLaunchSpecification - { _rslsImageId = Nothing - , _rslsKeyName = Nothing - , _rslsSecurityGroups = mempty - , _rslsUserData = Nothing - , _rslsAddressingType = Nothing - , _rslsInstanceType = Nothing - , _rslsPlacement = Nothing - , _rslsKernelId = Nothing - , _rslsRamdiskId = Nothing - , _rslsBlockDeviceMappings = mempty - , _rslsSubnetId = Nothing - , _rslsNetworkInterfaces = mempty - , _rslsIamInstanceProfile = Nothing - , _rslsEbsOptimized = Nothing - , _rslsMonitoring = Nothing - , _rslsSecurityGroupIds = mempty - } - --- | Deprecated. -rslsAddressingType :: Lens' RequestSpotLaunchSpecification (Maybe Text) -rslsAddressingType = - lens _rslsAddressingType (\s a -> s { _rslsAddressingType = a }) - --- | One or more block device mapping entries. -rslsBlockDeviceMappings :: Lens' RequestSpotLaunchSpecification [BlockDeviceMapping] -rslsBlockDeviceMappings = - lens _rslsBlockDeviceMappings (\s a -> s { _rslsBlockDeviceMappings = a }) - . _List - --- | 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 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 }) - --- | The instance type. Default: m1.small. -rslsInstanceType :: Lens' RequestSpotLaunchSpecification (Maybe InstanceType) -rslsInstanceType = lens _rslsInstanceType (\s a -> s { _rslsInstanceType = a }) - --- | The ID of the kernel. -rslsKernelId :: Lens' RequestSpotLaunchSpecification (Maybe Text) -rslsKernelId = lens _rslsKernelId (\s a -> s { _rslsKernelId = a }) - --- | The name of the key pair. -rslsKeyName :: Lens' RequestSpotLaunchSpecification (Maybe Text) -rslsKeyName = lens _rslsKeyName (\s a -> s { _rslsKeyName = a }) - -rslsMonitoring :: Lens' RequestSpotLaunchSpecification (Maybe RunInstancesMonitoringEnabled) -rslsMonitoring = lens _rslsMonitoring (\s a -> s { _rslsMonitoring = a }) - --- | One or more network interfaces. -rslsNetworkInterfaces :: Lens' RequestSpotLaunchSpecification [InstanceNetworkInterfaceSpecification] -rslsNetworkInterfaces = - lens _rslsNetworkInterfaces (\s a -> s { _rslsNetworkInterfaces = a }) - . _List - --- | The placement information for the instance. -rslsPlacement :: Lens' RequestSpotLaunchSpecification (Maybe SpotPlacement) -rslsPlacement = lens _rslsPlacement (\s a -> s { _rslsPlacement = a }) - --- | The ID of the RAM disk. -rslsRamdiskId :: Lens' RequestSpotLaunchSpecification (Maybe Text) -rslsRamdiskId = lens _rslsRamdiskId (\s a -> s { _rslsRamdiskId = a }) - -rslsSecurityGroupIds :: Lens' RequestSpotLaunchSpecification [Text] -rslsSecurityGroupIds = - lens _rslsSecurityGroupIds (\s a -> s { _rslsSecurityGroupIds = a }) - . _List - -rslsSecurityGroups :: Lens' RequestSpotLaunchSpecification [Text] -rslsSecurityGroups = - lens _rslsSecurityGroups (\s a -> s { _rslsSecurityGroups = a }) - . _List - --- | The ID of the subnet in which to launch the Spot Instance. -rslsSubnetId :: Lens' RequestSpotLaunchSpecification (Maybe Text) -rslsSubnetId = lens _rslsSubnetId (\s a -> s { _rslsSubnetId = a }) - --- | The Base64-encoded MIME user data to make available to the instances. -rslsUserData :: Lens' RequestSpotLaunchSpecification (Maybe Text) -rslsUserData = lens _rslsUserData (\s a -> s { _rslsUserData = a }) - -instance FromXML RequestSpotLaunchSpecification where - parseXML x = RequestSpotLaunchSpecification - <$> x .@? "addressingType" - <*> x .@ "blockDeviceMapping" - <*> x .@? "ebsOptimized" - <*> x .@? "iamInstanceProfile" - <*> x .@? "imageId" - <*> x .@? "instanceType" - <*> x .@? "kernelId" - <*> x .@? "keyName" - <*> x .@? "monitoring" - <*> x .@ "NetworkInterface" - <*> x .@? "placement" - <*> x .@? "ramdiskId" - <*> x .@ "SecurityGroupId" - <*> x .@ "SecurityGroup" - <*> x .@? "subnetId" - <*> x .@? "userData" - -instance ToQuery RequestSpotLaunchSpecification where - toQuery RequestSpotLaunchSpecification{..} = mconcat - [ "addressingType" =? _rslsAddressingType - , "blockDeviceMapping" =? _rslsBlockDeviceMappings - , "ebsOptimized" =? _rslsEbsOptimized - , "iamInstanceProfile" =? _rslsIamInstanceProfile - , "imageId" =? _rslsImageId - , "instanceType" =? _rslsInstanceType - , "kernelId" =? _rslsKernelId - , "keyName" =? _rslsKeyName - , "monitoring" =? _rslsMonitoring - , "NetworkInterface" =? _rslsNetworkInterfaces - , "placement" =? _rslsPlacement - , "ramdiskId" =? _rslsRamdiskId - , "SecurityGroupId" =? _rslsSecurityGroupIds - , "SecurityGroup" =? _rslsSecurityGroups - , "subnetId" =? _rslsSubnetId - , "userData" =? _rslsUserData - ] - -newtype VolumeDetail = VolumeDetail - { _vdSize :: Integer - } deriving (Eq, Ord, Show, Enum, Num, Integral, Real) - --- | 'VolumeDetail' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'vdSize' @::@ 'Integer' --- -volumeDetail :: Integer -- ^ 'vdSize' - -> VolumeDetail -volumeDetail p1 = VolumeDetail - { _vdSize = p1 - } - --- | The size of the volume, in GiB. -vdSize :: Lens' VolumeDetail Integer -vdSize = lens _vdSize (\s a -> s { _vdSize = a }) - -instance FromXML VolumeDetail where - parseXML x = VolumeDetail - <$> x .@ "size" - -instance ToQuery VolumeDetail where - toQuery VolumeDetail{..} = mconcat - [ "size" =? _vdSize - ] - -data PricingDetail = PricingDetail - { _pdCount :: Maybe Int - , _pdPrice :: Maybe Double - } deriving (Eq, Ord, Show) - --- | 'PricingDetail' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'pdCount' @::@ 'Maybe' 'Int' --- --- * 'pdPrice' @::@ 'Maybe' 'Double' --- -pricingDetail :: PricingDetail -pricingDetail = PricingDetail - { _pdPrice = Nothing - , _pdCount = Nothing - } - --- | The number of instances 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 ToQuery PricingDetail where - toQuery PricingDetail{..} = mconcat - [ "count" =? _pdCount - , "price" =? _pdPrice - ] - -data NetworkInterfacePrivateIpAddress = NetworkInterfacePrivateIpAddress - { _nipiaAssociation :: Maybe NetworkInterfaceAssociation - , _nipiaPrimary :: Maybe Bool - , _nipiaPrivateDnsName :: Maybe Text - , _nipiaPrivateIpAddress :: Maybe Text - } deriving (Eq, Show) - --- | 'NetworkInterfacePrivateIpAddress' constructor. --- --- The fields accessible through corresponding lenses are: --- --- * 'nipiaAssociation' @::@ 'Maybe' 'NetworkInterfaceAssociation' --- --- * 'nipiaPrimary' @::@ 'Maybe' 'Bool' --- --- * 'nipiaPrivateDnsName' @::@ 'Maybe' 'Text' --- --- * 'nipiaPrivateIpAddress' @::@ 'Maybe' 'Text' --- -networkInterfacePrivateIpAddress :: NetworkInterfacePrivateIpAddress -networkInterfacePrivateIpAddress = NetworkInterfacePrivateIpAddress - { _nipiaPrivateIpAddress = Nothing - , _nipiaPrivateDnsName = Nothing - , _nipiaPrimary = Nothing - , _nipiaAssociation = Nothing - } - --- | The association information for an Elastic IP address associated with the --- network interface. -nipiaAssociation :: Lens' NetworkInterfacePrivateIpAddress (Maybe NetworkInterfaceAssociation) -nipiaAssociation = lens _nipiaAssociation (\s a -> s { _nipiaAssociation = a }) - --- | Indicates whether this IP address is the primary private IP address of --- the network interface. -nipiaPrimary :: Lens' NetworkInterfacePrivateIpAddress (Maybe Bool) -nipiaPrimary = lens _nipiaPrimary (\s a -> s { _nipiaPrimary = a }) - --- | The private DNS name. -nipiaPrivateDnsName :: Lens' NetworkInterfacePrivateIpAddress (Maybe Text) -nipiaPrivateDnsName = - lens _nipiaPrivateDnsName (\s a -> s { _nipiaPrivateDnsName = a }) - --- | The private IP address. -nipiaPrivateIpAddress :: Lens' NetworkInterfacePrivateIpAddress (Maybe Text) -nipiaPrivateIpAddress = - lens _nipiaPrivateIpAddress (\s a -> s { _nipiaPrivateIpAddress = a }) - -instance FromXML NetworkInterfacePrivateIpAddress where - parseXML x = NetworkInterfacePrivateIpAddress - <$> x .@? "association" - <*> x .@? "primary" - <*> x .@? "privateDnsName" - <*> x .@? "privateIpAddress" - -instance ToQuery NetworkInterfacePrivateIpAddress where - toQuery NetworkInterfacePrivateIpAddress{..} = mconcat - [ "association" =? _nipiaAssociation - , "primary" =? _nipiaPrimary - , "privateDnsName" =? _nipiaPrivateDnsName - , "privateIpAddress" =? _nipiaPrivateIpAddress - ] - -data DiskImageFormat - = Raw -- ^ RAW - | Vhd -- ^ VHD - | Vmdk -- ^ VMDK - deriving (Eq, Ord, Show, Generic, Enum) - -instance Hashable DiskImageFormat - -instance FromText DiskImageFormat where - parser = match "RAW" Raw - <|> match "VHD" Vhd - <|> match "VMDK" Vmdk - -instance ToText DiskImageFormat where - toText = \case - Raw -> "RAW" - Vhd -> "VHD" - Vmdk -> "VMDK" - -instance ToByteString DiskImageFormat -instance ToHeader DiskImageFormat -instance ToQuery DiskImageFormat - -instance FromXML DiskImageFormat where - parseXML = parseXMLText "DiskImageFormat" - + parser = takeText >>= \case + "blockDeviceMapping" -> pure ImageBlockDeviceMapping + "description" -> pure ImageDescription + "kernel" -> pure ImageKernel + "launchPermission" -> pure ImageLaunchPermission + "productCodes" -> pure ImageProductCodes + "ramdisk" -> pure ImageRamdisk + e -> fail $ + "Failure parsing ImageAttributeName from " ++ show e + +instance ToText ImageAttributeName where + toText = \case + ImageBlockDeviceMapping -> "blockDeviceMapping" + ImageDescription -> "description" + ImageKernel -> "kernel" + ImageLaunchPermission -> "launchPermission" + ImageProductCodes -> "productCodes" + ImageRamdisk -> "ramdisk" + +instance ToByteString ImageAttributeName +instance ToHeader ImageAttributeName +instance ToQuery ImageAttributeName + +instance FromXML ImageAttributeName where + parseXML = parseXMLText "ImageAttributeName" + +data PermissionGroup + = All -- ^ all + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable PermissionGroup + +instance FromText PermissionGroup where + parser = takeText >>= \case + "all" -> pure All + e -> fail $ + "Failure parsing PermissionGroup from " ++ show e + +instance ToText PermissionGroup where + toText All = "all" + +instance ToByteString PermissionGroup +instance ToHeader PermissionGroup +instance ToQuery PermissionGroup + +instance FromXML PermissionGroup where + parseXML = parseXMLText "PermissionGroup" + +data NetworkAclEntry = NetworkAclEntry + { _naeCidrBlock :: Maybe Text + , _naeEgress :: Maybe Bool + , _naeIcmpTypeCode :: Maybe IcmpTypeCode + , _naePortRange :: Maybe PortRange + , _naeProtocol :: Maybe Text + , _naeRuleAction :: Maybe RuleAction + , _naeRuleNumber :: Maybe Int + } deriving (Eq, Show) + +-- | 'NetworkAclEntry' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'naeCidrBlock' @::@ 'Maybe' 'Text' +-- +-- * 'naeEgress' @::@ 'Maybe' 'Bool' +-- +-- * 'naeIcmpTypeCode' @::@ 'Maybe' 'IcmpTypeCode' +-- +-- * 'naePortRange' @::@ 'Maybe' 'PortRange' +-- +-- * 'naeProtocol' @::@ 'Maybe' 'Text' +-- +-- * 'naeRuleAction' @::@ 'Maybe' 'RuleAction' +-- +-- * 'naeRuleNumber' @::@ 'Maybe' 'Int' +-- +networkAclEntry :: NetworkAclEntry +networkAclEntry = NetworkAclEntry + { _naeRuleNumber = Nothing + , _naeProtocol = Nothing + , _naeRuleAction = Nothing + , _naeEgress = Nothing + , _naeCidrBlock = Nothing + , _naeIcmpTypeCode = Nothing + , _naePortRange = Nothing + } + +-- | The 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 }) + +-- | ICMP protocol: The ICMP type and code. +naeIcmpTypeCode :: Lens' NetworkAclEntry (Maybe IcmpTypeCode) +naeIcmpTypeCode = lens _naeIcmpTypeCode (\s a -> s { _naeIcmpTypeCode = 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 protocol. A value of '-1' means all protocols. +naeProtocol :: Lens' NetworkAclEntry (Maybe Text) +naeProtocol = lens _naeProtocol (\s a -> s { _naeProtocol = 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 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 }) + +instance FromXML NetworkAclEntry where + parseXML x = NetworkAclEntry + <$> x .@? "cidrBlock" + <*> x .@? "egress" + <*> x .@? "icmpTypeCode" + <*> x .@? "portRange" + <*> x .@? "protocol" + <*> x .@? "ruleAction" + <*> x .@? "ruleNumber" + +instance ToQuery NetworkAclEntry where + toQuery NetworkAclEntry{..} = mconcat + [ "cidrBlock" =? _naeCidrBlock + , "egress" =? _naeEgress + , "icmpTypeCode" =? _naeIcmpTypeCode + , "portRange" =? _naePortRange + , "protocol" =? _naeProtocol + , "ruleAction" =? _naeRuleAction + , "ruleNumber" =? _naeRuleNumber + ] + +newtype BlobAttributeValue = BlobAttributeValue + { _bavValue :: Maybe Base64 + } deriving (Eq, Show) + +-- | 'BlobAttributeValue' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'bavValue' @::@ 'Maybe' 'Base64' +-- +blobAttributeValue :: BlobAttributeValue +blobAttributeValue = BlobAttributeValue + { _bavValue = Nothing + } + +bavValue :: Lens' BlobAttributeValue (Maybe Base64) +bavValue = lens _bavValue (\s a -> s { _bavValue = a }) + +instance FromXML BlobAttributeValue where + parseXML x = BlobAttributeValue + <$> x .@? "value" + +instance ToQuery BlobAttributeValue where + toQuery BlobAttributeValue{..} = mconcat + [ "value" =? _bavValue + ] + +data ImportInstanceLaunchSpecification = ImportInstanceLaunchSpecification + { _iilsAdditionalInfo :: Maybe Text + , _iilsArchitecture :: Maybe ArchitectureValues + , _iilsGroupIds :: List "SecurityGroupId" Text + , _iilsGroupNames :: List "SecurityGroup" Text + , _iilsInstanceInitiatedShutdownBehavior :: Maybe ShutdownBehavior + , _iilsInstanceType :: Maybe InstanceType + , _iilsMonitoring :: Maybe Bool + , _iilsPlacement :: Maybe Placement + , _iilsPrivateIpAddress :: Maybe Text + , _iilsSubnetId :: Maybe Text + , _iilsUserData :: Maybe Text + } deriving (Eq, Show) + +-- | 'ImportInstanceLaunchSpecification' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'iilsAdditionalInfo' @::@ 'Maybe' 'Text' +-- +-- * 'iilsArchitecture' @::@ 'Maybe' 'ArchitectureValues' +-- +-- * 'iilsGroupIds' @::@ ['Text'] +-- +-- * 'iilsGroupNames' @::@ ['Text'] +-- +-- * 'iilsInstanceInitiatedShutdownBehavior' @::@ 'Maybe' 'ShutdownBehavior' +-- +-- * 'iilsInstanceType' @::@ 'Maybe' 'InstanceType' +-- +-- * 'iilsMonitoring' @::@ 'Maybe' 'Bool' +-- +-- * 'iilsPlacement' @::@ 'Maybe' 'Placement' +-- +-- * 'iilsPrivateIpAddress' @::@ 'Maybe' 'Text' +-- +-- * 'iilsSubnetId' @::@ 'Maybe' 'Text' +-- +-- * 'iilsUserData' @::@ 'Maybe' 'Text' +-- +importInstanceLaunchSpecification :: ImportInstanceLaunchSpecification +importInstanceLaunchSpecification = ImportInstanceLaunchSpecification + { _iilsArchitecture = Nothing + , _iilsGroupNames = mempty + , _iilsGroupIds = mempty + , _iilsAdditionalInfo = Nothing + , _iilsUserData = Nothing + , _iilsInstanceType = Nothing + , _iilsPlacement = Nothing + , _iilsMonitoring = Nothing + , _iilsSubnetId = Nothing + , _iilsInstanceInitiatedShutdownBehavior = Nothing + , _iilsPrivateIpAddress = Nothing + } + +iilsAdditionalInfo :: Lens' ImportInstanceLaunchSpecification (Maybe Text) +iilsAdditionalInfo = + lens _iilsAdditionalInfo (\s a -> s { _iilsAdditionalInfo = a }) + +-- | The architecture of the instance. +iilsArchitecture :: Lens' ImportInstanceLaunchSpecification (Maybe ArchitectureValues) +iilsArchitecture = lens _iilsArchitecture (\s a -> s { _iilsArchitecture = a }) + +iilsGroupIds :: Lens' ImportInstanceLaunchSpecification [Text] +iilsGroupIds = lens _iilsGroupIds (\s a -> s { _iilsGroupIds = a }) . _List + +-- | One or more security group names. +iilsGroupNames :: Lens' ImportInstanceLaunchSpecification [Text] +iilsGroupNames = lens _iilsGroupNames (\s a -> s { _iilsGroupNames = a }) . _List + +-- | 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 instance type. For more information, see in the /AmazonElastic Compute Cloud User Guide/. +iilsInstanceType :: Lens' ImportInstanceLaunchSpecification (Maybe InstanceType) +iilsInstanceType = lens _iilsInstanceType (\s a -> s { _iilsInstanceType = a }) + +iilsMonitoring :: Lens' ImportInstanceLaunchSpecification (Maybe Bool) +iilsMonitoring = lens _iilsMonitoring (\s a -> s { _iilsMonitoring = a }) + +iilsPlacement :: Lens' ImportInstanceLaunchSpecification (Maybe Placement) +iilsPlacement = lens _iilsPlacement (\s a -> s { _iilsPlacement = a }) + +-- | [EC2-VPC] Optionally, you can use this parameter to assign the instance a +-- specific available IP address from the IP address range of the subnet. +iilsPrivateIpAddress :: Lens' ImportInstanceLaunchSpecification (Maybe Text) +iilsPrivateIpAddress = + lens _iilsPrivateIpAddress (\s a -> s { _iilsPrivateIpAddress = a }) + +-- | [EC2-VPC] The ID of the subnet to launch the instance into. +iilsSubnetId :: Lens' ImportInstanceLaunchSpecification (Maybe Text) +iilsSubnetId = lens _iilsSubnetId (\s a -> s { _iilsSubnetId = a }) + +-- | User data to be made available to the instance. +iilsUserData :: Lens' ImportInstanceLaunchSpecification (Maybe Text) +iilsUserData = lens _iilsUserData (\s a -> s { _iilsUserData = a }) + +instance FromXML ImportInstanceLaunchSpecification where + parseXML x = ImportInstanceLaunchSpecification + <$> x .@? "additionalInfo" + <*> x .@? "architecture" + <*> x .@ "GroupId" + <*> x .@ "GroupName" + <*> x .@? "instanceInitiatedShutdownBehavior" + <*> x .@? "instanceType" + <*> x .@? "monitoring" + <*> x .@? "placement" + <*> x .@? "privateIpAddress" + <*> x .@? "subnetId" + <*> x .@? "userData" + +instance ToQuery ImportInstanceLaunchSpecification where + toQuery ImportInstanceLaunchSpecification{..} = mconcat + [ "additionalInfo" =? _iilsAdditionalInfo + , "architecture" =? _iilsArchitecture + , "GroupId" =? _iilsGroupIds + , "GroupName" =? _iilsGroupNames + , "instanceInitiatedShutdownBehavior" =? _iilsInstanceInitiatedShutdownBehavior + , "instanceType" =? _iilsInstanceType + , "monitoring" =? _iilsMonitoring + , "placement" =? _iilsPlacement + , "privateIpAddress" =? _iilsPrivateIpAddress + , "subnetId" =? _iilsSubnetId + , "userData" =? _iilsUserData + ] + +data Snapshot = Snapshot + { _sDescription :: Maybe Text + , _sEncrypted :: Maybe Bool + , _sOwnerAlias :: Maybe Text + , _sOwnerId :: Maybe Text + , _sProgress :: Maybe Text + , _sSnapshotId :: Maybe Text + , _sStartTime :: Maybe ISO8601 + , _sState :: Maybe SnapshotState + , _sTags :: List "item" Tag + , _sVolumeId :: Maybe Text + , _sVolumeSize :: Maybe Int + } deriving (Eq, Show) + +-- | 'Snapshot' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'sDescription' @::@ 'Maybe' 'Text' +-- +-- * 'sEncrypted' @::@ 'Maybe' 'Bool' +-- +-- * 'sOwnerAlias' @::@ 'Maybe' 'Text' +-- +-- * 'sOwnerId' @::@ 'Maybe' 'Text' +-- +-- * 'sProgress' @::@ 'Maybe' 'Text' +-- +-- * 'sSnapshotId' @::@ 'Maybe' 'Text' +-- +-- * 'sStartTime' @::@ 'Maybe' 'UTCTime' +-- +-- * 'sState' @::@ 'Maybe' 'SnapshotState' +-- +-- * 'sTags' @::@ ['Tag'] +-- +-- * 'sVolumeId' @::@ 'Maybe' 'Text' +-- +-- * 'sVolumeSize' @::@ 'Maybe' 'Int' +-- +snapshot :: Snapshot +snapshot = Snapshot + { _sSnapshotId = Nothing + , _sVolumeId = Nothing + , _sState = Nothing + , _sStartTime = Nothing + , _sProgress = Nothing + , _sOwnerId = Nothing + , _sDescription = Nothing + , _sVolumeSize = Nothing + , _sOwnerAlias = Nothing + , _sTags = mempty + , _sEncrypted = Nothing + } + +-- | The description for the snapshot. +sDescription :: Lens' Snapshot (Maybe Text) +sDescription = lens _sDescription (\s a -> s { _sDescription = a }) + +-- | Indicates whether the snapshot is encrypted. +sEncrypted :: Lens' Snapshot (Maybe Bool) +sEncrypted = lens _sEncrypted (\s a -> s { _sEncrypted = a }) + +-- | The AWS account alias (for example, 'amazon', 'self') or AWS account ID that owns +-- the snapshot. +sOwnerAlias :: Lens' Snapshot (Maybe Text) +sOwnerAlias = lens _sOwnerAlias (\s a -> s { _sOwnerAlias = a }) + +-- | The AWS account ID of the Amazon EBS snapshot owner. +sOwnerId :: Lens' Snapshot (Maybe Text) +sOwnerId = lens _sOwnerId (\s a -> s { _sOwnerId = a }) + +-- | The progress of the snapshot, as a percentage. +sProgress :: Lens' Snapshot (Maybe Text) +sProgress = lens _sProgress (\s a -> s { _sProgress = a }) + +-- | The ID of the snapshot. +sSnapshotId :: Lens' Snapshot (Maybe Text) +sSnapshotId = lens _sSnapshotId (\s a -> s { _sSnapshotId = a }) + +-- | The time stamp when the snapshot was initiated. +sStartTime :: Lens' Snapshot (Maybe UTCTime) +sStartTime = lens _sStartTime (\s a -> s { _sStartTime = a }) . mapping _Time + +-- | The snapshot state. +sState :: Lens' Snapshot (Maybe SnapshotState) +sState = lens _sState (\s a -> s { _sState = a }) + +-- | Any tags assigned to the snapshot. +sTags :: Lens' Snapshot [Tag] +sTags = lens _sTags (\s a -> s { _sTags = a }) . _List + +-- | The ID of the volume. +sVolumeId :: Lens' Snapshot (Maybe Text) +sVolumeId = lens _sVolumeId (\s a -> s { _sVolumeId = a }) + +-- | The size of the volume, in GiB. +sVolumeSize :: Lens' Snapshot (Maybe Int) +sVolumeSize = lens _sVolumeSize (\s a -> s { _sVolumeSize = a }) + +instance FromXML Snapshot where + parseXML x = Snapshot + <$> x .@? "description" + <*> x .@? "encrypted" + <*> x .@? "ownerAlias" + <*> x .@? "ownerId" + <*> x .@? "progress" + <*> x .@? "snapshotId" + <*> x .@? "startTime" + <*> x .@? "status" + <*> x .@ "tagSet" + <*> x .@? "volumeId" + <*> x .@? "volumeSize" + +instance ToQuery Snapshot where + toQuery Snapshot{..} = mconcat + [ "description" =? _sDescription + , "encrypted" =? _sEncrypted + , "ownerAlias" =? _sOwnerAlias + , "ownerId" =? _sOwnerId + , "progress" =? _sProgress + , "snapshotId" =? _sSnapshotId + , "startTime" =? _sStartTime + , "status" =? _sState + , "tagSet" =? _sTags + , "volumeId" =? _sVolumeId + , "volumeSize" =? _sVolumeSize + ] + +data SpotInstanceStateFault = SpotInstanceStateFault + { _sisfCode :: Maybe Text + , _sisfMessage :: Maybe Text + } deriving (Eq, Ord, Show) + +-- | 'SpotInstanceStateFault' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'sisfCode' @::@ 'Maybe' 'Text' +-- +-- * 'sisfMessage' @::@ 'Maybe' 'Text' +-- +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 ToQuery SpotInstanceStateFault where + toQuery SpotInstanceStateFault{..} = mconcat + [ "code" =? _sisfCode + , "message" =? _sisfMessage + ] + +data TagDescription = TagDescription + { _tdKey :: Text + , _tdResourceId :: Text + , _tdResourceType :: ResourceType + , _tdValue :: Text + } deriving (Eq, Show) + +-- | 'TagDescription' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'tdKey' @::@ 'Text' +-- +-- * 'tdResourceId' @::@ 'Text' +-- +-- * 'tdResourceType' @::@ 'ResourceType' +-- +-- * 'tdValue' @::@ 'Text' +-- +tagDescription :: Text -- ^ 'tdResourceId' + -> ResourceType -- ^ 'tdResourceType' + -> Text -- ^ 'tdKey' + -> Text -- ^ 'tdValue' + -> TagDescription +tagDescription p1 p2 p3 p4 = TagDescription + { _tdResourceId = p1 + , _tdResourceType = p2 + , _tdKey = p3 + , _tdValue = p4 + } + +-- | The key of the tag. +tdKey :: Lens' TagDescription Text +tdKey = lens _tdKey (\s a -> s { _tdKey = a }) + +-- | The ID of the resource. For example, 'ami-1a2b3c4d'. +tdResourceId :: Lens' TagDescription Text +tdResourceId = lens _tdResourceId (\s a -> s { _tdResourceId = a }) + +-- | The type of resource. +tdResourceType :: Lens' TagDescription ResourceType +tdResourceType = lens _tdResourceType (\s a -> s { _tdResourceType = a }) + +-- | The value of the tag. +tdValue :: Lens' TagDescription Text +tdValue = lens _tdValue (\s a -> s { _tdValue = a }) + +instance FromXML TagDescription where + parseXML x = TagDescription + <$> x .@ "key" + <*> x .@ "resourceId" + <*> x .@ "resourceType" + <*> x .@ "value" + +instance ToQuery TagDescription where + toQuery TagDescription{..} = mconcat + [ "key" =? _tdKey + , "resourceId" =? _tdResourceId + , "resourceType" =? _tdResourceType + , "value" =? _tdValue + ] + +data GroupIdentifier = GroupIdentifier + { _giGroupId :: Maybe Text + , _giGroupName :: Maybe Text + } deriving (Eq, Ord, Show) + +-- | 'GroupIdentifier' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'giGroupId' @::@ 'Maybe' 'Text' +-- +-- * 'giGroupName' @::@ 'Maybe' 'Text' +-- +groupIdentifier :: GroupIdentifier +groupIdentifier = GroupIdentifier + { _giGroupName = Nothing + , _giGroupId = 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 ToQuery GroupIdentifier where + toQuery GroupIdentifier{..} = mconcat + [ "groupId" =? _giGroupId + , "groupName" =? _giGroupName + ] + +data VpnStaticRouteSource + = Static -- ^ Static + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable VpnStaticRouteSource + +instance FromText VpnStaticRouteSource where + parser = takeText >>= \case + "Static" -> pure Static + e -> fail $ + "Failure parsing VpnStaticRouteSource from " ++ show e + +instance ToText VpnStaticRouteSource where + toText Static = "Static" + +instance ToByteString VpnStaticRouteSource +instance ToHeader VpnStaticRouteSource +instance ToQuery VpnStaticRouteSource + +instance FromXML VpnStaticRouteSource where + parseXML = parseXMLText "VpnStaticRouteSource" + +data ReservedInstancesListing = ReservedInstancesListing + { _rilClientToken :: Maybe Text + , _rilCreateDate :: Maybe ISO8601 + , _rilInstanceCounts :: List "item" InstanceCount + , _rilPriceSchedules :: List "item" PriceSchedule + , _rilReservedInstancesId :: Maybe Text + , _rilReservedInstancesListingId :: Maybe Text + , _rilStatus :: Maybe ListingStatus + , _rilStatusMessage :: Maybe Text + , _rilTags :: List "item" Tag + , _rilUpdateDate :: Maybe ISO8601 + } deriving (Eq, Show) + +-- | 'ReservedInstancesListing' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'rilClientToken' @::@ 'Maybe' 'Text' +-- +-- * 'rilCreateDate' @::@ 'Maybe' 'UTCTime' +-- +-- * 'rilInstanceCounts' @::@ ['InstanceCount'] +-- +-- * 'rilPriceSchedules' @::@ ['PriceSchedule'] +-- +-- * 'rilReservedInstancesId' @::@ 'Maybe' 'Text' +-- +-- * 'rilReservedInstancesListingId' @::@ 'Maybe' 'Text' +-- +-- * 'rilStatus' @::@ 'Maybe' 'ListingStatus' +-- +-- * 'rilStatusMessage' @::@ 'Maybe' 'Text' +-- +-- * 'rilTags' @::@ ['Tag'] +-- +-- * 'rilUpdateDate' @::@ 'Maybe' 'UTCTime' +-- +reservedInstancesListing :: ReservedInstancesListing +reservedInstancesListing = ReservedInstancesListing + { _rilReservedInstancesListingId = Nothing + , _rilReservedInstancesId = Nothing + , _rilCreateDate = Nothing + , _rilUpdateDate = Nothing + , _rilStatus = Nothing + , _rilStatusMessage = Nothing + , _rilInstanceCounts = mempty + , _rilPriceSchedules = mempty + , _rilTags = mempty + , _rilClientToken = Nothing + } + +-- | The idempotency token you provided when you created the listing. +rilClientToken :: Lens' ReservedInstancesListing (Maybe Text) +rilClientToken = lens _rilClientToken (\s a -> s { _rilClientToken = a }) + +-- | The time the listing was created. +rilCreateDate :: Lens' ReservedInstancesListing (Maybe UTCTime) +rilCreateDate = lens _rilCreateDate (\s a -> s { _rilCreateDate = a }) . mapping _Time + +-- | The number of instances in this state. +rilInstanceCounts :: Lens' ReservedInstancesListing [InstanceCount] +rilInstanceCounts = + lens _rilInstanceCounts (\s a -> s { _rilInstanceCounts = a }) + . _List + +-- | The price of the Reserved Instance listing. +rilPriceSchedules :: Lens' ReservedInstancesListing [PriceSchedule] +rilPriceSchedules = + lens _rilPriceSchedules (\s a -> s { _rilPriceSchedules = a }) + . _List + +-- | The ID of the Reserved Instance. +rilReservedInstancesId :: Lens' ReservedInstancesListing (Maybe Text) +rilReservedInstancesId = + lens _rilReservedInstancesId (\s a -> s { _rilReservedInstancesId = a }) + +-- | The ID of the Reserved Instance listing. +rilReservedInstancesListingId :: Lens' ReservedInstancesListing (Maybe Text) +rilReservedInstancesListingId = + lens _rilReservedInstancesListingId + (\s a -> s { _rilReservedInstancesListingId = a }) + +-- | The status of the Reserved Instance listing. +rilStatus :: Lens' ReservedInstancesListing (Maybe ListingStatus) +rilStatus = lens _rilStatus (\s a -> s { _rilStatus = a }) + +-- | 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 }) + +-- | Any tags assigned to the resource. +rilTags :: Lens' ReservedInstancesListing [Tag] +rilTags = lens _rilTags (\s a -> s { _rilTags = a }) . _List + +-- | The last modified timestamp of the listing. +rilUpdateDate :: Lens' ReservedInstancesListing (Maybe UTCTime) +rilUpdateDate = lens _rilUpdateDate (\s a -> s { _rilUpdateDate = a }) . mapping _Time + +instance FromXML ReservedInstancesListing where + parseXML x = ReservedInstancesListing + <$> x .@? "clientToken" + <*> x .@? "createDate" + <*> x .@ "instanceCounts" + <*> x .@ "priceSchedules" + <*> x .@? "reservedInstancesId" + <*> x .@? "reservedInstancesListingId" + <*> x .@? "status" + <*> x .@? "statusMessage" + <*> x .@ "tagSet" + <*> x .@? "updateDate" + +instance ToQuery ReservedInstancesListing where + toQuery ReservedInstancesListing{..} = mconcat + [ "clientToken" =? _rilClientToken + , "createDate" =? _rilCreateDate + , "instanceCounts" =? _rilInstanceCounts + , "priceSchedules" =? _rilPriceSchedules + , "reservedInstancesId" =? _rilReservedInstancesId + , "reservedInstancesListingId" =? _rilReservedInstancesListingId + , "status" =? _rilStatus + , "statusMessage" =? _rilStatusMessage + , "tagSet" =? _rilTags + , "updateDate" =? _rilUpdateDate + ] + +data InstanceLifecycleType + = Spot -- ^ spot + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable InstanceLifecycleType + +instance FromText InstanceLifecycleType where + parser = takeText >>= \case + "spot" -> pure Spot + e -> fail $ + "Failure parsing InstanceLifecycleType from " ++ show e + +instance ToText InstanceLifecycleType where + toText Spot = "spot" + +instance ToByteString InstanceLifecycleType +instance ToHeader InstanceLifecycleType +instance ToQuery InstanceLifecycleType + +instance FromXML InstanceLifecycleType where + parseXML = parseXMLText "InstanceLifecycleType" + +data VirtualizationType + = Hvm -- ^ hvm + | Paravirtual -- ^ paravirtual + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable VirtualizationType + +instance FromText VirtualizationType where + parser = takeText >>= \case + "hvm" -> pure Hvm + "paravirtual" -> pure Paravirtual + e -> fail $ + "Failure parsing VirtualizationType from " ++ show e + +instance ToText VirtualizationType where + toText = \case + Hvm -> "hvm" + Paravirtual -> "paravirtual" + +instance ToByteString VirtualizationType +instance ToHeader VirtualizationType +instance ToQuery VirtualizationType + +instance FromXML VirtualizationType where + parseXML = parseXMLText "VirtualizationType" + +data NetworkInterfaceStatus + = Attaching -- ^ attaching + | Available -- ^ available + | Detaching -- ^ detaching + | InUse -- ^ in-use + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable NetworkInterfaceStatus + +instance FromText NetworkInterfaceStatus where + parser = takeText >>= \case + "attaching" -> pure Attaching + "available" -> pure Available + "detaching" -> pure Detaching + "in-use" -> pure InUse + e -> fail $ + "Failure parsing NetworkInterfaceStatus from " ++ show e + +instance ToText NetworkInterfaceStatus where + toText = \case + Attaching -> "attaching" + Available -> "available" + Detaching -> "detaching" + InUse -> "in-use" + +instance ToByteString NetworkInterfaceStatus +instance ToHeader NetworkInterfaceStatus +instance ToQuery NetworkInterfaceStatus + +instance FromXML NetworkInterfaceStatus where + parseXML = parseXMLText "NetworkInterfaceStatus" + +data PlatformValues + = Windows -- ^ Windows + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable PlatformValues + +instance FromText PlatformValues where + parser = takeText >>= \case + "Windows" -> pure Windows + e -> fail $ + "Failure parsing PlatformValues from " ++ show e + +instance ToText PlatformValues where + toText Windows = "Windows" + +instance ToByteString PlatformValues +instance ToHeader PlatformValues +instance ToQuery PlatformValues + +instance FromXML PlatformValues where + parseXML = parseXMLText "PlatformValues" + +data CreateVolumePermission = CreateVolumePermission + { _cvpGroup :: Maybe PermissionGroup + , _cvpUserId :: Maybe Text + } deriving (Eq, Show) + +-- | 'CreateVolumePermission' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'cvpGroup' @::@ 'Maybe' 'PermissionGroup' +-- +-- * 'cvpUserId' @::@ 'Maybe' 'Text' +-- +createVolumePermission :: CreateVolumePermission +createVolumePermission = CreateVolumePermission + { _cvpUserId = Nothing + , _cvpGroup = 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 ToQuery CreateVolumePermission where + toQuery CreateVolumePermission{..} = mconcat + [ "group" =? _cvpGroup + , "userId" =? _cvpUserId + ] + +data NetworkInterfaceAttachmentChanges = NetworkInterfaceAttachmentChanges + { _niacAttachmentId :: Maybe Text + , _niacDeleteOnTermination :: Maybe Bool + } deriving (Eq, Ord, Show) + +-- | 'NetworkInterfaceAttachmentChanges' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'niacAttachmentId' @::@ 'Maybe' 'Text' +-- +-- * 'niacDeleteOnTermination' @::@ 'Maybe' 'Bool' +-- +networkInterfaceAttachmentChanges :: NetworkInterfaceAttachmentChanges +networkInterfaceAttachmentChanges = NetworkInterfaceAttachmentChanges + { _niacAttachmentId = Nothing + , _niacDeleteOnTermination = Nothing + } + +-- | The ID of the network interface attachment. +niacAttachmentId :: Lens' NetworkInterfaceAttachmentChanges (Maybe Text) +niacAttachmentId = lens _niacAttachmentId (\s a -> s { _niacAttachmentId = a }) + +-- | 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 }) + +instance FromXML NetworkInterfaceAttachmentChanges where + parseXML x = NetworkInterfaceAttachmentChanges + <$> x .@? "attachmentId" + <*> x .@? "deleteOnTermination" + +instance ToQuery NetworkInterfaceAttachmentChanges where + toQuery NetworkInterfaceAttachmentChanges{..} = mconcat + [ "attachmentId" =? _niacAttachmentId + , "deleteOnTermination" =? _niacDeleteOnTermination + ] + +data RecurringChargeFrequency + = Hourly -- ^ Hourly + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable RecurringChargeFrequency + +instance FromText RecurringChargeFrequency where + parser = takeText >>= \case + "Hourly" -> pure Hourly + e -> fail $ + "Failure parsing RecurringChargeFrequency from " ++ show e + +instance ToText RecurringChargeFrequency where + toText Hourly = "Hourly" + +instance ToByteString RecurringChargeFrequency +instance ToHeader RecurringChargeFrequency +instance ToQuery RecurringChargeFrequency + +instance FromXML RecurringChargeFrequency where + parseXML = parseXMLText "RecurringChargeFrequency" + +data DhcpOptions = DhcpOptions + { _doDhcpConfigurations :: List "item" DhcpConfiguration + , _doDhcpOptionsId :: Maybe Text + , _doTags :: List "item" Tag + } deriving (Eq, Show) + +-- | 'DhcpOptions' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'doDhcpConfigurations' @::@ ['DhcpConfiguration'] +-- +-- * 'doDhcpOptionsId' @::@ 'Maybe' 'Text' +-- +-- * 'doTags' @::@ ['Tag'] +-- +dhcpOptions :: DhcpOptions +dhcpOptions = DhcpOptions + { _doDhcpOptionsId = Nothing + , _doDhcpConfigurations = mempty + , _doTags = mempty + } + +-- | One or more DHCP options in the set. +doDhcpConfigurations :: Lens' DhcpOptions [DhcpConfiguration] +doDhcpConfigurations = + lens _doDhcpConfigurations (\s a -> s { _doDhcpConfigurations = a }) + . _List + +-- | 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 }) . _List + +instance FromXML DhcpOptions where + parseXML x = DhcpOptions + <$> x .@ "dhcpConfigurationSet" + <*> x .@? "dhcpOptionsId" + <*> x .@ "tagSet" + +instance ToQuery DhcpOptions where + toQuery DhcpOptions{..} = mconcat + [ "dhcpConfigurationSet" =? _doDhcpConfigurations + , "dhcpOptionsId" =? _doDhcpOptionsId + , "tagSet" =? _doTags + ] + +data InstanceNetworkInterfaceSpecification = InstanceNetworkInterfaceSpecification + { _inisAssociatePublicIpAddress :: Maybe Bool + , _inisDeleteOnTermination :: Maybe Bool + , _inisDescription :: Maybe Text + , _inisDeviceIndex :: Maybe Int + , _inisGroups :: List "SecurityGroupId" Text + , _inisNetworkInterfaceId :: Maybe Text + , _inisPrivateIpAddress :: Maybe Text + , _inisPrivateIpAddresses :: List "item" PrivateIpAddressSpecification + , _inisSecondaryPrivateIpAddressCount :: Maybe Int + , _inisSubnetId :: Maybe Text + } deriving (Eq, Show) + +-- | 'InstanceNetworkInterfaceSpecification' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'inisAssociatePublicIpAddress' @::@ 'Maybe' 'Bool' +-- +-- * 'inisDeleteOnTermination' @::@ 'Maybe' 'Bool' +-- +-- * 'inisDescription' @::@ 'Maybe' 'Text' +-- +-- * 'inisDeviceIndex' @::@ 'Maybe' 'Int' +-- +-- * 'inisGroups' @::@ ['Text'] +-- +-- * 'inisNetworkInterfaceId' @::@ 'Maybe' 'Text' +-- +-- * 'inisPrivateIpAddress' @::@ 'Maybe' 'Text' +-- +-- * 'inisPrivateIpAddresses' @::@ ['PrivateIpAddressSpecification'] +-- +-- * 'inisSecondaryPrivateIpAddressCount' @::@ 'Maybe' 'Int' +-- +-- * 'inisSubnetId' @::@ 'Maybe' 'Text' +-- +instanceNetworkInterfaceSpecification :: InstanceNetworkInterfaceSpecification +instanceNetworkInterfaceSpecification = InstanceNetworkInterfaceSpecification + { _inisNetworkInterfaceId = Nothing + , _inisDeviceIndex = Nothing + , _inisSubnetId = Nothing + , _inisDescription = Nothing + , _inisPrivateIpAddress = Nothing + , _inisGroups = mempty + , _inisDeleteOnTermination = Nothing + , _inisPrivateIpAddresses = mempty + , _inisSecondaryPrivateIpAddressCount = Nothing + , _inisAssociatePublicIpAddress = Nothing + } + +-- | Indicates whether to assign a public IP 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 +-- luanching into a default subnet, the default value is 'true'. +inisAssociatePublicIpAddress :: Lens' InstanceNetworkInterfaceSpecification (Maybe Bool) +inisAssociatePublicIpAddress = + lens _inisAssociatePublicIpAddress + (\s a -> s { _inisAssociatePublicIpAddress = a }) + +-- | 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 }) + +-- | 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 }) + +-- | 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 }) . _List + +-- | The ID of the network interface. +inisNetworkInterfaceId :: Lens' InstanceNetworkInterfaceSpecification (Maybe Text) +inisNetworkInterfaceId = + lens _inisNetworkInterfaceId (\s a -> s { _inisNetworkInterfaceId = a }) + +-- | The private IP address of the network interface. Applies only if creating a +-- network interface when launching an instance. +inisPrivateIpAddress :: Lens' InstanceNetworkInterfaceSpecification (Maybe Text) +inisPrivateIpAddress = + lens _inisPrivateIpAddress (\s a -> s { _inisPrivateIpAddress = a }) + +-- | One or more private IP addresses to assign to the network interface. Only one +-- private IP address can be designated as primary. +inisPrivateIpAddresses :: Lens' InstanceNetworkInterfaceSpecification [PrivateIpAddressSpecification] +inisPrivateIpAddresses = + lens _inisPrivateIpAddresses (\s a -> s { _inisPrivateIpAddresses = a }) + . _List + +-- | The number of secondary private IP addresses. You can't specify this option +-- and specify more than one private IP address using the private IP addresses +-- option. +inisSecondaryPrivateIpAddressCount :: Lens' InstanceNetworkInterfaceSpecification (Maybe Int) +inisSecondaryPrivateIpAddressCount = + lens _inisSecondaryPrivateIpAddressCount + (\s a -> s { _inisSecondaryPrivateIpAddressCount = 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 }) + +instance FromXML InstanceNetworkInterfaceSpecification where + parseXML x = InstanceNetworkInterfaceSpecification + <$> x .@? "associatePublicIpAddress" + <*> x .@? "deleteOnTermination" + <*> x .@? "description" + <*> x .@? "deviceIndex" + <*> x .@ "SecurityGroupId" + <*> x .@? "networkInterfaceId" + <*> x .@? "privateIpAddress" + <*> x .@ "privateIpAddressesSet" + <*> x .@? "secondaryPrivateIpAddressCount" + <*> x .@? "subnetId" + +instance ToQuery InstanceNetworkInterfaceSpecification where + toQuery InstanceNetworkInterfaceSpecification{..} = mconcat + [ "associatePublicIpAddress" =? _inisAssociatePublicIpAddress + , "deleteOnTermination" =? _inisDeleteOnTermination + , "description" =? _inisDescription + , "deviceIndex" =? _inisDeviceIndex + , "SecurityGroupId" =? _inisGroups + , "networkInterfaceId" =? _inisNetworkInterfaceId + , "privateIpAddress" =? _inisPrivateIpAddress + , "privateIpAddressesSet" =? _inisPrivateIpAddresses + , "secondaryPrivateIpAddressCount" =? _inisSecondaryPrivateIpAddressCount + , "subnetId" =? _inisSubnetId + ] + +data VolumeState + = VSAvailable -- ^ available + | VSCreating -- ^ creating + | VSDeleted -- ^ deleted + | VSDeleting -- ^ deleting + | VSError -- ^ error + | VSInUse -- ^ in-use + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable VolumeState + +instance FromText VolumeState where + parser = takeText >>= \case + "available" -> pure VSAvailable + "creating" -> pure VSCreating + "deleted" -> pure VSDeleted + "deleting" -> pure VSDeleting + "error" -> pure VSError + "in-use" -> pure VSInUse + e -> fail $ + "Failure parsing VolumeState from " ++ show e + +instance ToText VolumeState where + toText = \case + VSAvailable -> "available" + VSCreating -> "creating" + VSDeleted -> "deleted" + VSDeleting -> "deleting" + VSError -> "error" + VSInUse -> "in-use" + +instance ToByteString VolumeState +instance ToHeader VolumeState +instance ToQuery VolumeState + +instance FromXML VolumeState where + parseXML = parseXMLText "VolumeState" + +newtype AttributeValue = AttributeValue + { _avValue :: Maybe Text + } deriving (Eq, Ord, Show, Monoid) + +-- | 'AttributeValue' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'avValue' @::@ 'Maybe' 'Text' +-- +attributeValue :: AttributeValue +attributeValue = AttributeValue + { _avValue = Nothing + } + +avValue :: Lens' AttributeValue (Maybe Text) +avValue = lens _avValue (\s a -> s { _avValue = a }) + +instance FromXML AttributeValue where + parseXML x = AttributeValue + <$> x .@? "value" + +instance ToQuery AttributeValue where + toQuery AttributeValue{..} = mconcat + [ "value" =? _avValue + ] + +data PrivateIpAddressSpecification = PrivateIpAddressSpecification + { _piasPrimary :: Maybe Bool + , _piasPrivateIpAddress :: Text + } deriving (Eq, Ord, Show) + +-- | 'PrivateIpAddressSpecification' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'piasPrimary' @::@ 'Maybe' 'Bool' +-- +-- * 'piasPrivateIpAddress' @::@ 'Text' +-- +privateIpAddressSpecification :: Text -- ^ 'piasPrivateIpAddress' + -> PrivateIpAddressSpecification +privateIpAddressSpecification p1 = PrivateIpAddressSpecification + { _piasPrivateIpAddress = p1 + , _piasPrimary = Nothing + } + +-- | Indicates whether the private IP address is the primary private IP address. +-- Only one IP address can be designated as primary. +piasPrimary :: Lens' PrivateIpAddressSpecification (Maybe Bool) +piasPrimary = lens _piasPrimary (\s a -> s { _piasPrimary = a }) + +-- | The private IP 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 ToQuery PrivateIpAddressSpecification where + toQuery PrivateIpAddressSpecification{..} = mconcat + [ "primary" =? _piasPrimary + , "privateIpAddress" =? _piasPrivateIpAddress + ] + +data Image = Image + { _iArchitecture :: ArchitectureValues + , _iBlockDeviceMappings :: List "item" BlockDeviceMapping + , _iDescription :: Maybe Text + , _iHypervisor :: HypervisorType + , _iImageId :: Text + , _iImageLocation :: Text + , _iImageOwnerAlias :: Maybe Text + , _iImageType :: ImageTypeValues + , _iKernelId :: Maybe Text + , _iName :: Text + , _iOwnerId :: Text + , _iPlatform :: Maybe PlatformValues + , _iProductCodes :: List "item" ProductCode + , _iPublic :: Bool + , _iRamdiskId :: Maybe Text + , _iRootDeviceName :: Maybe Text + , _iRootDeviceType :: DeviceType + , _iSriovNetSupport :: Maybe Text + , _iState :: ImageState + , _iStateReason :: Maybe StateReason + , _iTags :: List "item" Tag + , _iVirtualizationType :: VirtualizationType + } deriving (Eq, Show) + +-- | 'Image' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'iArchitecture' @::@ 'ArchitectureValues' +-- +-- * 'iBlockDeviceMappings' @::@ ['BlockDeviceMapping'] +-- +-- * 'iDescription' @::@ 'Maybe' 'Text' +-- +-- * 'iHypervisor' @::@ 'HypervisorType' +-- +-- * 'iImageId' @::@ 'Text' +-- +-- * 'iImageLocation' @::@ 'Text' +-- +-- * 'iImageOwnerAlias' @::@ 'Maybe' 'Text' +-- +-- * 'iImageType' @::@ 'ImageTypeValues' +-- +-- * 'iKernelId' @::@ 'Maybe' 'Text' +-- +-- * 'iName' @::@ 'Text' +-- +-- * 'iOwnerId' @::@ 'Text' +-- +-- * 'iPlatform' @::@ 'Maybe' 'PlatformValues' +-- +-- * 'iProductCodes' @::@ ['ProductCode'] +-- +-- * 'iPublic' @::@ 'Bool' +-- +-- * 'iRamdiskId' @::@ 'Maybe' 'Text' +-- +-- * 'iRootDeviceName' @::@ 'Maybe' 'Text' +-- +-- * 'iRootDeviceType' @::@ 'DeviceType' +-- +-- * 'iSriovNetSupport' @::@ 'Maybe' 'Text' +-- +-- * 'iState' @::@ 'ImageState' +-- +-- * 'iStateReason' @::@ 'Maybe' 'StateReason' +-- +-- * 'iTags' @::@ ['Tag'] +-- +-- * 'iVirtualizationType' @::@ 'VirtualizationType' +-- +image :: Text -- ^ 'iImageId' + -> Text -- ^ 'iImageLocation' + -> ImageState -- ^ 'iState' + -> Text -- ^ 'iOwnerId' + -> Bool -- ^ 'iPublic' + -> ArchitectureValues -- ^ 'iArchitecture' + -> ImageTypeValues -- ^ 'iImageType' + -> Text -- ^ 'iName' + -> DeviceType -- ^ 'iRootDeviceType' + -> VirtualizationType -- ^ 'iVirtualizationType' + -> HypervisorType -- ^ 'iHypervisor' + -> Image +image p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 = Image + { _iImageId = p1 + , _iImageLocation = p2 + , _iState = p3 + , _iOwnerId = p4 + , _iPublic = p5 + , _iArchitecture = p6 + , _iImageType = p7 + , _iName = p8 + , _iRootDeviceType = p9 + , _iVirtualizationType = p10 + , _iHypervisor = p11 + , _iProductCodes = mempty + , _iKernelId = Nothing + , _iRamdiskId = Nothing + , _iPlatform = Nothing + , _iSriovNetSupport = Nothing + , _iStateReason = Nothing + , _iImageOwnerAlias = Nothing + , _iDescription = Nothing + , _iRootDeviceName = Nothing + , _iBlockDeviceMappings = mempty + , _iTags = mempty + } + +-- | The architecture of the image. +iArchitecture :: Lens' Image ArchitectureValues +iArchitecture = lens _iArchitecture (\s a -> s { _iArchitecture = a }) + +-- | Any block device mapping entries. +iBlockDeviceMappings :: Lens' Image [BlockDeviceMapping] +iBlockDeviceMappings = + lens _iBlockDeviceMappings (\s a -> s { _iBlockDeviceMappings = a }) + . _List + +-- | The description of the AMI that was provided during image creation. +iDescription :: Lens' Image (Maybe Text) +iDescription = lens _iDescription (\s a -> s { _iDescription = a }) + +-- | The hypervisor type of the image. +iHypervisor :: Lens' Image HypervisorType +iHypervisor = lens _iHypervisor (\s a -> s { _iHypervisor = a }) + +-- | 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 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 type of image. +iImageType :: Lens' Image ImageTypeValues +iImageType = lens _iImageType (\s a -> s { _iImageType = 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 name of the AMI that was provided during image creation. +iName :: Lens' Image Text +iName = lens _iName (\s a -> s { _iName = a }) + +-- | The AWS account ID of the image owner. +iOwnerId :: Lens' Image Text +iOwnerId = lens _iOwnerId (\s a -> s { _iOwnerId = a }) + +-- | The value is 'Windows' for Windows AMIs; otherwise blank. +iPlatform :: Lens' Image (Maybe PlatformValues) +iPlatform = lens _iPlatform (\s a -> s { _iPlatform = a }) + +-- | Any product codes associated with the AMI. +iProductCodes :: Lens' Image [ProductCode] +iProductCodes = lens _iProductCodes (\s a -> s { _iProductCodes = a }) . _List + +-- | 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 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 device name of the root device (for example, /dev/sda1 or xvda). +iRootDeviceName :: Lens' Image (Maybe Text) +iRootDeviceName = lens _iRootDeviceName (\s a -> s { _iRootDeviceName = a }) + +-- | The type of root device used by the AMI. The AMI can use an Amazon EBS volume +-- or an instance store volume. +iRootDeviceType :: Lens' Image DeviceType +iRootDeviceType = lens _iRootDeviceType (\s a -> s { _iRootDeviceType = a }) + +-- | Specifies whether enhanced networking is enabled. +iSriovNetSupport :: Lens' Image (Maybe Text) +iSriovNetSupport = lens _iSriovNetSupport (\s a -> s { _iSriovNetSupport = 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 reason for the state change. +iStateReason :: Lens' Image (Maybe StateReason) +iStateReason = lens _iStateReason (\s a -> s { _iStateReason = a }) + +-- | Any tags assigned to the image. +iTags :: Lens' Image [Tag] +iTags = lens _iTags (\s a -> s { _iTags = a }) . _List + +-- | The type of virtualization of the AMI. +iVirtualizationType :: Lens' Image VirtualizationType +iVirtualizationType = + lens _iVirtualizationType (\s a -> s { _iVirtualizationType = a }) + +instance FromXML Image where + parseXML x = Image + <$> x .@ "architecture" + <*> x .@ "blockDeviceMapping" + <*> x .@? "description" + <*> x .@ "hypervisor" + <*> x .@ "imageId" + <*> x .@ "imageLocation" + <*> x .@? "imageOwnerAlias" + <*> x .@ "imageType" + <*> x .@? "kernelId" + <*> x .@ "name" + <*> x .@ "imageOwnerId" + <*> x .@? "platform" + <*> x .@ "productCodes" + <*> x .@ "isPublic" + <*> x .@? "ramdiskId" + <*> x .@? "rootDeviceName" + <*> x .@ "rootDeviceType" + <*> x .@? "sriovNetSupport" + <*> x .@ "imageState" + <*> x .@? "stateReason" + <*> x .@ "tagSet" + <*> x .@ "virtualizationType" + +instance ToQuery Image where + toQuery Image{..} = mconcat + [ "architecture" =? _iArchitecture + , "blockDeviceMapping" =? _iBlockDeviceMappings + , "description" =? _iDescription + , "hypervisor" =? _iHypervisor + , "imageId" =? _iImageId + , "imageLocation" =? _iImageLocation + , "imageOwnerAlias" =? _iImageOwnerAlias + , "imageType" =? _iImageType + , "kernelId" =? _iKernelId + , "name" =? _iName + , "imageOwnerId" =? _iOwnerId + , "platform" =? _iPlatform + , "productCodes" =? _iProductCodes + , "isPublic" =? _iPublic + , "ramdiskId" =? _iRamdiskId + , "rootDeviceName" =? _iRootDeviceName + , "rootDeviceType" =? _iRootDeviceType + , "sriovNetSupport" =? _iSriovNetSupport + , "imageState" =? _iState + , "stateReason" =? _iStateReason + , "tagSet" =? _iTags + , "virtualizationType" =? _iVirtualizationType + ] + +data DhcpConfiguration = DhcpConfiguration + { _dcKey :: Maybe Text + , _dcValues :: List "item" AttributeValue + } deriving (Eq, Show) + +-- | 'DhcpConfiguration' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'dcKey' @::@ 'Maybe' 'Text' +-- +-- * 'dcValues' @::@ ['AttributeValue'] +-- +dhcpConfiguration :: DhcpConfiguration +dhcpConfiguration = DhcpConfiguration + { _dcKey = Nothing + , _dcValues = mempty + } + +-- | The name of a DHCP option. +dcKey :: Lens' DhcpConfiguration (Maybe Text) +dcKey = lens _dcKey (\s a -> s { _dcKey = a }) + +-- | One or more values for the DHCP option. +dcValues :: Lens' DhcpConfiguration [AttributeValue] +dcValues = lens _dcValues (\s a -> s { _dcValues = a }) . _List + +instance FromXML DhcpConfiguration where + parseXML x = DhcpConfiguration + <$> x .@? "key" + <*> x .@ "valueSet" + +instance ToQuery DhcpConfiguration where + toQuery DhcpConfiguration{..} = mconcat + [ "key" =? _dcKey + , "valueSet" =? _dcValues + ] + +data Tag = Tag + { _tagKey :: Text + , _tagValue :: Text + } deriving (Eq, Ord, Show) + +-- | 'Tag' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'tagKey' @::@ 'Text' +-- +-- * 'tagValue' @::@ 'Text' +-- +tag :: Text -- ^ 'tagKey' + -> Text -- ^ 'tagValue' + -> Tag +tag p1 p2 = Tag + { _tagKey = p1 + , _tagValue = p2 + } + +-- | 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 ToQuery Tag where + toQuery Tag{..} = mconcat + [ "key" =? _tagKey + , "value" =? _tagValue + ] + +data AccountAttributeName + = DefaultVpc -- ^ default-vpc + | SupportedPlatforms -- ^ supported-platforms + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable AccountAttributeName + +instance FromText AccountAttributeName where + parser = takeText >>= \case + "default-vpc" -> pure DefaultVpc + "supported-platforms" -> pure SupportedPlatforms + e -> fail $ + "Failure parsing AccountAttributeName from " ++ show e + +instance ToText AccountAttributeName where + toText = \case + DefaultVpc -> "default-vpc" + SupportedPlatforms -> "supported-platforms" + +instance ToByteString AccountAttributeName +instance ToHeader AccountAttributeName +instance ToQuery AccountAttributeName + +instance FromXML AccountAttributeName where + parseXML = parseXMLText "AccountAttributeName" + +data NetworkInterfaceAttachment = NetworkInterfaceAttachment + { _niaAttachTime :: Maybe ISO8601 + , _niaAttachmentId :: Maybe Text + , _niaDeleteOnTermination :: Maybe Bool + , _niaDeviceIndex :: Maybe Int + , _niaInstanceId :: Maybe Text + , _niaInstanceOwnerId :: Maybe Text + , _niaStatus :: Maybe AttachmentStatus + } deriving (Eq, Show) + +-- | 'NetworkInterfaceAttachment' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'niaAttachTime' @::@ 'Maybe' 'UTCTime' +-- +-- * 'niaAttachmentId' @::@ 'Maybe' 'Text' +-- +-- * 'niaDeleteOnTermination' @::@ 'Maybe' 'Bool' +-- +-- * 'niaDeviceIndex' @::@ 'Maybe' 'Int' +-- +-- * 'niaInstanceId' @::@ 'Maybe' 'Text' +-- +-- * 'niaInstanceOwnerId' @::@ 'Maybe' 'Text' +-- +-- * 'niaStatus' @::@ 'Maybe' 'AttachmentStatus' +-- +networkInterfaceAttachment :: NetworkInterfaceAttachment +networkInterfaceAttachment = NetworkInterfaceAttachment + { _niaAttachmentId = Nothing + , _niaInstanceId = Nothing + , _niaInstanceOwnerId = Nothing + , _niaDeviceIndex = Nothing + , _niaStatus = Nothing + , _niaAttachTime = Nothing + , _niaDeleteOnTermination = Nothing + } + +-- | The timestamp indicating when the attachment initiated. +niaAttachTime :: Lens' NetworkInterfaceAttachment (Maybe UTCTime) +niaAttachTime = lens _niaAttachTime (\s a -> s { _niaAttachTime = a }) . mapping _Time + +-- | The ID of the network interface attachment. +niaAttachmentId :: Lens' NetworkInterfaceAttachment (Maybe Text) +niaAttachmentId = lens _niaAttachmentId (\s a -> s { _niaAttachmentId = 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 device index of the network interface attachment on the instance. +niaDeviceIndex :: Lens' NetworkInterfaceAttachment (Maybe Int) +niaDeviceIndex = lens _niaDeviceIndex (\s a -> s { _niaDeviceIndex = a }) + +-- | The ID of the instance. +niaInstanceId :: Lens' NetworkInterfaceAttachment (Maybe Text) +niaInstanceId = lens _niaInstanceId (\s a -> s { _niaInstanceId = 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 attachment state. +niaStatus :: Lens' NetworkInterfaceAttachment (Maybe AttachmentStatus) +niaStatus = lens _niaStatus (\s a -> s { _niaStatus = a }) + +instance FromXML NetworkInterfaceAttachment where + parseXML x = NetworkInterfaceAttachment + <$> x .@? "attachTime" + <*> x .@? "attachmentId" + <*> x .@? "deleteOnTermination" + <*> x .@? "deviceIndex" + <*> x .@? "instanceId" + <*> x .@? "instanceOwnerId" + <*> x .@? "status" + +instance ToQuery NetworkInterfaceAttachment where + toQuery NetworkInterfaceAttachment{..} = mconcat + [ "attachTime" =? _niaAttachTime + , "attachmentId" =? _niaAttachmentId + , "deleteOnTermination" =? _niaDeleteOnTermination + , "deviceIndex" =? _niaDeviceIndex + , "instanceId" =? _niaInstanceId + , "instanceOwnerId" =? _niaInstanceOwnerId + , "status" =? _niaStatus + ] + +newtype RunInstancesMonitoringEnabled = RunInstancesMonitoringEnabled + { _rimeEnabled :: Bool + } deriving (Eq, Ord, Show, Enum) + +-- | 'RunInstancesMonitoringEnabled' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'rimeEnabled' @::@ 'Bool' +-- +runInstancesMonitoringEnabled :: Bool -- ^ 'rimeEnabled' + -> RunInstancesMonitoringEnabled +runInstancesMonitoringEnabled p1 = RunInstancesMonitoringEnabled + { _rimeEnabled = p1 + } + +-- | Indicates whether monitoring is enabled for the instance. +rimeEnabled :: Lens' RunInstancesMonitoringEnabled Bool +rimeEnabled = lens _rimeEnabled (\s a -> s { _rimeEnabled = a }) + +instance FromXML RunInstancesMonitoringEnabled where + parseXML x = RunInstancesMonitoringEnabled + <$> x .@ "enabled" + +instance ToQuery RunInstancesMonitoringEnabled where + toQuery RunInstancesMonitoringEnabled{..} = mconcat + [ "enabled" =? _rimeEnabled + ] + +data VolumeStatusInfo = VolumeStatusInfo + { _vsiDetails :: List "item" VolumeStatusDetails + , _vsiStatus :: Maybe VolumeStatusInfoStatus + } deriving (Eq, Show) + +-- | 'VolumeStatusInfo' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'vsiDetails' @::@ ['VolumeStatusDetails'] +-- +-- * 'vsiStatus' @::@ 'Maybe' 'VolumeStatusInfoStatus' +-- +volumeStatusInfo :: VolumeStatusInfo +volumeStatusInfo = VolumeStatusInfo + { _vsiStatus = Nothing + , _vsiDetails = mempty + } + +-- | The details of the volume status. +vsiDetails :: Lens' VolumeStatusInfo [VolumeStatusDetails] +vsiDetails = lens _vsiDetails (\s a -> s { _vsiDetails = a }) . _List + +-- | The status of the volume. +vsiStatus :: Lens' VolumeStatusInfo (Maybe VolumeStatusInfoStatus) +vsiStatus = lens _vsiStatus (\s a -> s { _vsiStatus = a }) + +instance FromXML VolumeStatusInfo where + parseXML x = VolumeStatusInfo + <$> x .@ "details" + <*> x .@? "status" + +instance ToQuery VolumeStatusInfo where + toQuery VolumeStatusInfo{..} = mconcat + [ "details" =? _vsiDetails + , "status" =? _vsiStatus + ] + +data NetworkInterfaceAssociation = NetworkInterfaceAssociation + { _niaAllocationId :: Maybe Text + , _niaAssociationId :: Maybe Text + , _niaIpOwnerId :: Maybe Text + , _niaPublicDnsName :: Maybe Text + , _niaPublicIp :: Maybe Text + } deriving (Eq, Ord, Show) + +-- | 'NetworkInterfaceAssociation' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'niaAllocationId' @::@ 'Maybe' 'Text' +-- +-- * 'niaAssociationId' @::@ 'Maybe' 'Text' +-- +-- * 'niaIpOwnerId' @::@ 'Maybe' 'Text' +-- +-- * 'niaPublicDnsName' @::@ 'Maybe' 'Text' +-- +-- * 'niaPublicIp' @::@ 'Maybe' 'Text' +-- +networkInterfaceAssociation :: NetworkInterfaceAssociation +networkInterfaceAssociation = NetworkInterfaceAssociation + { _niaPublicIp = Nothing + , _niaPublicDnsName = Nothing + , _niaIpOwnerId = Nothing + , _niaAllocationId = Nothing + , _niaAssociationId = Nothing + } + +-- | The allocation ID. +niaAllocationId :: Lens' NetworkInterfaceAssociation (Maybe Text) +niaAllocationId = lens _niaAllocationId (\s a -> s { _niaAllocationId = a }) + +-- | The association ID. +niaAssociationId :: Lens' NetworkInterfaceAssociation (Maybe Text) +niaAssociationId = lens _niaAssociationId (\s a -> s { _niaAssociationId = a }) + +-- | The ID of the Elastic IP address owner. +niaIpOwnerId :: Lens' NetworkInterfaceAssociation (Maybe Text) +niaIpOwnerId = lens _niaIpOwnerId (\s a -> s { _niaIpOwnerId = a }) + +-- | The public DNS name. +niaPublicDnsName :: Lens' NetworkInterfaceAssociation (Maybe Text) +niaPublicDnsName = lens _niaPublicDnsName (\s a -> s { _niaPublicDnsName = 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 .@? "allocationId" + <*> x .@? "associationId" + <*> x .@? "ipOwnerId" + <*> x .@? "publicDnsName" + <*> x .@? "publicIp" + +instance ToQuery NetworkInterfaceAssociation where + toQuery NetworkInterfaceAssociation{..} = mconcat + [ "allocationId" =? _niaAllocationId + , "associationId" =? _niaAssociationId + , "ipOwnerId" =? _niaIpOwnerId + , "publicDnsName" =? _niaPublicDnsName + , "publicIp" =? _niaPublicIp + ] + +data CreateVolumePermissionModifications = CreateVolumePermissionModifications + { _cvpmAdd :: List "item" CreateVolumePermission + , _cvpmRemove :: List "item" CreateVolumePermission + } deriving (Eq, Show) + +-- | 'CreateVolumePermissionModifications' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'cvpmAdd' @::@ ['CreateVolumePermission'] +-- +-- * 'cvpmRemove' @::@ ['CreateVolumePermission'] +-- +createVolumePermissionModifications :: CreateVolumePermissionModifications +createVolumePermissionModifications = CreateVolumePermissionModifications + { _cvpmAdd = mempty + , _cvpmRemove = mempty + } + +-- | 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 }) . _List + +-- | 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 }) . _List + +instance FromXML CreateVolumePermissionModifications where + parseXML x = CreateVolumePermissionModifications + <$> x .@ "Add" + <*> x .@ "Remove" + +instance ToQuery CreateVolumePermissionModifications where + toQuery CreateVolumePermissionModifications{..} = mconcat + [ "Add" =? _cvpmAdd + , "Remove" =? _cvpmRemove + ] + +data VpcState + = VpcStateAvailable -- ^ available + | VpcStatePending -- ^ pending + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable VpcState + +instance FromText VpcState where + parser = takeText >>= \case + "available" -> pure VpcStateAvailable + "pending" -> pure VpcStatePending + e -> fail $ + "Failure parsing VpcState from " ++ show e + +instance ToText VpcState where + toText = \case + VpcStateAvailable -> "available" + VpcStatePending -> "pending" + +instance ToByteString VpcState +instance ToHeader VpcState +instance ToQuery VpcState + +instance FromXML VpcState where + parseXML = parseXMLText "VpcState" + +data ResourceType + = RTCustomerGateway -- ^ customer-gateway + | RTDhcpOptions -- ^ dhcp-options + | RTImage -- ^ image + | RTInstance' -- ^ instance + | RTInternetGateway -- ^ internet-gateway + | RTNetworkAcl -- ^ network-acl + | RTNetworkInterface -- ^ network-interface + | RTReservedInstances -- ^ reserved-instances + | RTRouteTable -- ^ route-table + | RTSecurityGroup -- ^ security-group + | RTSnapshot -- ^ snapshot + | RTSpotInstancesRequest -- ^ spot-instances-request + | RTSubnet -- ^ subnet + | RTVolume -- ^ volume + | RTVpc -- ^ vpc + | RTVpnConnection -- ^ vpn-connection + | RTVpnGateway -- ^ vpn-gateway + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable ResourceType + +instance FromText ResourceType where + parser = takeText >>= \case + "customer-gateway" -> pure RTCustomerGateway + "dhcp-options" -> pure RTDhcpOptions + "image" -> pure RTImage + "instance" -> pure RTInstance' + "internet-gateway" -> pure RTInternetGateway + "network-acl" -> pure RTNetworkAcl + "network-interface" -> pure RTNetworkInterface + "reserved-instances" -> pure RTReservedInstances + "route-table" -> pure RTRouteTable + "security-group" -> pure RTSecurityGroup + "snapshot" -> pure RTSnapshot + "spot-instances-request" -> pure RTSpotInstancesRequest + "subnet" -> pure RTSubnet + "volume" -> pure RTVolume + "vpc" -> pure RTVpc + "vpn-connection" -> pure RTVpnConnection + "vpn-gateway" -> pure RTVpnGateway + e -> fail $ + "Failure parsing ResourceType from " ++ show e + +instance ToText ResourceType where + toText = \case + RTCustomerGateway -> "customer-gateway" + RTDhcpOptions -> "dhcp-options" + RTImage -> "image" + RTInstance' -> "instance" + RTInternetGateway -> "internet-gateway" + RTNetworkAcl -> "network-acl" + RTNetworkInterface -> "network-interface" + RTReservedInstances -> "reserved-instances" + RTRouteTable -> "route-table" + RTSecurityGroup -> "security-group" + RTSnapshot -> "snapshot" + RTSpotInstancesRequest -> "spot-instances-request" + RTSubnet -> "subnet" + RTVolume -> "volume" + RTVpc -> "vpc" + RTVpnConnection -> "vpn-connection" + RTVpnGateway -> "vpn-gateway" + +instance ToByteString ResourceType +instance ToHeader ResourceType +instance ToQuery ResourceType + +instance FromXML ResourceType where + parseXML = parseXMLText "ResourceType" + +data ReportStatusType + = Impaired -- ^ impaired + | Ok -- ^ ok + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable ReportStatusType + +instance FromText ReportStatusType where + parser = takeText >>= \case + "impaired" -> pure Impaired + "ok" -> pure Ok + e -> fail $ + "Failure parsing ReportStatusType from " ++ show e + +instance ToText ReportStatusType where + toText = \case + Impaired -> "impaired" + Ok -> "ok" + +instance ToByteString ReportStatusType +instance ToHeader ReportStatusType +instance ToQuery ReportStatusType + +instance FromXML ReportStatusType where + parseXML = parseXMLText "ReportStatusType" + +data CurrencyCodeValues + = Usd -- ^ USD + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable CurrencyCodeValues + +instance FromText CurrencyCodeValues where + parser = takeText >>= \case + "USD" -> pure Usd + e -> fail $ + "Failure parsing CurrencyCodeValues from " ++ show e + +instance ToText CurrencyCodeValues where + toText Usd = "USD" + +instance ToByteString CurrencyCodeValues +instance ToHeader CurrencyCodeValues +instance ToQuery CurrencyCodeValues + +instance FromXML CurrencyCodeValues where + parseXML = parseXMLText "CurrencyCodeValues" + +data IcmpTypeCode = IcmpTypeCode + { _itcCode :: Maybe Int + , _itcType :: Maybe Int + } deriving (Eq, Ord, Show) + +-- | 'IcmpTypeCode' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'itcCode' @::@ 'Maybe' 'Int' +-- +-- * 'itcType' @::@ 'Maybe' 'Int' +-- +icmpTypeCode :: IcmpTypeCode +icmpTypeCode = IcmpTypeCode + { _itcType = Nothing + , _itcCode = Nothing + } + +-- | The ICMP type. A value of -1 means all types. +itcCode :: Lens' IcmpTypeCode (Maybe Int) +itcCode = lens _itcCode (\s a -> s { _itcCode = a }) + +-- | The ICMP code. A value of -1 means all codes for the specified ICMP type. +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 ToQuery IcmpTypeCode where + toQuery IcmpTypeCode{..} = mconcat + [ "code" =? _itcCode + , "type" =? _itcType + ] + +data InstanceCount = InstanceCount + { _icInstanceCount :: Maybe Int + , _icState :: Maybe ListingState + } deriving (Eq, Show) + +-- | 'InstanceCount' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'icInstanceCount' @::@ 'Maybe' 'Int' +-- +-- * 'icState' @::@ 'Maybe' 'ListingState' +-- +instanceCount :: InstanceCount +instanceCount = InstanceCount + { _icState = Nothing + , _icInstanceCount = Nothing + } + +-- | he 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 }) + +-- | The states of the listed Reserved Instances. +icState :: Lens' InstanceCount (Maybe ListingState) +icState = lens _icState (\s a -> s { _icState = a }) + +instance FromXML InstanceCount where + parseXML x = InstanceCount + <$> x .@? "instanceCount" + <*> x .@? "state" + +instance ToQuery InstanceCount where + toQuery InstanceCount{..} = mconcat + [ "instanceCount" =? _icInstanceCount + , "state" =? _icState + ] + +data ExportToS3Task = ExportToS3Task + { _etstContainerFormat :: Maybe ContainerFormat + , _etstDiskImageFormat :: Maybe DiskImageFormat + , _etstS3Bucket :: Maybe Text + , _etstS3Key :: Maybe Text + } deriving (Eq, Show) + +-- | 'ExportToS3Task' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'etstContainerFormat' @::@ 'Maybe' 'ContainerFormat' +-- +-- * 'etstDiskImageFormat' @::@ 'Maybe' 'DiskImageFormat' +-- +-- * 'etstS3Bucket' @::@ 'Maybe' 'Text' +-- +-- * 'etstS3Key' @::@ 'Maybe' 'Text' +-- +exportToS3Task :: ExportToS3Task +exportToS3Task = ExportToS3Task + { _etstDiskImageFormat = Nothing + , _etstContainerFormat = Nothing + , _etstS3Bucket = Nothing + , _etstS3Key = Nothing + } + +-- | 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 format for the exported image. +etstDiskImageFormat :: Lens' ExportToS3Task (Maybe DiskImageFormat) +etstDiskImageFormat = + lens _etstDiskImageFormat (\s a -> s { _etstDiskImageFormat = a }) + +-- | The Amazon S3 bucket for the destination image. The destination bucket must +-- exist and grant WRITE and READ_ACL permissions to the AWS account 'vm-import-export@amazon.com'. +etstS3Bucket :: Lens' ExportToS3Task (Maybe Text) +etstS3Bucket = lens _etstS3Bucket (\s a -> s { _etstS3Bucket = a }) + +etstS3Key :: Lens' ExportToS3Task (Maybe Text) +etstS3Key = lens _etstS3Key (\s a -> s { _etstS3Key = a }) + +instance FromXML ExportToS3Task where + parseXML x = ExportToS3Task + <$> x .@? "containerFormat" + <*> x .@? "diskImageFormat" + <*> x .@? "s3Bucket" + <*> x .@? "s3Key" + +instance ToQuery ExportToS3Task where + toQuery ExportToS3Task{..} = mconcat + [ "containerFormat" =? _etstContainerFormat + , "diskImageFormat" =? _etstDiskImageFormat + , "s3Bucket" =? _etstS3Bucket + , "s3Key" =? _etstS3Key + ] + +data BlockDeviceMapping = BlockDeviceMapping + { _bdmDeviceName :: Text + , _bdmEbs :: Maybe EbsBlockDevice + , _bdmNoDevice :: Maybe Text + , _bdmVirtualName :: Maybe Text + } deriving (Eq, Show) + +-- | 'BlockDeviceMapping' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'bdmDeviceName' @::@ 'Text' +-- +-- * 'bdmEbs' @::@ 'Maybe' 'EbsBlockDevice' +-- +-- * 'bdmNoDevice' @::@ 'Maybe' 'Text' +-- +-- * 'bdmVirtualName' @::@ 'Maybe' 'Text' +-- +blockDeviceMapping :: Text -- ^ 'bdmDeviceName' + -> BlockDeviceMapping +blockDeviceMapping p1 = BlockDeviceMapping + { _bdmDeviceName = p1 + , _bdmVirtualName = Nothing + , _bdmEbs = Nothing + , _bdmNoDevice = Nothing + } + +-- | The device name exposed to the instance (for example, '/dev/sdh'). +bdmDeviceName :: Lens' BlockDeviceMapping Text +bdmDeviceName = lens _bdmDeviceName (\s a -> s { _bdmDeviceName = a }) + +-- | Parameters used to automatically set up Amazon EBS volumes when the instance +-- is launched. +bdmEbs :: Lens' BlockDeviceMapping (Maybe EbsBlockDevice) +bdmEbs = lens _bdmEbs (\s a -> s { _bdmEbs = 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 }) + +-- | The virtual device name (ephemeral[0..3]). 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 }) + +instance FromXML BlockDeviceMapping where + parseXML x = BlockDeviceMapping + <$> x .@ "deviceName" + <*> x .@? "ebs" + <*> x .@? "noDevice" + <*> x .@? "virtualName" + +instance ToQuery BlockDeviceMapping where + toQuery BlockDeviceMapping{..} = mconcat + [ "deviceName" =? _bdmDeviceName + , "ebs" =? _bdmEbs + , "noDevice" =? _bdmNoDevice + , "virtualName" =? _bdmVirtualName + ] + +data ConversionTask = ConversionTask + { _ctConversionTaskId :: Text + , _ctExpirationTime :: Maybe Text + , _ctImportInstance :: Maybe ImportInstanceTaskDetails + , _ctImportVolume :: Maybe ImportVolumeTaskDetails + , _ctState :: ConversionTaskState + , _ctStatusMessage :: Maybe Text + , _ctTags :: List "item" Tag + } deriving (Eq, Show) + +-- | 'ConversionTask' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'ctConversionTaskId' @::@ 'Text' +-- +-- * 'ctExpirationTime' @::@ 'Maybe' 'Text' +-- +-- * 'ctImportInstance' @::@ 'Maybe' 'ImportInstanceTaskDetails' +-- +-- * 'ctImportVolume' @::@ 'Maybe' 'ImportVolumeTaskDetails' +-- +-- * 'ctState' @::@ 'ConversionTaskState' +-- +-- * 'ctStatusMessage' @::@ 'Maybe' 'Text' +-- +-- * 'ctTags' @::@ ['Tag'] +-- +conversionTask :: Text -- ^ 'ctConversionTaskId' + -> ConversionTaskState -- ^ 'ctState' + -> ConversionTask +conversionTask p1 p2 = ConversionTask + { _ctConversionTaskId = p1 + , _ctState = p2 + , _ctExpirationTime = Nothing + , _ctImportInstance = Nothing + , _ctImportVolume = Nothing + , _ctStatusMessage = Nothing + , _ctTags = mempty + } + +-- | The ID of the conversion task. +ctConversionTaskId :: Lens' ConversionTask 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 }) + +-- | 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 }) + +-- | 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 state of the conversion task. +ctState :: Lens' ConversionTask 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 }) + +ctTags :: Lens' ConversionTask [Tag] +ctTags = lens _ctTags (\s a -> s { _ctTags = a }) . _List + +instance FromXML ConversionTask where + parseXML x = ConversionTask + <$> x .@ "conversionTaskId" + <*> x .@? "expirationTime" + <*> x .@? "importInstance" + <*> x .@? "importVolume" + <*> x .@ "state" + <*> x .@? "statusMessage" + <*> x .@ "tagSet" + +instance ToQuery ConversionTask where + toQuery ConversionTask{..} = mconcat + [ "conversionTaskId" =? _ctConversionTaskId + , "expirationTime" =? _ctExpirationTime + , "importInstance" =? _ctImportInstance + , "importVolume" =? _ctImportVolume + , "state" =? _ctState + , "statusMessage" =? _ctStatusMessage + , "tagSet" =? _ctTags + ] + +data AttachmentStatus + = ASAttached -- ^ attached + | ASAttaching -- ^ attaching + | ASDetached -- ^ detached + | ASDetaching -- ^ detaching + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable AttachmentStatus + +instance FromText AttachmentStatus where + parser = takeText >>= \case + "attached" -> pure ASAttached + "attaching" -> pure ASAttaching + "detached" -> pure ASDetached + "detaching" -> pure ASDetaching + e -> fail $ + "Failure parsing AttachmentStatus from " ++ show e + +instance ToText AttachmentStatus where + toText = \case + ASAttached -> "attached" + ASAttaching -> "attaching" + ASDetached -> "detached" + ASDetaching -> "detaching" + +instance ToByteString AttachmentStatus +instance ToHeader AttachmentStatus +instance ToQuery AttachmentStatus + +instance FromXML AttachmentStatus where + parseXML = parseXMLText "AttachmentStatus" + +data RouteOrigin + = OriginCreateRoute -- ^ CreateRoute + | OriginCreateRouteTable -- ^ CreateRouteTable + | OriginEnableVgwRoutePropagation -- ^ EnableVgwRoutePropagation + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable RouteOrigin + +instance FromText RouteOrigin where + parser = takeText >>= \case + "CreateRoute" -> pure OriginCreateRoute + "CreateRouteTable" -> pure OriginCreateRouteTable + "EnableVgwRoutePropagation" -> pure OriginEnableVgwRoutePropagation + e -> fail $ + "Failure parsing RouteOrigin from " ++ show e + +instance ToText RouteOrigin where + toText = \case + OriginCreateRoute -> "CreateRoute" + OriginCreateRouteTable -> "CreateRouteTable" + OriginEnableVgwRoutePropagation -> "EnableVgwRoutePropagation" + +instance ToByteString RouteOrigin +instance ToHeader RouteOrigin +instance ToQuery RouteOrigin + +instance FromXML RouteOrigin where + parseXML = parseXMLText "RouteOrigin" + +data ListingState + = LSAvailable -- ^ available + | LSCancelled -- ^ cancelled + | LSPending -- ^ pending + | LSSold -- ^ sold + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable ListingState + +instance FromText ListingState where + parser = takeText >>= \case + "available" -> pure LSAvailable + "cancelled" -> pure LSCancelled + "pending" -> pure LSPending + "sold" -> pure LSSold + e -> fail $ + "Failure parsing ListingState from " ++ show e + +instance ToText ListingState where + toText = \case + LSAvailable -> "available" + LSCancelled -> "cancelled" + LSPending -> "pending" + LSSold -> "sold" + +instance ToByteString ListingState +instance ToHeader ListingState +instance ToQuery ListingState + +instance FromXML ListingState where + parseXML = parseXMLText "ListingState" + +data SpotPrice = SpotPrice + { _spAvailabilityZone :: Maybe Text + , _spInstanceType :: Maybe InstanceType + , _spProductDescription :: Maybe RIProductDescription + , _spSpotPrice :: Maybe Text + , _spTimestamp :: Maybe ISO8601 + } deriving (Eq, Show) + +-- | 'SpotPrice' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'spAvailabilityZone' @::@ 'Maybe' 'Text' +-- +-- * 'spInstanceType' @::@ 'Maybe' 'InstanceType' +-- +-- * 'spProductDescription' @::@ 'Maybe' 'RIProductDescription' +-- +-- * 'spSpotPrice' @::@ 'Maybe' 'Text' +-- +-- * 'spTimestamp' @::@ 'Maybe' 'UTCTime' +-- +spotPrice :: SpotPrice +spotPrice = SpotPrice + { _spInstanceType = Nothing + , _spProductDescription = Nothing + , _spSpotPrice = Nothing + , _spTimestamp = Nothing + , _spAvailabilityZone = Nothing + } + +-- | The Availability Zone. +spAvailabilityZone :: Lens' SpotPrice (Maybe Text) +spAvailabilityZone = + lens _spAvailabilityZone (\s a -> s { _spAvailabilityZone = a }) + +-- | The instance type. +spInstanceType :: Lens' SpotPrice (Maybe InstanceType) +spInstanceType = lens _spInstanceType (\s a -> s { _spInstanceType = a }) + +-- | A general description of the AMI. +spProductDescription :: Lens' SpotPrice (Maybe RIProductDescription) +spProductDescription = + lens _spProductDescription (\s a -> s { _spProductDescription = a }) + +-- | The maximum price you will pay to launch one or more Spot Instances. +spSpotPrice :: Lens' SpotPrice (Maybe Text) +spSpotPrice = lens _spSpotPrice (\s a -> s { _spSpotPrice = a }) + +-- | The date and time the request was created. +spTimestamp :: Lens' SpotPrice (Maybe UTCTime) +spTimestamp = lens _spTimestamp (\s a -> s { _spTimestamp = a }) . mapping _Time + +instance FromXML SpotPrice where + parseXML x = SpotPrice + <$> x .@? "availabilityZone" + <*> x .@? "instanceType" + <*> x .@? "productDescription" + <*> x .@? "spotPrice" + <*> x .@? "timestamp" + +instance ToQuery SpotPrice where + toQuery SpotPrice{..} = mconcat + [ "availabilityZone" =? _spAvailabilityZone + , "instanceType" =? _spInstanceType + , "productDescription" =? _spProductDescription + , "spotPrice" =? _spSpotPrice + , "timestamp" =? _spTimestamp + ] + +data InstanceMonitoring = InstanceMonitoring + { _imInstanceId :: Maybe Text + , _imMonitoring :: Maybe Monitoring + } deriving (Eq, Show) + +-- | 'InstanceMonitoring' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'imInstanceId' @::@ 'Maybe' 'Text' +-- +-- * 'imMonitoring' @::@ 'Maybe' 'Monitoring' +-- +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 information. +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 ToQuery InstanceMonitoring where + toQuery InstanceMonitoring{..} = mconcat + [ "instanceId" =? _imInstanceId + , "monitoring" =? _imMonitoring + ] + +data PriceScheduleSpecification = PriceScheduleSpecification + { _pssCurrencyCode :: Maybe CurrencyCodeValues + , _pssPrice :: Maybe Double + , _pssTerm :: Maybe Integer + } deriving (Eq, Show) + +-- | 'PriceScheduleSpecification' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'pssCurrencyCode' @::@ 'Maybe' 'CurrencyCodeValues' +-- +-- * 'pssPrice' @::@ 'Maybe' 'Double' +-- +-- * 'pssTerm' @::@ 'Maybe' 'Integer' +-- +priceScheduleSpecification :: PriceScheduleSpecification +priceScheduleSpecification = PriceScheduleSpecification + { _pssTerm = Nothing + , _pssPrice = Nothing + , _pssCurrencyCode = 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 fixed price for the term. +pssPrice :: Lens' PriceScheduleSpecification (Maybe Double) +pssPrice = lens _pssPrice (\s a -> s { _pssPrice = 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 }) + +instance FromXML PriceScheduleSpecification where + parseXML x = PriceScheduleSpecification + <$> x .@? "currencyCode" + <*> x .@? "price" + <*> x .@? "term" + +instance ToQuery PriceScheduleSpecification where + toQuery PriceScheduleSpecification{..} = mconcat + [ "currencyCode" =? _pssCurrencyCode + , "price" =? _pssPrice + , "term" =? _pssTerm + ] + +data SpotInstanceStatus = SpotInstanceStatus + { _sisCode :: Maybe Text + , _sisMessage :: Maybe Text + , _sisUpdateTime :: Maybe ISO8601 + } deriving (Eq, Ord, Show) + +-- | 'SpotInstanceStatus' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'sisCode' @::@ 'Maybe' 'Text' +-- +-- * 'sisMessage' @::@ 'Maybe' 'Text' +-- +-- * 'sisUpdateTime' @::@ 'Maybe' 'UTCTime' +-- +spotInstanceStatus :: SpotInstanceStatus +spotInstanceStatus = SpotInstanceStatus + { _sisCode = Nothing + , _sisUpdateTime = Nothing + , _sisMessage = Nothing + } + +-- | The status code of the request. +sisCode :: Lens' SpotInstanceStatus (Maybe Text) +sisCode = lens _sisCode (\s a -> s { _sisCode = a }) + +-- | The description for the status code for the Spot request. +sisMessage :: Lens' SpotInstanceStatus (Maybe Text) +sisMessage = lens _sisMessage (\s a -> s { _sisMessage = a }) + +-- | The time of the most recent status update. +sisUpdateTime :: Lens' SpotInstanceStatus (Maybe UTCTime) +sisUpdateTime = lens _sisUpdateTime (\s a -> s { _sisUpdateTime = a }) . mapping _Time + +instance FromXML SpotInstanceStatus where + parseXML x = SpotInstanceStatus + <$> x .@? "code" + <*> x .@? "message" + <*> x .@? "updateTime" + +instance ToQuery SpotInstanceStatus where + toQuery SpotInstanceStatus{..} = mconcat + [ "code" =? _sisCode + , "message" =? _sisMessage + , "updateTime" =? _sisUpdateTime + ] + +data AvailabilityZoneState + = AZSAvailable -- ^ available + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable AvailabilityZoneState + +instance FromText AvailabilityZoneState where + parser = takeText >>= \case + "available" -> pure AZSAvailable + e -> fail $ + "Failure parsing AvailabilityZoneState from " ++ show e + +instance ToText AvailabilityZoneState where + toText AZSAvailable = "available" + +instance ToByteString AvailabilityZoneState +instance ToHeader AvailabilityZoneState +instance ToQuery AvailabilityZoneState + +instance FromXML AvailabilityZoneState where + parseXML = parseXMLText "AvailabilityZoneState" + +data SpotInstanceRequest = SpotInstanceRequest + { _siAvailabilityZoneGroup :: Maybe Text + , _siCreateTime :: Maybe ISO8601 + , _siFault :: Maybe SpotInstanceStateFault + , _siInstanceId :: Maybe Text + , _siLaunchGroup :: Maybe Text + , _siLaunchSpecification :: Maybe LaunchSpecification + , _siLaunchedAvailabilityZone :: Maybe Text + , _siProductDescription :: Maybe RIProductDescription + , _siSpotInstanceRequestId :: Maybe Text + , _siSpotPrice :: Maybe Text + , _siState :: Maybe SpotInstanceState + , _siStatus :: Maybe SpotInstanceStatus + , _siTags :: List "item" Tag + , _siType :: Maybe SpotInstanceType + , _siValidFrom :: Maybe ISO8601 + , _siValidUntil :: Maybe ISO8601 + } deriving (Eq, Show) + +-- | 'SpotInstanceRequest' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'siAvailabilityZoneGroup' @::@ 'Maybe' 'Text' +-- +-- * 'siCreateTime' @::@ 'Maybe' 'UTCTime' +-- +-- * 'siFault' @::@ 'Maybe' 'SpotInstanceStateFault' +-- +-- * 'siInstanceId' @::@ 'Maybe' 'Text' +-- +-- * 'siLaunchGroup' @::@ 'Maybe' 'Text' +-- +-- * 'siLaunchSpecification' @::@ 'Maybe' 'LaunchSpecification' +-- +-- * 'siLaunchedAvailabilityZone' @::@ 'Maybe' 'Text' +-- +-- * 'siProductDescription' @::@ 'Maybe' 'RIProductDescription' +-- +-- * 'siSpotInstanceRequestId' @::@ 'Maybe' 'Text' +-- +-- * 'siSpotPrice' @::@ 'Maybe' 'Text' +-- +-- * 'siState' @::@ 'Maybe' 'SpotInstanceState' +-- +-- * 'siStatus' @::@ 'Maybe' 'SpotInstanceStatus' +-- +-- * 'siTags' @::@ ['Tag'] +-- +-- * 'siType' @::@ 'Maybe' 'SpotInstanceType' +-- +-- * 'siValidFrom' @::@ 'Maybe' 'UTCTime' +-- +-- * 'siValidUntil' @::@ 'Maybe' 'UTCTime' +-- +spotInstanceRequest :: SpotInstanceRequest +spotInstanceRequest = SpotInstanceRequest + { _siSpotInstanceRequestId = Nothing + , _siSpotPrice = Nothing + , _siType = Nothing + , _siState = Nothing + , _siFault = Nothing + , _siStatus = Nothing + , _siValidFrom = Nothing + , _siValidUntil = Nothing + , _siLaunchGroup = Nothing + , _siAvailabilityZoneGroup = Nothing + , _siLaunchSpecification = Nothing + , _siInstanceId = Nothing + , _siCreateTime = Nothing + , _siProductDescription = Nothing + , _siTags = mempty + , _siLaunchedAvailabilityZone = Nothing + } + +-- | 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. +siAvailabilityZoneGroup :: Lens' SpotInstanceRequest (Maybe Text) +siAvailabilityZoneGroup = + lens _siAvailabilityZoneGroup (\s a -> s { _siAvailabilityZoneGroup = a }) + +-- | The time stamp when the Spot Instance request was created. +siCreateTime :: Lens' SpotInstanceRequest (Maybe UTCTime) +siCreateTime = lens _siCreateTime (\s a -> s { _siCreateTime = a }) . mapping _Time + +-- | The fault codes for the Spot Instance request, if any. +siFault :: Lens' SpotInstanceRequest (Maybe SpotInstanceStateFault) +siFault = lens _siFault (\s a -> s { _siFault = a }) + +-- | The instance ID, if an instance has been launched to fulfill the Spot +-- Instance request. +siInstanceId :: Lens' SpotInstanceRequest (Maybe Text) +siInstanceId = lens _siInstanceId (\s a -> s { _siInstanceId = a }) + +-- | The instance launch group. Launch groups are Spot Instances that launch +-- together and terminate together. +siLaunchGroup :: Lens' SpotInstanceRequest (Maybe Text) +siLaunchGroup = lens _siLaunchGroup (\s a -> s { _siLaunchGroup = a }) + +-- | Additional information for launching instances. +siLaunchSpecification :: Lens' SpotInstanceRequest (Maybe LaunchSpecification) +siLaunchSpecification = + lens _siLaunchSpecification (\s a -> s { _siLaunchSpecification = a }) + +-- | The Availability Zone in which the bid is launched. +siLaunchedAvailabilityZone :: Lens' SpotInstanceRequest (Maybe Text) +siLaunchedAvailabilityZone = + lens _siLaunchedAvailabilityZone + (\s a -> s { _siLaunchedAvailabilityZone = a }) + +-- | The product description associated with the Spot Instance. +siProductDescription :: Lens' SpotInstanceRequest (Maybe RIProductDescription) +siProductDescription = + lens _siProductDescription (\s a -> s { _siProductDescription = a }) + +-- | The ID of the Spot Instance request. +siSpotInstanceRequestId :: Lens' SpotInstanceRequest (Maybe Text) +siSpotInstanceRequestId = + lens _siSpotInstanceRequestId (\s a -> s { _siSpotInstanceRequestId = a }) + +-- | The maximum hourly price for any Spot Instance launched to fulfill the +-- request. +siSpotPrice :: Lens' SpotInstanceRequest (Maybe Text) +siSpotPrice = lens _siSpotPrice (\s a -> s { _siSpotPrice = a }) + +-- | The state of the Spot Instance request. Spot bid status information can help +-- you track your Spot Instance requests. For information, see in the /Amazon Elastic Compute Cloud User Guide/. +siState :: Lens' SpotInstanceRequest (Maybe SpotInstanceState) +siState = lens _siState (\s a -> s { _siState = a }) + +-- | The status code and status message describing the Spot Instance request. +siStatus :: Lens' SpotInstanceRequest (Maybe SpotInstanceStatus) +siStatus = lens _siStatus (\s a -> s { _siStatus = a }) + +-- | Any tags assigned to the resource. +siTags :: Lens' SpotInstanceRequest [Tag] +siTags = lens _siTags (\s a -> s { _siTags = a }) . _List + +-- | The Spot Instance request type. +siType :: Lens' SpotInstanceRequest (Maybe SpotInstanceType) +siType = lens _siType (\s a -> s { _siType = 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. +siValidFrom :: Lens' SpotInstanceRequest (Maybe UTCTime) +siValidFrom = lens _siValidFrom (\s a -> s { _siValidFrom = 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. +siValidUntil :: Lens' SpotInstanceRequest (Maybe UTCTime) +siValidUntil = lens _siValidUntil (\s a -> s { _siValidUntil = a }) . mapping _Time + +instance FromXML SpotInstanceRequest where + parseXML x = SpotInstanceRequest + <$> x .@? "availabilityZoneGroup" + <*> x .@? "createTime" + <*> x .@? "fault" + <*> x .@? "instanceId" + <*> x .@? "launchGroup" + <*> x .@? "launchSpecification" + <*> x .@? "launchedAvailabilityZone" + <*> x .@? "productDescription" + <*> x .@? "spotInstanceRequestId" + <*> x .@? "spotPrice" + <*> x .@? "state" + <*> x .@? "status" + <*> x .@ "tagSet" + <*> x .@? "type" + <*> x .@? "validFrom" + <*> x .@? "validUntil" + +instance ToQuery SpotInstanceRequest where + toQuery SpotInstanceRequest{..} = mconcat + [ "availabilityZoneGroup" =? _siAvailabilityZoneGroup + , "createTime" =? _siCreateTime + , "fault" =? _siFault + , "instanceId" =? _siInstanceId + , "launchGroup" =? _siLaunchGroup + , "launchSpecification" =? _siLaunchSpecification + , "launchedAvailabilityZone" =? _siLaunchedAvailabilityZone + , "productDescription" =? _siProductDescription + , "spotInstanceRequestId" =? _siSpotInstanceRequestId + , "spotPrice" =? _siSpotPrice + , "state" =? _siState + , "status" =? _siStatus + , "tagSet" =? _siTags + , "type" =? _siType + , "validFrom" =? _siValidFrom + , "validUntil" =? _siValidUntil + ] + +data LaunchSpecification = LaunchSpecification + { _lsAddressingType :: Maybe Text + , _lsBlockDeviceMappings :: List "item" BlockDeviceMapping + , _lsEbsOptimized :: Maybe Bool + , _lsIamInstanceProfile :: Maybe IamInstanceProfileSpecification + , _lsImageId :: Maybe Text + , _lsInstanceType :: Maybe InstanceType + , _lsKernelId :: Maybe Text + , _lsKeyName :: Maybe Text + , _lsMonitoring :: Maybe RunInstancesMonitoringEnabled + , _lsNetworkInterfaces :: List "item" InstanceNetworkInterfaceSpecification + , _lsPlacement :: Maybe SpotPlacement + , _lsRamdiskId :: Maybe Text + , _lsSecurityGroups :: List "item" GroupIdentifier + , _lsSubnetId :: Maybe Text + , _lsUserData :: Maybe Text + } deriving (Eq, Show) + +-- | 'LaunchSpecification' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'lsAddressingType' @::@ 'Maybe' 'Text' +-- +-- * 'lsBlockDeviceMappings' @::@ ['BlockDeviceMapping'] +-- +-- * 'lsEbsOptimized' @::@ 'Maybe' 'Bool' +-- +-- * 'lsIamInstanceProfile' @::@ 'Maybe' 'IamInstanceProfileSpecification' +-- +-- * 'lsImageId' @::@ 'Maybe' 'Text' +-- +-- * 'lsInstanceType' @::@ 'Maybe' 'InstanceType' +-- +-- * 'lsKernelId' @::@ 'Maybe' 'Text' +-- +-- * 'lsKeyName' @::@ 'Maybe' 'Text' +-- +-- * 'lsMonitoring' @::@ 'Maybe' 'RunInstancesMonitoringEnabled' +-- +-- * 'lsNetworkInterfaces' @::@ ['InstanceNetworkInterfaceSpecification'] +-- +-- * 'lsPlacement' @::@ 'Maybe' 'SpotPlacement' +-- +-- * 'lsRamdiskId' @::@ 'Maybe' 'Text' +-- +-- * 'lsSecurityGroups' @::@ ['GroupIdentifier'] +-- +-- * 'lsSubnetId' @::@ 'Maybe' 'Text' +-- +-- * 'lsUserData' @::@ 'Maybe' 'Text' +-- +launchSpecification :: LaunchSpecification +launchSpecification = LaunchSpecification + { _lsImageId = Nothing + , _lsKeyName = Nothing + , _lsSecurityGroups = mempty + , _lsUserData = Nothing + , _lsAddressingType = Nothing + , _lsInstanceType = Nothing + , _lsPlacement = Nothing + , _lsKernelId = Nothing + , _lsRamdiskId = Nothing + , _lsBlockDeviceMappings = mempty + , _lsSubnetId = Nothing + , _lsNetworkInterfaces = mempty + , _lsIamInstanceProfile = Nothing + , _lsEbsOptimized = Nothing + , _lsMonitoring = Nothing + } + +-- | 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 }) + . _List + +-- | 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 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 }) + +-- | The instance type. +-- +-- Default: 'm1.small' +lsInstanceType :: Lens' LaunchSpecification (Maybe InstanceType) +lsInstanceType = lens _lsInstanceType (\s a -> s { _lsInstanceType = a }) + +-- | The ID of the kernel. +lsKernelId :: Lens' LaunchSpecification (Maybe Text) +lsKernelId = lens _lsKernelId (\s a -> s { _lsKernelId = a }) + +-- | The name of the key pair. +lsKeyName :: Lens' LaunchSpecification (Maybe Text) +lsKeyName = lens _lsKeyName (\s a -> s { _lsKeyName = a }) + +lsMonitoring :: Lens' LaunchSpecification (Maybe RunInstancesMonitoringEnabled) +lsMonitoring = lens _lsMonitoring (\s a -> s { _lsMonitoring = a }) + +-- | One or more network interfaces. +lsNetworkInterfaces :: Lens' LaunchSpecification [InstanceNetworkInterfaceSpecification] +lsNetworkInterfaces = + lens _lsNetworkInterfaces (\s a -> s { _lsNetworkInterfaces = a }) + . _List + +-- | The placement information for the instance. +lsPlacement :: Lens' LaunchSpecification (Maybe SpotPlacement) +lsPlacement = lens _lsPlacement (\s a -> s { _lsPlacement = a }) + +-- | The ID of the RAM disk. +lsRamdiskId :: Lens' LaunchSpecification (Maybe Text) +lsRamdiskId = lens _lsRamdiskId (\s a -> s { _lsRamdiskId = a }) + +-- | One or more security groups. If requesting a Spot Instance in a nondefault +-- VPC, you must specify the security group ID. If requesting a Spot Instance in +-- EC2-Classic or a default VPC, you can specify either the security group name +-- or ID. +lsSecurityGroups :: Lens' LaunchSpecification [GroupIdentifier] +lsSecurityGroups = lens _lsSecurityGroups (\s a -> s { _lsSecurityGroups = a }) . _List + +-- | The ID of the subnet in which to launch the Spot Instance. +lsSubnetId :: Lens' LaunchSpecification (Maybe Text) +lsSubnetId = lens _lsSubnetId (\s a -> s { _lsSubnetId = a }) + +-- | The Base64-encoded MIME user data to make available to the instances. +lsUserData :: Lens' LaunchSpecification (Maybe Text) +lsUserData = lens _lsUserData (\s a -> s { _lsUserData = a }) + +instance FromXML LaunchSpecification where + parseXML x = LaunchSpecification + <$> x .@? "addressingType" + <*> x .@ "blockDeviceMapping" + <*> x .@? "ebsOptimized" + <*> x .@? "iamInstanceProfile" + <*> x .@? "imageId" + <*> x .@? "instanceType" + <*> x .@? "kernelId" + <*> x .@? "keyName" + <*> x .@? "monitoring" + <*> x .@ "networkInterfaceSet" + <*> x .@? "placement" + <*> x .@? "ramdiskId" + <*> x .@ "groupSet" + <*> x .@? "subnetId" + <*> x .@? "userData" + +instance ToQuery LaunchSpecification where + toQuery LaunchSpecification{..} = mconcat + [ "addressingType" =? _lsAddressingType + , "blockDeviceMapping" =? _lsBlockDeviceMappings + , "ebsOptimized" =? _lsEbsOptimized + , "iamInstanceProfile" =? _lsIamInstanceProfile + , "imageId" =? _lsImageId + , "instanceType" =? _lsInstanceType + , "kernelId" =? _lsKernelId + , "keyName" =? _lsKeyName + , "monitoring" =? _lsMonitoring + , "networkInterfaceSet" =? _lsNetworkInterfaces + , "placement" =? _lsPlacement + , "ramdiskId" =? _lsRamdiskId + , "groupSet" =? _lsSecurityGroups + , "subnetId" =? _lsSubnetId + , "userData" =? _lsUserData + ] + +data VolumeStatusEvent = VolumeStatusEvent + { _vseDescription :: Maybe Text + , _vseEventId :: Maybe Text + , _vseEventType :: Maybe Text + , _vseNotAfter :: Maybe ISO8601 + , _vseNotBefore :: Maybe ISO8601 + } deriving (Eq, Ord, Show) + +-- | 'VolumeStatusEvent' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'vseDescription' @::@ 'Maybe' 'Text' +-- +-- * 'vseEventId' @::@ 'Maybe' 'Text' +-- +-- * 'vseEventType' @::@ 'Maybe' 'Text' +-- +-- * 'vseNotAfter' @::@ 'Maybe' 'UTCTime' +-- +-- * 'vseNotBefore' @::@ 'Maybe' 'UTCTime' +-- +volumeStatusEvent :: VolumeStatusEvent +volumeStatusEvent = VolumeStatusEvent + { _vseEventType = Nothing + , _vseDescription = Nothing + , _vseNotBefore = Nothing + , _vseNotAfter = Nothing + , _vseEventId = Nothing + } + +-- | A description of the event. +vseDescription :: Lens' VolumeStatusEvent (Maybe Text) +vseDescription = lens _vseDescription (\s a -> s { _vseDescription = a }) + +-- | The ID of this event. +vseEventId :: Lens' VolumeStatusEvent (Maybe Text) +vseEventId = lens _vseEventId (\s a -> s { _vseEventId = a }) + +-- | The type of this event. +vseEventType :: Lens' VolumeStatusEvent (Maybe Text) +vseEventType = lens _vseEventType (\s a -> s { _vseEventType = a }) + +-- | The latest end time of the event. +vseNotAfter :: Lens' VolumeStatusEvent (Maybe UTCTime) +vseNotAfter = lens _vseNotAfter (\s a -> s { _vseNotAfter = a }) . mapping _Time + +-- | The earliest start time of the event. +vseNotBefore :: Lens' VolumeStatusEvent (Maybe UTCTime) +vseNotBefore = lens _vseNotBefore (\s a -> s { _vseNotBefore = a }) . mapping _Time + +instance FromXML VolumeStatusEvent where + parseXML x = VolumeStatusEvent + <$> x .@? "description" + <*> x .@? "eventId" + <*> x .@? "eventType" + <*> x .@? "notAfter" + <*> x .@? "notBefore" + +instance ToQuery VolumeStatusEvent where + toQuery VolumeStatusEvent{..} = mconcat + [ "description" =? _vseDescription + , "eventId" =? _vseEventId + , "eventType" =? _vseEventType + , "notAfter" =? _vseNotAfter + , "notBefore" =? _vseNotBefore + ] + +data Volume = Volume + { _vAttachments :: List "item" VolumeAttachment + , _vAvailabilityZone :: Maybe Text + , _vCreateTime :: Maybe ISO8601 + , _vEncrypted :: Maybe Bool + , _vIops :: Maybe Int + , _vSize :: Maybe Int + , _vSnapshotId :: Maybe Text + , _vState :: Maybe VolumeState + , _vTags :: List "item" Tag + , _vVolumeId :: Maybe Text + , _vVolumeType :: Maybe VolumeType + } deriving (Eq, Show) + +-- | 'Volume' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'vAttachments' @::@ ['VolumeAttachment'] +-- +-- * 'vAvailabilityZone' @::@ 'Maybe' 'Text' +-- +-- * 'vCreateTime' @::@ 'Maybe' 'UTCTime' +-- +-- * 'vEncrypted' @::@ 'Maybe' 'Bool' +-- +-- * 'vIops' @::@ 'Maybe' 'Int' +-- +-- * 'vSize' @::@ 'Maybe' 'Int' +-- +-- * 'vSnapshotId' @::@ 'Maybe' 'Text' +-- +-- * 'vState' @::@ 'Maybe' 'VolumeState' +-- +-- * 'vTags' @::@ ['Tag'] +-- +-- * 'vVolumeId' @::@ 'Maybe' 'Text' +-- +-- * 'vVolumeType' @::@ 'Maybe' 'VolumeType' +-- +volume :: Volume +volume = Volume + { _vVolumeId = Nothing + , _vSize = Nothing + , _vSnapshotId = Nothing + , _vAvailabilityZone = Nothing + , _vState = Nothing + , _vCreateTime = Nothing + , _vAttachments = mempty + , _vTags = mempty + , _vVolumeType = Nothing + , _vIops = Nothing + , _vEncrypted = Nothing + } + +vAttachments :: Lens' Volume [VolumeAttachment] +vAttachments = lens _vAttachments (\s a -> s { _vAttachments = a }) . _List + +-- | The Availability Zone for the volume. +vAvailabilityZone :: Lens' Volume (Maybe Text) +vAvailabilityZone = + lens _vAvailabilityZone (\s a -> s { _vAvailabilityZone = a }) + +-- | The time stamp when volume creation was initiated. +vCreateTime :: Lens' Volume (Maybe UTCTime) +vCreateTime = lens _vCreateTime (\s a -> s { _vCreateTime = a }) . mapping _Time + +-- | Indicates whether the volume is encrypted. +vEncrypted :: Lens' Volume (Maybe Bool) +vEncrypted = lens _vEncrypted (\s a -> s { _vEncrypted = a }) + +-- | 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 to 4000 for Provisioned IOPS (SSD) volumes and 3 to +-- 3072 for General Purpose (SSD) volumes. +-- +-- Condition: This parameter is required for requests to create 'io1' volumes; it +-- is not used in requests to create 'standard' or 'gp2' volumes. +vIops :: Lens' Volume (Maybe Int) +vIops = lens _vIops (\s a -> s { _vIops = a }) + +-- | The size of the volume, in GiBs. +vSize :: Lens' Volume (Maybe Int) +vSize = lens _vSize (\s a -> s { _vSize = a }) + +-- | The snapshot from which the volume was created, if applicable. +vSnapshotId :: Lens' Volume (Maybe Text) +vSnapshotId = lens _vSnapshotId (\s a -> s { _vSnapshotId = a }) + +-- | The volume state. +vState :: Lens' Volume (Maybe VolumeState) +vState = lens _vState (\s a -> s { _vState = a }) + +-- | Any tags assigned to the volume. +vTags :: Lens' Volume [Tag] +vTags = lens _vTags (\s a -> s { _vTags = a }) . _List + +-- | The ID of the volume. +vVolumeId :: Lens' Volume (Maybe Text) +vVolumeId = lens _vVolumeId (\s a -> s { _vVolumeId = a }) + +-- | The volume type. This can be 'gp2' for General Purpose (SSD) volumes, 'io1' for +-- Provisioned IOPS (SSD) volumes, or 'standard' for Magnetic volumes. +vVolumeType :: Lens' Volume (Maybe VolumeType) +vVolumeType = lens _vVolumeType (\s a -> s { _vVolumeType = a }) + +instance FromXML Volume where + parseXML x = Volume + <$> x .@ "attachmentSet" + <*> x .@? "availabilityZone" + <*> x .@? "createTime" + <*> x .@? "encrypted" + <*> x .@? "iops" + <*> x .@? "size" + <*> x .@? "snapshotId" + <*> x .@? "status" + <*> x .@ "tagSet" + <*> x .@? "volumeId" + <*> x .@? "volumeType" + +instance ToQuery Volume where + toQuery Volume{..} = mconcat + [ "attachmentSet" =? _vAttachments + , "availabilityZone" =? _vAvailabilityZone + , "createTime" =? _vCreateTime + , "encrypted" =? _vEncrypted + , "iops" =? _vIops + , "size" =? _vSize + , "snapshotId" =? _vSnapshotId + , "status" =? _vState + , "tagSet" =? _vTags + , "volumeId" =? _vVolumeId + , "volumeType" =? _vVolumeType + ] + +data Reservation = Reservation + { _rGroups :: List "item" GroupIdentifier + , _rInstances :: List "item" Instance + , _rOwnerId :: Maybe Text + , _rRequesterId :: Maybe Text + , _rReservationId :: Maybe Text + } deriving (Eq, Show) + +-- | 'Reservation' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'rGroups' @::@ ['GroupIdentifier'] +-- +-- * 'rInstances' @::@ ['Instance'] +-- +-- * 'rOwnerId' @::@ 'Maybe' 'Text' +-- +-- * 'rRequesterId' @::@ 'Maybe' 'Text' +-- +-- * 'rReservationId' @::@ 'Maybe' 'Text' +-- +reservation :: Reservation +reservation = Reservation + { _rReservationId = Nothing + , _rOwnerId = Nothing + , _rRequesterId = Nothing + , _rGroups = mempty + , _rInstances = mempty + } + +-- | One or more security groups. +rGroups :: Lens' Reservation [GroupIdentifier] +rGroups = lens _rGroups (\s a -> s { _rGroups = a }) . _List + +-- | One or more instances. +rInstances :: Lens' Reservation [Instance] +rInstances = lens _rInstances (\s a -> s { _rInstances = a }) . _List + +-- | The ID of the AWS account that owns the reservation. +rOwnerId :: Lens' Reservation (Maybe Text) +rOwnerId = lens _rOwnerId (\s a -> s { _rOwnerId = a }) + +-- | 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 (Maybe Text) +rReservationId = lens _rReservationId (\s a -> s { _rReservationId = a }) + +instance FromXML Reservation where + parseXML x = Reservation + <$> x .@ "groupSet" + <*> x .@ "instancesSet" + <*> x .@? "ownerId" + <*> x .@? "requesterId" + <*> x .@? "reservationId" + +instance ToQuery Reservation where + toQuery Reservation{..} = mconcat + [ "groupSet" =? _rGroups + , "instancesSet" =? _rInstances + , "ownerId" =? _rOwnerId + , "requesterId" =? _rRequesterId + , "reservationId" =? _rReservationId + ] + +data ImportInstanceVolumeDetailItem = ImportInstanceVolumeDetailItem + { _iivdiAvailabilityZone :: Text + , _iivdiBytesConverted :: Integer + , _iivdiDescription :: Maybe Text + , _iivdiImage :: DiskImageDescription + , _iivdiStatus :: Text + , _iivdiStatusMessage :: Maybe Text + , _iivdiVolume :: DiskImageVolumeDescription + } deriving (Eq, Show) + +-- | 'ImportInstanceVolumeDetailItem' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'iivdiAvailabilityZone' @::@ 'Text' +-- +-- * 'iivdiBytesConverted' @::@ 'Integer' +-- +-- * 'iivdiDescription' @::@ 'Maybe' 'Text' +-- +-- * 'iivdiImage' @::@ 'DiskImageDescription' +-- +-- * 'iivdiStatus' @::@ 'Text' +-- +-- * 'iivdiStatusMessage' @::@ 'Maybe' 'Text' +-- +-- * 'iivdiVolume' @::@ 'DiskImageVolumeDescription' +-- +importInstanceVolumeDetailItem :: Integer -- ^ 'iivdiBytesConverted' + -> Text -- ^ 'iivdiAvailabilityZone' + -> DiskImageDescription -- ^ 'iivdiImage' + -> DiskImageVolumeDescription -- ^ 'iivdiVolume' + -> Text -- ^ 'iivdiStatus' + -> ImportInstanceVolumeDetailItem +importInstanceVolumeDetailItem p1 p2 p3 p4 p5 = ImportInstanceVolumeDetailItem + { _iivdiBytesConverted = p1 + , _iivdiAvailabilityZone = p2 + , _iivdiImage = p3 + , _iivdiVolume = p4 + , _iivdiStatus = p5 + , _iivdiStatusMessage = Nothing + , _iivdiDescription = Nothing + } + +-- | 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 }) + +iivdiDescription :: Lens' ImportInstanceVolumeDetailItem (Maybe Text) +iivdiDescription = lens _iivdiDescription (\s a -> s { _iivdiDescription = 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 status information or errors related to the disk image. +iivdiStatusMessage :: Lens' ImportInstanceVolumeDetailItem (Maybe Text) +iivdiStatusMessage = + lens _iivdiStatusMessage (\s a -> s { _iivdiStatusMessage = a }) + +-- | The volume. +iivdiVolume :: Lens' ImportInstanceVolumeDetailItem DiskImageVolumeDescription +iivdiVolume = lens _iivdiVolume (\s a -> s { _iivdiVolume = a }) + +instance FromXML ImportInstanceVolumeDetailItem where + parseXML x = ImportInstanceVolumeDetailItem + <$> x .@ "availabilityZone" + <*> x .@ "bytesConverted" + <*> x .@? "description" + <*> x .@ "image" + <*> x .@ "status" + <*> x .@? "statusMessage" + <*> x .@ "volume" + +instance ToQuery ImportInstanceVolumeDetailItem where + toQuery ImportInstanceVolumeDetailItem{..} = mconcat + [ "availabilityZone" =? _iivdiAvailabilityZone + , "bytesConverted" =? _iivdiBytesConverted + , "description" =? _iivdiDescription + , "image" =? _iivdiImage + , "status" =? _iivdiStatus + , "statusMessage" =? _iivdiStatusMessage + , "volume" =? _iivdiVolume + ] + +data SummaryStatus + = SSImpaired -- ^ impaired + | SSInsufficientData -- ^ insufficient-data + | SSNotApplicable -- ^ not-applicable + | SSOk -- ^ ok + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable SummaryStatus + +instance FromText SummaryStatus where + parser = takeText >>= \case + "impaired" -> pure SSImpaired + "insufficient-data" -> pure SSInsufficientData + "not-applicable" -> pure SSNotApplicable + "ok" -> pure SSOk + e -> fail $ + "Failure parsing SummaryStatus from " ++ show e + +instance ToText SummaryStatus where + toText = \case + SSImpaired -> "impaired" + SSInsufficientData -> "insufficient-data" + SSNotApplicable -> "not-applicable" + SSOk -> "ok" + +instance ToByteString SummaryStatus +instance ToHeader SummaryStatus +instance ToQuery SummaryStatus + +instance FromXML SummaryStatus where + parseXML = parseXMLText "SummaryStatus" + +data ReservedInstancesModification = ReservedInstancesModification + { _rimClientToken :: Maybe Text + , _rimCreateDate :: Maybe ISO8601 + , _rimEffectiveDate :: Maybe ISO8601 + , _rimModificationResults :: List "item" ReservedInstancesModificationResult + , _rimReservedInstancesIds :: List "item" ReservedInstancesId + , _rimReservedInstancesModificationId :: Maybe Text + , _rimStatus :: Maybe Text + , _rimStatusMessage :: Maybe Text + , _rimUpdateDate :: Maybe ISO8601 + } deriving (Eq, Show) + +-- | 'ReservedInstancesModification' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'rimClientToken' @::@ 'Maybe' 'Text' +-- +-- * 'rimCreateDate' @::@ 'Maybe' 'UTCTime' +-- +-- * 'rimEffectiveDate' @::@ 'Maybe' 'UTCTime' +-- +-- * 'rimModificationResults' @::@ ['ReservedInstancesModificationResult'] +-- +-- * 'rimReservedInstancesIds' @::@ ['ReservedInstancesId'] +-- +-- * 'rimReservedInstancesModificationId' @::@ 'Maybe' 'Text' +-- +-- * 'rimStatus' @::@ 'Maybe' 'Text' +-- +-- * 'rimStatusMessage' @::@ 'Maybe' 'Text' +-- +-- * 'rimUpdateDate' @::@ 'Maybe' 'UTCTime' +-- +reservedInstancesModification :: ReservedInstancesModification +reservedInstancesModification = ReservedInstancesModification + { _rimReservedInstancesModificationId = Nothing + , _rimReservedInstancesIds = mempty + , _rimModificationResults = mempty + , _rimCreateDate = Nothing + , _rimUpdateDate = Nothing + , _rimEffectiveDate = Nothing + , _rimStatus = Nothing + , _rimStatusMessage = Nothing + , _rimClientToken = Nothing + } + +-- | A unique, case-sensitive key supplied by the client to ensure that the +-- modification request is idempotent. +rimClientToken :: Lens' ReservedInstancesModification (Maybe Text) +rimClientToken = lens _rimClientToken (\s a -> s { _rimClientToken = a }) + +-- | 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 + +-- | Contains target configurations along with their corresponding new Reserved +-- Instance IDs. +rimModificationResults :: Lens' ReservedInstancesModification [ReservedInstancesModificationResult] +rimModificationResults = + lens _rimModificationResults (\s a -> s { _rimModificationResults = a }) + . _List + +-- | The IDs of one or more Reserved Instances. +rimReservedInstancesIds :: Lens' ReservedInstancesModification [ReservedInstancesId] +rimReservedInstancesIds = + lens _rimReservedInstancesIds (\s a -> s { _rimReservedInstancesIds = a }) + . _List + +-- | A unique ID for the Reserved Instance modification. +rimReservedInstancesModificationId :: Lens' ReservedInstancesModification (Maybe Text) +rimReservedInstancesModificationId = + lens _rimReservedInstancesModificationId + (\s a -> s { _rimReservedInstancesModificationId = a }) + +-- | The status of the Reserved Instances modification request. +rimStatus :: Lens' ReservedInstancesModification (Maybe Text) +rimStatus = lens _rimStatus (\s a -> s { _rimStatus = a }) + +-- | The reason for the status. +rimStatusMessage :: Lens' ReservedInstancesModification (Maybe Text) +rimStatusMessage = lens _rimStatusMessage (\s a -> s { _rimStatusMessage = 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 + +instance FromXML ReservedInstancesModification where + parseXML x = ReservedInstancesModification + <$> x .@? "clientToken" + <*> x .@? "createDate" + <*> x .@? "effectiveDate" + <*> x .@ "modificationResultSet" + <*> x .@ "reservedInstancesSet" + <*> x .@? "reservedInstancesModificationId" + <*> x .@? "status" + <*> x .@? "statusMessage" + <*> x .@? "updateDate" + +instance ToQuery ReservedInstancesModification where + toQuery ReservedInstancesModification{..} = mconcat + [ "clientToken" =? _rimClientToken + , "createDate" =? _rimCreateDate + , "effectiveDate" =? _rimEffectiveDate + , "modificationResultSet" =? _rimModificationResults + , "reservedInstancesSet" =? _rimReservedInstancesIds + , "reservedInstancesModificationId" =? _rimReservedInstancesModificationId + , "status" =? _rimStatus + , "statusMessage" =? _rimStatusMessage + , "updateDate" =? _rimUpdateDate + ] + +data RuleAction + = Allow -- ^ allow + | Deny -- ^ deny + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable RuleAction + +instance FromText RuleAction where + parser = takeText >>= \case + "allow" -> pure Allow + "deny" -> pure Deny + e -> fail $ + "Failure parsing RuleAction from " ++ show e + +instance ToText RuleAction where + toText = \case + Allow -> "allow" + Deny -> "deny" + +instance ToByteString RuleAction +instance ToHeader RuleAction +instance ToQuery RuleAction + +instance FromXML RuleAction where + parseXML = parseXMLText "RuleAction" + +data NetworkInterface = NetworkInterface + { _niAssociation :: Maybe NetworkInterfaceAssociation + , _niAttachment :: Maybe NetworkInterfaceAttachment + , _niAvailabilityZone :: Maybe Text + , _niDescription :: Maybe Text + , _niGroups :: List "item" GroupIdentifier + , _niMacAddress :: Maybe Text + , _niNetworkInterfaceId :: Maybe Text + , _niOwnerId :: Maybe Text + , _niPrivateDnsName :: Maybe Text + , _niPrivateIpAddress :: Maybe Text + , _niPrivateIpAddresses :: List "item" NetworkInterfacePrivateIpAddress + , _niRequesterId :: Maybe Text + , _niRequesterManaged :: Maybe Bool + , _niSourceDestCheck :: Maybe Bool + , _niStatus :: Maybe NetworkInterfaceStatus + , _niSubnetId :: Maybe Text + , _niTagSet :: List "item" Tag + , _niVpcId :: Maybe Text + } deriving (Eq, Show) + +-- | 'NetworkInterface' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'niAssociation' @::@ 'Maybe' 'NetworkInterfaceAssociation' +-- +-- * 'niAttachment' @::@ 'Maybe' 'NetworkInterfaceAttachment' +-- +-- * 'niAvailabilityZone' @::@ 'Maybe' 'Text' +-- +-- * 'niDescription' @::@ 'Maybe' 'Text' +-- +-- * 'niGroups' @::@ ['GroupIdentifier'] +-- +-- * 'niMacAddress' @::@ 'Maybe' 'Text' +-- +-- * 'niNetworkInterfaceId' @::@ 'Maybe' 'Text' +-- +-- * 'niOwnerId' @::@ 'Maybe' 'Text' +-- +-- * 'niPrivateDnsName' @::@ 'Maybe' 'Text' +-- +-- * 'niPrivateIpAddress' @::@ 'Maybe' 'Text' +-- +-- * 'niPrivateIpAddresses' @::@ ['NetworkInterfacePrivateIpAddress'] +-- +-- * 'niRequesterId' @::@ 'Maybe' 'Text' +-- +-- * 'niRequesterManaged' @::@ 'Maybe' 'Bool' +-- +-- * 'niSourceDestCheck' @::@ 'Maybe' 'Bool' +-- +-- * 'niStatus' @::@ 'Maybe' 'NetworkInterfaceStatus' +-- +-- * 'niSubnetId' @::@ 'Maybe' 'Text' +-- +-- * 'niTagSet' @::@ ['Tag'] +-- +-- * 'niVpcId' @::@ 'Maybe' 'Text' +-- +networkInterface :: NetworkInterface +networkInterface = NetworkInterface + { _niNetworkInterfaceId = Nothing + , _niSubnetId = Nothing + , _niVpcId = Nothing + , _niAvailabilityZone = Nothing + , _niDescription = Nothing + , _niOwnerId = Nothing + , _niRequesterId = Nothing + , _niRequesterManaged = Nothing + , _niStatus = Nothing + , _niMacAddress = Nothing + , _niPrivateIpAddress = Nothing + , _niPrivateDnsName = Nothing + , _niSourceDestCheck = Nothing + , _niGroups = mempty + , _niAttachment = Nothing + , _niAssociation = Nothing + , _niTagSet = mempty + , _niPrivateIpAddresses = mempty + } + +-- | The association information for an Elastic IP associated with the network +-- interface. +niAssociation :: Lens' NetworkInterface (Maybe NetworkInterfaceAssociation) +niAssociation = lens _niAssociation (\s a -> s { _niAssociation = a }) + +-- | The network interface attachment. +niAttachment :: Lens' NetworkInterface (Maybe NetworkInterfaceAttachment) +niAttachment = lens _niAttachment (\s a -> s { _niAttachment = a }) + +-- | The Availability Zone. +niAvailabilityZone :: Lens' NetworkInterface (Maybe Text) +niAvailabilityZone = + lens _niAvailabilityZone (\s a -> s { _niAvailabilityZone = a }) + +-- | A description. +niDescription :: Lens' NetworkInterface (Maybe Text) +niDescription = lens _niDescription (\s a -> s { _niDescription = a }) + +-- | Any security groups for the network interface. +niGroups :: Lens' NetworkInterface [GroupIdentifier] +niGroups = lens _niGroups (\s a -> s { _niGroups = a }) . _List + +-- | The MAC address. +niMacAddress :: Lens' NetworkInterface (Maybe Text) +niMacAddress = lens _niMacAddress (\s a -> s { _niMacAddress = a }) + +-- | The ID of the network interface. +niNetworkInterfaceId :: Lens' NetworkInterface (Maybe Text) +niNetworkInterfaceId = + lens _niNetworkInterfaceId (\s a -> s { _niNetworkInterfaceId = 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 private DNS name. +niPrivateDnsName :: Lens' NetworkInterface (Maybe Text) +niPrivateDnsName = lens _niPrivateDnsName (\s a -> s { _niPrivateDnsName = a }) + +-- | The IP address of the network interface within the subnet. +niPrivateIpAddress :: Lens' NetworkInterface (Maybe Text) +niPrivateIpAddress = + lens _niPrivateIpAddress (\s a -> s { _niPrivateIpAddress = a }) + +-- | The private IP addresses associated with the network interface. +niPrivateIpAddresses :: Lens' NetworkInterface [NetworkInterfacePrivateIpAddress] +niPrivateIpAddresses = + lens _niPrivateIpAddresses (\s a -> s { _niPrivateIpAddresses = a }) + . _List + +-- | 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 }) + +-- | Indicates whether the network interface is being managed by AWS. +niRequesterManaged :: Lens' NetworkInterface (Maybe Bool) +niRequesterManaged = + lens _niRequesterManaged (\s a -> s { _niRequesterManaged = a }) + +-- | Indicates whether traffic to or from the instance is validated. +niSourceDestCheck :: Lens' NetworkInterface (Maybe Bool) +niSourceDestCheck = + lens _niSourceDestCheck (\s a -> s { _niSourceDestCheck = a }) + +-- | The status of the network interface. +niStatus :: Lens' NetworkInterface (Maybe NetworkInterfaceStatus) +niStatus = lens _niStatus (\s a -> s { _niStatus = a }) + +-- | The ID of the subnet. +niSubnetId :: Lens' NetworkInterface (Maybe Text) +niSubnetId = lens _niSubnetId (\s a -> s { _niSubnetId = a }) + +-- | Any tags assigned to the network interface. +niTagSet :: Lens' NetworkInterface [Tag] +niTagSet = lens _niTagSet (\s a -> s { _niTagSet = a }) . _List + +-- | The ID of the VPC. +niVpcId :: Lens' NetworkInterface (Maybe Text) +niVpcId = lens _niVpcId (\s a -> s { _niVpcId = a }) + +instance FromXML NetworkInterface where + parseXML x = NetworkInterface + <$> x .@? "association" + <*> x .@? "attachment" + <*> x .@? "availabilityZone" + <*> x .@? "description" + <*> x .@ "groupSet" + <*> x .@? "macAddress" + <*> x .@? "networkInterfaceId" + <*> x .@? "ownerId" + <*> x .@? "privateDnsName" + <*> x .@? "privateIpAddress" + <*> x .@ "privateIpAddressesSet" + <*> x .@? "requesterId" + <*> x .@? "requesterManaged" + <*> x .@? "sourceDestCheck" + <*> x .@? "status" + <*> x .@? "subnetId" + <*> x .@ "tagSet" + <*> x .@? "vpcId" + +instance ToQuery NetworkInterface where + toQuery NetworkInterface{..} = mconcat + [ "association" =? _niAssociation + , "attachment" =? _niAttachment + , "availabilityZone" =? _niAvailabilityZone + , "description" =? _niDescription + , "groupSet" =? _niGroups + , "macAddress" =? _niMacAddress + , "networkInterfaceId" =? _niNetworkInterfaceId + , "ownerId" =? _niOwnerId + , "privateDnsName" =? _niPrivateDnsName + , "privateIpAddress" =? _niPrivateIpAddress + , "privateIpAddressesSet" =? _niPrivateIpAddresses + , "requesterId" =? _niRequesterId + , "requesterManaged" =? _niRequesterManaged + , "sourceDestCheck" =? _niSourceDestCheck + , "status" =? _niStatus + , "subnetId" =? _niSubnetId + , "tagSet" =? _niTagSet + , "vpcId" =? _niVpcId + ] + +data TelemetryStatus + = Down -- ^ DOWN + | Up -- ^ UP + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable TelemetryStatus + +instance FromText TelemetryStatus where + parser = takeText >>= \case + "DOWN" -> pure Down + "UP" -> pure Up + e -> fail $ + "Failure parsing TelemetryStatus from " ++ show e + +instance ToText TelemetryStatus where + toText = \case + Down -> "DOWN" + Up -> "UP" + +instance ToByteString TelemetryStatus +instance ToHeader TelemetryStatus +instance ToQuery TelemetryStatus + +instance FromXML TelemetryStatus where + parseXML = parseXMLText "TelemetryStatus" + +data Subnet = Subnet + { _s1AvailabilityZone :: Maybe Text + , _s1AvailableIpAddressCount :: Maybe Int + , _s1CidrBlock :: Maybe Text + , _s1DefaultForAz :: Maybe Bool + , _s1MapPublicIpOnLaunch :: Maybe Bool + , _s1State :: Maybe SubnetState + , _s1SubnetId :: Maybe Text + , _s1Tags :: List "item" Tag + , _s1VpcId :: Maybe Text + } deriving (Eq, Show) + +-- | 'Subnet' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 's1AvailabilityZone' @::@ 'Maybe' 'Text' +-- +-- * 's1AvailableIpAddressCount' @::@ 'Maybe' 'Int' +-- +-- * 's1CidrBlock' @::@ 'Maybe' 'Text' +-- +-- * 's1DefaultForAz' @::@ 'Maybe' 'Bool' +-- +-- * 's1MapPublicIpOnLaunch' @::@ 'Maybe' 'Bool' +-- +-- * 's1State' @::@ 'Maybe' 'SubnetState' +-- +-- * 's1SubnetId' @::@ 'Maybe' 'Text' +-- +-- * 's1Tags' @::@ ['Tag'] +-- +-- * 's1VpcId' @::@ 'Maybe' 'Text' +-- +subnet :: Subnet +subnet = Subnet + { _s1SubnetId = Nothing + , _s1State = Nothing + , _s1VpcId = Nothing + , _s1CidrBlock = Nothing + , _s1AvailableIpAddressCount = Nothing + , _s1AvailabilityZone = Nothing + , _s1DefaultForAz = Nothing + , _s1MapPublicIpOnLaunch = Nothing + , _s1Tags = mempty + } + +-- | The Availability Zone of the subnet. +s1AvailabilityZone :: Lens' Subnet (Maybe Text) +s1AvailabilityZone = + lens _s1AvailabilityZone (\s a -> s { _s1AvailabilityZone = a }) + +-- | The number of unused IP addresses in the subnet. Note that the IP addresses +-- for any stopped instances are considered unavailable. +s1AvailableIpAddressCount :: Lens' Subnet (Maybe Int) +s1AvailableIpAddressCount = + lens _s1AvailableIpAddressCount + (\s a -> s { _s1AvailableIpAddressCount = a }) + +-- | The CIDR block assigned to the subnet. +s1CidrBlock :: Lens' Subnet (Maybe Text) +s1CidrBlock = lens _s1CidrBlock (\s a -> s { _s1CidrBlock = a }) + +-- | Indicates whether this is the default subnet for the Availability Zone. +s1DefaultForAz :: Lens' Subnet (Maybe Bool) +s1DefaultForAz = lens _s1DefaultForAz (\s a -> s { _s1DefaultForAz = a }) + +-- | Indicates whether instances launched in this subnet receive a public IP +-- address. +s1MapPublicIpOnLaunch :: Lens' Subnet (Maybe Bool) +s1MapPublicIpOnLaunch = + lens _s1MapPublicIpOnLaunch (\s a -> s { _s1MapPublicIpOnLaunch = a }) + +-- | The current state of the subnet. +s1State :: Lens' Subnet (Maybe SubnetState) +s1State = lens _s1State (\s a -> s { _s1State = a }) + +-- | The ID of the subnet. +s1SubnetId :: Lens' Subnet (Maybe Text) +s1SubnetId = lens _s1SubnetId (\s a -> s { _s1SubnetId = a }) + +-- | Any tags assigned to the subnet. +s1Tags :: Lens' Subnet [Tag] +s1Tags = lens _s1Tags (\s a -> s { _s1Tags = a }) . _List + +-- | The ID of the VPC the subnet is in. +s1VpcId :: Lens' Subnet (Maybe Text) +s1VpcId = lens _s1VpcId (\s a -> s { _s1VpcId = a }) + +instance FromXML Subnet where + parseXML x = Subnet + <$> x .@? "availabilityZone" + <*> x .@? "availableIpAddressCount" + <*> x .@? "cidrBlock" + <*> x .@? "defaultForAz" + <*> x .@? "mapPublicIpOnLaunch" + <*> x .@? "state" + <*> x .@? "subnetId" + <*> x .@ "tagSet" + <*> x .@? "vpcId" + +instance ToQuery Subnet where + toQuery Subnet{..} = mconcat + [ "availabilityZone" =? _s1AvailabilityZone + , "availableIpAddressCount" =? _s1AvailableIpAddressCount + , "cidrBlock" =? _s1CidrBlock + , "defaultForAz" =? _s1DefaultForAz + , "mapPublicIpOnLaunch" =? _s1MapPublicIpOnLaunch + , "state" =? _s1State + , "subnetId" =? _s1SubnetId + , "tagSet" =? _s1Tags + , "vpcId" =? _s1VpcId + ] + +data KeyPairInfo = KeyPairInfo + { _kpiKeyFingerprint :: Maybe Text + , _kpiKeyName :: Maybe Text + } deriving (Eq, Ord, Show) + +-- | 'KeyPairInfo' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'kpiKeyFingerprint' @::@ 'Maybe' 'Text' +-- +-- * 'kpiKeyName' @::@ 'Maybe' 'Text' +-- +keyPairInfo :: KeyPairInfo +keyPairInfo = KeyPairInfo + { _kpiKeyName = Nothing + , _kpiKeyFingerprint = 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 ToQuery KeyPairInfo where + toQuery KeyPairInfo{..} = mconcat + [ "keyFingerprint" =? _kpiKeyFingerprint + , "keyName" =? _kpiKeyName + ] + +data LaunchPermissionModifications = LaunchPermissionModifications + { _lpmAdd :: List "item" LaunchPermission + , _lpmRemove :: List "item" LaunchPermission + } deriving (Eq, Show) + +-- | 'LaunchPermissionModifications' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'lpmAdd' @::@ ['LaunchPermission'] +-- +-- * 'lpmRemove' @::@ ['LaunchPermission'] +-- +launchPermissionModifications :: LaunchPermissionModifications +launchPermissionModifications = LaunchPermissionModifications + { _lpmAdd = mempty + , _lpmRemove = mempty + } + +-- | The AWS account ID to add to the list of launch permissions for the AMI. +lpmAdd :: Lens' LaunchPermissionModifications [LaunchPermission] +lpmAdd = lens _lpmAdd (\s a -> s { _lpmAdd = a }) . _List + +-- | The AWS account ID to remove from the list of launch permissions for the AMI. +lpmRemove :: Lens' LaunchPermissionModifications [LaunchPermission] +lpmRemove = lens _lpmRemove (\s a -> s { _lpmRemove = a }) . _List + +instance FromXML LaunchPermissionModifications where + parseXML x = LaunchPermissionModifications + <$> x .@ "Add" + <*> x .@ "Remove" + +instance ToQuery LaunchPermissionModifications where + toQuery LaunchPermissionModifications{..} = mconcat + [ "Add" =? _lpmAdd + , "Remove" =? _lpmRemove + ] + +data SnapshotState + = Completed -- ^ completed + | Error -- ^ error + | Pending -- ^ pending + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable SnapshotState + +instance FromText SnapshotState where + parser = takeText >>= \case + "completed" -> pure Completed + "error" -> pure Error + "pending" -> pure Pending + e -> fail $ + "Failure parsing SnapshotState from " ++ show e + +instance ToText SnapshotState where + toText = \case + Completed -> "completed" + Error -> "error" + Pending -> "pending" + +instance ToByteString SnapshotState +instance ToHeader SnapshotState +instance ToQuery SnapshotState + +instance FromXML SnapshotState where + parseXML = parseXMLText "SnapshotState" + +data InstanceNetworkInterfaceAssociation = InstanceNetworkInterfaceAssociation + { _iniaIpOwnerId :: Maybe Text + , _iniaPublicDnsName :: Maybe Text + , _iniaPublicIp :: Maybe Text + } deriving (Eq, Ord, Show) + +-- | 'InstanceNetworkInterfaceAssociation' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'iniaIpOwnerId' @::@ 'Maybe' 'Text' +-- +-- * 'iniaPublicDnsName' @::@ 'Maybe' 'Text' +-- +-- * 'iniaPublicIp' @::@ 'Maybe' 'Text' +-- +instanceNetworkInterfaceAssociation :: InstanceNetworkInterfaceAssociation +instanceNetworkInterfaceAssociation = InstanceNetworkInterfaceAssociation + { _iniaPublicIp = Nothing + , _iniaPublicDnsName = Nothing + , _iniaIpOwnerId = Nothing + } + +-- | 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 DNS name. +iniaPublicDnsName :: Lens' InstanceNetworkInterfaceAssociation (Maybe Text) +iniaPublicDnsName = + lens _iniaPublicDnsName (\s a -> s { _iniaPublicDnsName = 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 .@? "ipOwnerId" + <*> x .@? "publicDnsName" + <*> x .@? "publicIp" + +instance ToQuery InstanceNetworkInterfaceAssociation where + toQuery InstanceNetworkInterfaceAssociation{..} = mconcat + [ "ipOwnerId" =? _iniaIpOwnerId + , "publicDnsName" =? _iniaPublicDnsName + , "publicIp" =? _iniaPublicIp + ] + +data DiskImageDetail = DiskImageDetail + { _didBytes :: Integer + , _didFormat :: DiskImageFormat + , _didImportManifestUrl :: Text + } deriving (Eq, Show) + +-- | 'DiskImageDetail' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'didBytes' @::@ 'Integer' +-- +-- * 'didFormat' @::@ 'DiskImageFormat' +-- +-- * 'didImportManifestUrl' @::@ 'Text' +-- +diskImageDetail :: DiskImageFormat -- ^ 'didFormat' + -> Integer -- ^ 'didBytes' + -> Text -- ^ 'didImportManifestUrl' + -> DiskImageDetail +diskImageDetail p1 p2 p3 = DiskImageDetail + { _didFormat = p1 + , _didBytes = p2 + , _didImportManifestUrl = p3 + } + +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. 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/. +didImportManifestUrl :: Lens' DiskImageDetail Text +didImportManifestUrl = + lens _didImportManifestUrl (\s a -> s { _didImportManifestUrl = a }) + +instance FromXML DiskImageDetail where + parseXML x = DiskImageDetail + <$> x .@ "bytes" + <*> x .@ "format" + <*> x .@ "importManifestUrl" + +instance ToQuery DiskImageDetail where + toQuery DiskImageDetail{..} = mconcat + [ "bytes" =? _didBytes + , "format" =? _didFormat + , "importManifestUrl" =? _didImportManifestUrl + ] + +data InstancePrivateIpAddress = InstancePrivateIpAddress + { _ipiaAssociation :: Maybe InstanceNetworkInterfaceAssociation + , _ipiaPrimary :: Maybe Bool + , _ipiaPrivateDnsName :: Maybe Text + , _ipiaPrivateIpAddress :: Maybe Text + } deriving (Eq, Show) + +-- | 'InstancePrivateIpAddress' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'ipiaAssociation' @::@ 'Maybe' 'InstanceNetworkInterfaceAssociation' +-- +-- * 'ipiaPrimary' @::@ 'Maybe' 'Bool' +-- +-- * 'ipiaPrivateDnsName' @::@ 'Maybe' 'Text' +-- +-- * 'ipiaPrivateIpAddress' @::@ 'Maybe' 'Text' +-- +instancePrivateIpAddress :: InstancePrivateIpAddress +instancePrivateIpAddress = InstancePrivateIpAddress + { _ipiaPrivateIpAddress = Nothing + , _ipiaPrivateDnsName = Nothing + , _ipiaPrimary = Nothing + , _ipiaAssociation = Nothing + } + +-- | 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 }) + +-- | Indicates whether this IP 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 DNS name. +ipiaPrivateDnsName :: Lens' InstancePrivateIpAddress (Maybe Text) +ipiaPrivateDnsName = + lens _ipiaPrivateDnsName (\s a -> s { _ipiaPrivateDnsName = a }) + +-- | The private IP address of the network interface. +ipiaPrivateIpAddress :: Lens' InstancePrivateIpAddress (Maybe Text) +ipiaPrivateIpAddress = + lens _ipiaPrivateIpAddress (\s a -> s { _ipiaPrivateIpAddress = a }) + +instance FromXML InstancePrivateIpAddress where + parseXML x = InstancePrivateIpAddress + <$> x .@? "association" + <*> x .@? "primary" + <*> x .@? "privateDnsName" + <*> x .@? "privateIpAddress" + +instance ToQuery InstancePrivateIpAddress where + toQuery InstancePrivateIpAddress{..} = mconcat + [ "association" =? _ipiaAssociation + , "primary" =? _ipiaPrimary + , "privateDnsName" =? _ipiaPrivateDnsName + , "privateIpAddress" =? _ipiaPrivateIpAddress + ] + +data CancelledSpotInstanceRequest = CancelledSpotInstanceRequest + { _csiSpotInstanceRequestId :: Maybe Text + , _csiState :: Maybe CancelSpotInstanceRequestState + } deriving (Eq, Show) + +-- | 'CancelledSpotInstanceRequest' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'csiSpotInstanceRequestId' @::@ 'Maybe' 'Text' +-- +-- * 'csiState' @::@ 'Maybe' 'CancelSpotInstanceRequestState' +-- +cancelledSpotInstanceRequest :: CancelledSpotInstanceRequest +cancelledSpotInstanceRequest = CancelledSpotInstanceRequest + { _csiSpotInstanceRequestId = Nothing + , _csiState = Nothing + } + +-- | The ID of the Spot Instance request. +csiSpotInstanceRequestId :: Lens' CancelledSpotInstanceRequest (Maybe Text) +csiSpotInstanceRequestId = + lens _csiSpotInstanceRequestId + (\s a -> s { _csiSpotInstanceRequestId = a }) + +-- | The state of the Spot Instance request. +csiState :: Lens' CancelledSpotInstanceRequest (Maybe CancelSpotInstanceRequestState) +csiState = lens _csiState (\s a -> s { _csiState = a }) + +instance FromXML CancelledSpotInstanceRequest where + parseXML x = CancelledSpotInstanceRequest + <$> x .@? "spotInstanceRequestId" + <*> x .@? "state" + +instance ToQuery CancelledSpotInstanceRequest where + toQuery CancelledSpotInstanceRequest{..} = mconcat + [ "spotInstanceRequestId" =? _csiSpotInstanceRequestId + , "state" =? _csiState + ] + +newtype VpnConnectionOptionsSpecification = VpnConnectionOptionsSpecification + { _vcosStaticRoutesOnly :: Maybe Bool + } deriving (Eq, Ord, Show) + +-- | 'VpnConnectionOptionsSpecification' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'vcosStaticRoutesOnly' @::@ 'Maybe' 'Bool' +-- +vpnConnectionOptionsSpecification :: VpnConnectionOptionsSpecification +vpnConnectionOptionsSpecification = VpnConnectionOptionsSpecification + { _vcosStaticRoutesOnly = Nothing + } + +-- | Indicates whether the VPN connection uses static routes only. Static routes +-- must be used for devices that don't support BGP. +vcosStaticRoutesOnly :: Lens' VpnConnectionOptionsSpecification (Maybe Bool) +vcosStaticRoutesOnly = + lens _vcosStaticRoutesOnly (\s a -> s { _vcosStaticRoutesOnly = a }) + +instance FromXML VpnConnectionOptionsSpecification where + parseXML x = VpnConnectionOptionsSpecification + <$> x .@? "staticRoutesOnly" + +instance ToQuery VpnConnectionOptionsSpecification where + toQuery VpnConnectionOptionsSpecification{..} = mconcat + [ "staticRoutesOnly" =? _vcosStaticRoutesOnly + ] + +data Address = Address + { _aAllocationId :: Maybe Text + , _aAssociationId :: Maybe Text + , _aDomain :: Maybe DomainType + , _aInstanceId :: Maybe Text + , _aNetworkInterfaceId :: Maybe Text + , _aNetworkInterfaceOwnerId :: Maybe Text + , _aPrivateIpAddress :: Maybe Text + , _aPublicIp :: Maybe Text + } deriving (Eq, Show) + +-- | 'Address' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'aAllocationId' @::@ 'Maybe' 'Text' +-- +-- * 'aAssociationId' @::@ 'Maybe' 'Text' +-- +-- * 'aDomain' @::@ 'Maybe' 'DomainType' +-- +-- * 'aInstanceId' @::@ 'Maybe' 'Text' +-- +-- * 'aNetworkInterfaceId' @::@ 'Maybe' 'Text' +-- +-- * 'aNetworkInterfaceOwnerId' @::@ 'Maybe' 'Text' +-- +-- * 'aPrivateIpAddress' @::@ 'Maybe' 'Text' +-- +-- * 'aPublicIp' @::@ 'Maybe' 'Text' +-- +address :: Address +address = Address + { _aInstanceId = Nothing + , _aPublicIp = Nothing + , _aAllocationId = Nothing + , _aAssociationId = Nothing + , _aDomain = Nothing + , _aNetworkInterfaceId = Nothing + , _aNetworkInterfaceOwnerId = Nothing + , _aPrivateIpAddress = Nothing + } + +-- | 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 }) + +-- | 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 }) + +-- | 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 instance the address is associated with (if any). +aInstanceId :: Lens' Address (Maybe Text) +aInstanceId = lens _aInstanceId (\s a -> s { _aInstanceId = a }) + +-- | The ID of the network interface. +aNetworkInterfaceId :: Lens' Address (Maybe Text) +aNetworkInterfaceId = + lens _aNetworkInterfaceId (\s a -> s { _aNetworkInterfaceId = 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 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 .@? "allocationId" + <*> x .@? "associationId" + <*> x .@? "domain" + <*> x .@? "instanceId" + <*> x .@? "networkInterfaceId" + <*> x .@? "networkInterfaceOwnerId" + <*> x .@? "privateIpAddress" + <*> x .@? "publicIp" + +instance ToQuery Address where + toQuery Address{..} = mconcat + [ "allocationId" =? _aAllocationId + , "associationId" =? _aAssociationId + , "domain" =? _aDomain + , "instanceId" =? _aInstanceId + , "networkInterfaceId" =? _aNetworkInterfaceId + , "networkInterfaceOwnerId" =? _aNetworkInterfaceOwnerId + , "privateIpAddress" =? _aPrivateIpAddress + , "publicIp" =? _aPublicIp + ] + +data VolumeAttachmentState + = VASAttached -- ^ attached + | VASAttaching -- ^ attaching + | VASDetached -- ^ detached + | VASDetaching -- ^ detaching + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable VolumeAttachmentState + +instance FromText VolumeAttachmentState where + parser = takeText >>= \case + "attached" -> pure VASAttached + "attaching" -> pure VASAttaching + "detached" -> pure VASDetached + "detaching" -> pure VASDetaching + e -> fail $ + "Failure parsing VolumeAttachmentState from " ++ show e + +instance ToText VolumeAttachmentState where + toText = \case + VASAttached -> "attached" + VASAttaching -> "attaching" + VASDetached -> "detached" + VASDetaching -> "detaching" + +instance ToByteString VolumeAttachmentState +instance ToHeader VolumeAttachmentState +instance ToQuery VolumeAttachmentState + +instance FromXML VolumeAttachmentState where + parseXML = parseXMLText "VolumeAttachmentState" + +data LaunchPermission = LaunchPermission + { _lpGroup :: Maybe PermissionGroup + , _lpUserId :: Maybe Text + } deriving (Eq, Show) + +-- | 'LaunchPermission' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'lpGroup' @::@ 'Maybe' 'PermissionGroup' +-- +-- * 'lpUserId' @::@ 'Maybe' 'Text' +-- +launchPermission :: LaunchPermission +launchPermission = LaunchPermission + { _lpUserId = Nothing + , _lpGroup = Nothing + } + +-- | The name of the group. +lpGroup :: Lens' LaunchPermission (Maybe PermissionGroup) +lpGroup = lens _lpGroup (\s a -> s { _lpGroup = a }) + +-- | The AWS account ID. +lpUserId :: Lens' LaunchPermission (Maybe Text) +lpUserId = lens _lpUserId (\s a -> s { _lpUserId = a }) + +instance FromXML LaunchPermission where + parseXML x = LaunchPermission + <$> x .@? "group" + <*> x .@? "userId" + +instance ToQuery LaunchPermission where + toQuery LaunchPermission{..} = mconcat + [ "group" =? _lpGroup + , "userId" =? _lpUserId + ] + +data RouteState + = Active -- ^ active + | Blackhole -- ^ blackhole + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable RouteState + +instance FromText RouteState where + parser = takeText >>= \case + "active" -> pure Active + "blackhole" -> pure Blackhole + e -> fail $ + "Failure parsing RouteState from " ++ show e + +instance ToText RouteState where + toText = \case + Active -> "active" + Blackhole -> "blackhole" + +instance ToByteString RouteState +instance ToHeader RouteState +instance ToQuery RouteState + +instance FromXML RouteState where + parseXML = parseXMLText "RouteState" + +data RouteTableAssociation = RouteTableAssociation + { _rtaMain :: Maybe Bool + , _rtaRouteTableAssociationId :: Maybe Text + , _rtaRouteTableId :: Maybe Text + , _rtaSubnetId :: Maybe Text + } deriving (Eq, Ord, Show) + +-- | 'RouteTableAssociation' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'rtaMain' @::@ 'Maybe' 'Bool' +-- +-- * 'rtaRouteTableAssociationId' @::@ 'Maybe' 'Text' +-- +-- * 'rtaRouteTableId' @::@ 'Maybe' 'Text' +-- +-- * 'rtaSubnetId' @::@ 'Maybe' 'Text' +-- +routeTableAssociation :: RouteTableAssociation +routeTableAssociation = RouteTableAssociation + { _rtaRouteTableAssociationId = Nothing + , _rtaRouteTableId = Nothing + , _rtaSubnetId = Nothing + , _rtaMain = Nothing + } + +-- | 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 association between a route table and a subnet. +rtaRouteTableAssociationId :: Lens' RouteTableAssociation (Maybe Text) +rtaRouteTableAssociationId = + lens _rtaRouteTableAssociationId + (\s a -> s { _rtaRouteTableAssociationId = a }) + +-- | The ID of the route table. +rtaRouteTableId :: Lens' RouteTableAssociation (Maybe Text) +rtaRouteTableId = lens _rtaRouteTableId (\s a -> s { _rtaRouteTableId = a }) + +-- | The ID of the subnet. +rtaSubnetId :: Lens' RouteTableAssociation (Maybe Text) +rtaSubnetId = lens _rtaSubnetId (\s a -> s { _rtaSubnetId = a }) + +instance FromXML RouteTableAssociation where + parseXML x = RouteTableAssociation + <$> x .@? "main" + <*> x .@? "routeTableAssociationId" + <*> x .@? "routeTableId" + <*> x .@? "subnetId" + +instance ToQuery RouteTableAssociation where + toQuery RouteTableAssociation{..} = mconcat + [ "main" =? _rtaMain + , "routeTableAssociationId" =? _rtaRouteTableAssociationId + , "routeTableId" =? _rtaRouteTableId + , "subnetId" =? _rtaSubnetId + ] + +data BundleTaskState + = BTSBundling -- ^ bundling + | BTSCancelling -- ^ cancelling + | BTSComplete -- ^ complete + | BTSFailed -- ^ failed + | BTSPending -- ^ pending + | BTSStoring -- ^ storing + | BTSWaitingForShutdown -- ^ waiting-for-shutdown + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable BundleTaskState + +instance FromText BundleTaskState where + parser = takeText >>= \case + "bundling" -> pure BTSBundling + "cancelling" -> pure BTSCancelling + "complete" -> pure BTSComplete + "failed" -> pure BTSFailed + "pending" -> pure BTSPending + "storing" -> pure BTSStoring + "waiting-for-shutdown" -> pure BTSWaitingForShutdown + e -> fail $ + "Failure parsing BundleTaskState from " ++ show e + +instance ToText BundleTaskState where + toText = \case + BTSBundling -> "bundling" + BTSCancelling -> "cancelling" + BTSComplete -> "complete" + BTSFailed -> "failed" + BTSPending -> "pending" + BTSStoring -> "storing" + BTSWaitingForShutdown -> "waiting-for-shutdown" + +instance ToByteString BundleTaskState +instance ToHeader BundleTaskState +instance ToQuery BundleTaskState + +instance FromXML BundleTaskState where + parseXML = parseXMLText "BundleTaskState" + +data PortRange = PortRange + { _prFrom :: Maybe Int + , _prTo :: Maybe Int + } deriving (Eq, Ord, Show) + +-- | 'PortRange' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'prFrom' @::@ 'Maybe' 'Int' +-- +-- * 'prTo' @::@ 'Maybe' 'Int' +-- +portRange :: PortRange +portRange = PortRange + { _prFrom = Nothing + , _prTo = Nothing + } + +-- | The first port in the range. +prFrom :: Lens' PortRange (Maybe Int) +prFrom = lens _prFrom (\s a -> s { _prFrom = a }) + +-- | The last port in the range. +prTo :: Lens' PortRange (Maybe Int) +prTo = lens _prTo (\s a -> s { _prTo = a }) + +instance FromXML PortRange where + parseXML x = PortRange + <$> x .@? "from" + <*> x .@? "to" + +instance ToQuery PortRange where + toQuery PortRange{..} = mconcat + [ "from" =? _prFrom + , "to" =? _prTo + ] + +data VpcAttributeName + = EnableDnsHostnames -- ^ enableDnsHostnames + | EnableDnsSupport -- ^ enableDnsSupport + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable VpcAttributeName + +instance FromText VpcAttributeName where + parser = takeText >>= \case + "enableDnsHostnames" -> pure EnableDnsHostnames + "enableDnsSupport" -> pure EnableDnsSupport + e -> fail $ + "Failure parsing VpcAttributeName from " ++ show e + +instance ToText VpcAttributeName where + toText = \case + EnableDnsHostnames -> "enableDnsHostnames" + EnableDnsSupport -> "enableDnsSupport" + +instance ToByteString VpcAttributeName +instance ToHeader VpcAttributeName +instance ToQuery VpcAttributeName + +instance FromXML VpcAttributeName where + parseXML = parseXMLText "VpcAttributeName" + +data ReservedInstancesConfiguration = ReservedInstancesConfiguration + { _ricAvailabilityZone :: Maybe Text + , _ricInstanceCount :: Maybe Int + , _ricInstanceType :: Maybe InstanceType + , _ricPlatform :: Maybe Text + } deriving (Eq, Show) + +-- | 'ReservedInstancesConfiguration' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'ricAvailabilityZone' @::@ 'Maybe' 'Text' +-- +-- * 'ricInstanceCount' @::@ 'Maybe' 'Int' +-- +-- * 'ricInstanceType' @::@ 'Maybe' 'InstanceType' +-- +-- * 'ricPlatform' @::@ 'Maybe' 'Text' +-- +reservedInstancesConfiguration :: ReservedInstancesConfiguration +reservedInstancesConfiguration = ReservedInstancesConfiguration + { _ricAvailabilityZone = Nothing + , _ricPlatform = Nothing + , _ricInstanceCount = Nothing + , _ricInstanceType = Nothing + } + +-- | The Availability Zone for the modified Reserved Instances. +ricAvailabilityZone :: Lens' ReservedInstancesConfiguration (Maybe Text) +ricAvailabilityZone = + lens _ricAvailabilityZone (\s a -> s { _ricAvailabilityZone = 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 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 }) + +instance FromXML ReservedInstancesConfiguration where + parseXML x = ReservedInstancesConfiguration + <$> x .@? "availabilityZone" + <*> x .@? "instanceCount" + <*> x .@? "instanceType" + <*> x .@? "platform" + +instance ToQuery ReservedInstancesConfiguration where + toQuery ReservedInstancesConfiguration{..} = mconcat + [ "availabilityZone" =? _ricAvailabilityZone + , "instanceCount" =? _ricInstanceCount + , "instanceType" =? _ricInstanceType + , "platform" =? _ricPlatform + ] + +data VolumeStatusDetails = VolumeStatusDetails + { _vsdName :: Maybe VolumeStatusName + , _vsdStatus :: Maybe Text + } deriving (Eq, Show) + +-- | 'VolumeStatusDetails' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'vsdName' @::@ 'Maybe' 'VolumeStatusName' +-- +-- * 'vsdStatus' @::@ 'Maybe' 'Text' +-- +volumeStatusDetails :: VolumeStatusDetails +volumeStatusDetails = VolumeStatusDetails + { _vsdName = Nothing + , _vsdStatus = Nothing + } + +-- | The name of the volume status. +vsdName :: Lens' VolumeStatusDetails (Maybe VolumeStatusName) +vsdName = lens _vsdName (\s a -> s { _vsdName = a }) + +-- | The intended status of the volume status. +vsdStatus :: Lens' VolumeStatusDetails (Maybe Text) +vsdStatus = lens _vsdStatus (\s a -> s { _vsdStatus = a }) + +instance FromXML VolumeStatusDetails where + parseXML x = VolumeStatusDetails + <$> x .@? "name" + <*> x .@? "status" + +instance ToQuery VolumeStatusDetails where + toQuery VolumeStatusDetails{..} = mconcat + [ "name" =? _vsdName + , "status" =? _vsdStatus + ] + +data SpotInstanceState + = SISActive -- ^ active + | SISCancelled -- ^ cancelled + | SISClosed -- ^ closed + | SISFailed -- ^ failed + | SISOpen -- ^ open + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable SpotInstanceState + +instance FromText SpotInstanceState where + parser = takeText >>= \case + "active" -> pure SISActive + "cancelled" -> pure SISCancelled + "closed" -> pure SISClosed + "failed" -> pure SISFailed + "open" -> pure SISOpen + e -> fail $ + "Failure parsing SpotInstanceState from " ++ show e + +instance ToText SpotInstanceState where + toText = \case + SISActive -> "active" + SISCancelled -> "cancelled" + SISClosed -> "closed" + SISFailed -> "failed" + SISOpen -> "open" + +instance ToByteString SpotInstanceState +instance ToHeader SpotInstanceState +instance ToQuery SpotInstanceState + +instance FromXML SpotInstanceState where + parseXML = parseXMLText "SpotInstanceState" + +newtype VpnConnectionOptions = VpnConnectionOptions + { _vcoStaticRoutesOnly :: Maybe Bool + } deriving (Eq, Ord, Show) + +-- | 'VpnConnectionOptions' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'vcoStaticRoutesOnly' @::@ 'Maybe' 'Bool' +-- +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 ToQuery VpnConnectionOptions where + toQuery VpnConnectionOptions{..} = mconcat + [ "staticRoutesOnly" =? _vcoStaticRoutesOnly + ] + +data UserIdGroupPair = UserIdGroupPair + { _uigpGroupId :: Maybe Text + , _uigpGroupName :: Maybe Text + , _uigpUserId :: Maybe Text + } deriving (Eq, Ord, Show) + +-- | 'UserIdGroupPair' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'uigpGroupId' @::@ 'Maybe' 'Text' +-- +-- * 'uigpGroupName' @::@ 'Maybe' 'Text' +-- +-- * 'uigpUserId' @::@ 'Maybe' 'Text' +-- +userIdGroupPair :: UserIdGroupPair +userIdGroupPair = UserIdGroupPair + { _uigpUserId = Nothing + , _uigpGroupName = Nothing + , _uigpGroupId = Nothing + } + +-- | The name of the security group in the specified AWS account. +uigpGroupId :: Lens' UserIdGroupPair (Maybe Text) +uigpGroupId = lens _uigpGroupId (\s a -> s { _uigpGroupId = a }) + +-- | The ID of the security group owned by the specified AWS account. +uigpGroupName :: Lens' UserIdGroupPair (Maybe Text) +uigpGroupName = lens _uigpGroupName (\s a -> s { _uigpGroupName = a }) + +-- | The ID of an AWS account. +uigpUserId :: Lens' UserIdGroupPair (Maybe Text) +uigpUserId = lens _uigpUserId (\s a -> s { _uigpUserId = a }) + +instance FromXML UserIdGroupPair where + parseXML x = UserIdGroupPair + <$> x .@? "groupId" + <*> x .@? "groupName" + <*> x .@? "userId" + +instance ToQuery UserIdGroupPair where + toQuery UserIdGroupPair{..} = mconcat + [ "groupId" =? _uigpGroupId + , "groupName" =? _uigpGroupName + , "userId" =? _uigpUserId + ] + +data InstanceStatusSummary = InstanceStatusSummary + { _issDetails :: List "item" InstanceStatusDetails + , _issStatus :: Maybe SummaryStatus + } deriving (Eq, Show) + +-- | 'InstanceStatusSummary' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'issDetails' @::@ ['InstanceStatusDetails'] +-- +-- * 'issStatus' @::@ 'Maybe' 'SummaryStatus' +-- +instanceStatusSummary :: InstanceStatusSummary +instanceStatusSummary = InstanceStatusSummary + { _issStatus = Nothing + , _issDetails = mempty + } + +-- | The system instance health or application instance health. +issDetails :: Lens' InstanceStatusSummary [InstanceStatusDetails] +issDetails = lens _issDetails (\s a -> s { _issDetails = a }) . _List + +-- | The status. +issStatus :: Lens' InstanceStatusSummary (Maybe SummaryStatus) +issStatus = lens _issStatus (\s a -> s { _issStatus = a }) + +instance FromXML InstanceStatusSummary where + parseXML x = InstanceStatusSummary + <$> x .@ "details" + <*> x .@? "status" + +instance ToQuery InstanceStatusSummary where + toQuery InstanceStatusSummary{..} = mconcat + [ "details" =? _issDetails + , "status" =? _issStatus + ] + +data SpotPlacement = SpotPlacement + { _sp1AvailabilityZone :: Maybe Text + , _sp1GroupName :: Maybe Text + } deriving (Eq, Ord, Show) + +-- | 'SpotPlacement' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'sp1AvailabilityZone' @::@ 'Maybe' 'Text' +-- +-- * 'sp1GroupName' @::@ 'Maybe' 'Text' +-- +spotPlacement :: SpotPlacement +spotPlacement = SpotPlacement + { _sp1AvailabilityZone = Nothing + , _sp1GroupName = Nothing + } + +-- | The Availability Zone. +sp1AvailabilityZone :: Lens' SpotPlacement (Maybe Text) +sp1AvailabilityZone = + lens _sp1AvailabilityZone (\s a -> s { _sp1AvailabilityZone = a }) + +-- | The name of the placement group (for cluster instances). +sp1GroupName :: Lens' SpotPlacement (Maybe Text) +sp1GroupName = lens _sp1GroupName (\s a -> s { _sp1GroupName = a }) + +instance FromXML SpotPlacement where + parseXML x = SpotPlacement + <$> x .@? "availabilityZone" + <*> x .@? "groupName" + +instance ToQuery SpotPlacement where + toQuery SpotPlacement{..} = mconcat + [ "availabilityZone" =? _sp1AvailabilityZone + , "groupName" =? _sp1GroupName + ] + +data EbsInstanceBlockDeviceSpecification = EbsInstanceBlockDeviceSpecification + { _eibdsDeleteOnTermination :: Maybe Bool + , _eibdsVolumeId :: Maybe Text + } deriving (Eq, Ord, Show) + +-- | 'EbsInstanceBlockDeviceSpecification' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'eibdsDeleteOnTermination' @::@ 'Maybe' 'Bool' +-- +-- * 'eibdsVolumeId' @::@ 'Maybe' 'Text' +-- +ebsInstanceBlockDeviceSpecification :: EbsInstanceBlockDeviceSpecification +ebsInstanceBlockDeviceSpecification = EbsInstanceBlockDeviceSpecification + { _eibdsVolumeId = Nothing + , _eibdsDeleteOnTermination = 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 Amazon EBS volume. +eibdsVolumeId :: Lens' EbsInstanceBlockDeviceSpecification (Maybe Text) +eibdsVolumeId = lens _eibdsVolumeId (\s a -> s { _eibdsVolumeId = a }) + +instance FromXML EbsInstanceBlockDeviceSpecification where + parseXML x = EbsInstanceBlockDeviceSpecification + <$> x .@? "deleteOnTermination" + <*> x .@? "volumeId" + +instance ToQuery EbsInstanceBlockDeviceSpecification where + toQuery EbsInstanceBlockDeviceSpecification{..} = mconcat + [ "deleteOnTermination" =? _eibdsDeleteOnTermination + , "volumeId" =? _eibdsVolumeId + ] + +data NetworkAclAssociation = NetworkAclAssociation + { _naaNetworkAclAssociationId :: Maybe Text + , _naaNetworkAclId :: Maybe Text + , _naaSubnetId :: Maybe Text + } deriving (Eq, Ord, Show) + +-- | 'NetworkAclAssociation' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'naaNetworkAclAssociationId' @::@ 'Maybe' 'Text' +-- +-- * 'naaNetworkAclId' @::@ 'Maybe' 'Text' +-- +-- * 'naaSubnetId' @::@ 'Maybe' 'Text' +-- +networkAclAssociation :: NetworkAclAssociation +networkAclAssociation = NetworkAclAssociation + { _naaNetworkAclAssociationId = Nothing + , _naaNetworkAclId = Nothing + , _naaSubnetId = Nothing + } + +-- | 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 }) + +-- | 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 }) + +instance FromXML NetworkAclAssociation where + parseXML x = NetworkAclAssociation + <$> x .@? "networkAclAssociationId" + <*> x .@? "networkAclId" + <*> x .@? "subnetId" + +instance ToQuery NetworkAclAssociation where + toQuery NetworkAclAssociation{..} = mconcat + [ "networkAclAssociationId" =? _naaNetworkAclAssociationId + , "networkAclId" =? _naaNetworkAclId + , "subnetId" =? _naaSubnetId + ] + +data BundleTask = BundleTask + { _btBundleId :: Maybe Text + , _btBundleTaskError :: Maybe BundleTaskError + , _btInstanceId :: Maybe Text + , _btProgress :: Maybe Text + , _btStartTime :: Maybe ISO8601 + , _btState :: Maybe BundleTaskState + , _btStorage :: Maybe Storage + , _btUpdateTime :: Maybe ISO8601 + } deriving (Eq, Show) + +-- | 'BundleTask' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'btBundleId' @::@ 'Maybe' 'Text' +-- +-- * 'btBundleTaskError' @::@ 'Maybe' 'BundleTaskError' +-- +-- * 'btInstanceId' @::@ 'Maybe' 'Text' +-- +-- * 'btProgress' @::@ 'Maybe' 'Text' +-- +-- * 'btStartTime' @::@ 'Maybe' 'UTCTime' +-- +-- * 'btState' @::@ 'Maybe' 'BundleTaskState' +-- +-- * 'btStorage' @::@ 'Maybe' 'Storage' +-- +-- * 'btUpdateTime' @::@ 'Maybe' 'UTCTime' +-- +bundleTask :: BundleTask +bundleTask = BundleTask + { _btInstanceId = Nothing + , _btBundleId = Nothing + , _btState = Nothing + , _btStartTime = Nothing + , _btUpdateTime = Nothing + , _btStorage = Nothing + , _btProgress = Nothing + , _btBundleTaskError = Nothing + } + +-- | The ID for this bundle task. +btBundleId :: Lens' BundleTask (Maybe Text) +btBundleId = lens _btBundleId (\s a -> s { _btBundleId = a }) + +-- | 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 instance associated with this bundle task. +btInstanceId :: Lens' BundleTask (Maybe Text) +btInstanceId = lens _btInstanceId (\s a -> s { _btInstanceId = a }) + +-- | The level of task completion, as a percent (for example, 20%). +btProgress :: Lens' BundleTask (Maybe Text) +btProgress = lens _btProgress (\s a -> s { _btProgress = a }) + +-- | The time this task started. +btStartTime :: Lens' BundleTask (Maybe UTCTime) +btStartTime = lens _btStartTime (\s a -> s { _btStartTime = a }) . mapping _Time + +-- | The state of the task. +btState :: Lens' BundleTask (Maybe BundleTaskState) +btState = lens _btState (\s a -> s { _btState = a }) + +-- | The Amazon S3 storage locations. +btStorage :: Lens' BundleTask (Maybe Storage) +btStorage = lens _btStorage (\s a -> s { _btStorage = a }) + +-- | The time of the most recent update for the task. +btUpdateTime :: Lens' BundleTask (Maybe UTCTime) +btUpdateTime = lens _btUpdateTime (\s a -> s { _btUpdateTime = a }) . mapping _Time + +instance FromXML BundleTask where + parseXML x = BundleTask + <$> x .@? "bundleId" + <*> x .@? "error" + <*> x .@? "instanceId" + <*> x .@? "progress" + <*> x .@? "startTime" + <*> x .@? "state" + <*> x .@? "storage" + <*> x .@? "updateTime" + +instance ToQuery BundleTask where + toQuery BundleTask{..} = mconcat + [ "bundleId" =? _btBundleId + , "error" =? _btBundleTaskError + , "instanceId" =? _btInstanceId + , "progress" =? _btProgress + , "startTime" =? _btStartTime + , "state" =? _btState + , "storage" =? _btStorage + , "updateTime" =? _btUpdateTime + ] + +data InstanceStatusEvent = InstanceStatusEvent + { _iseCode :: Maybe EventCode + , _iseDescription :: Maybe Text + , _iseNotAfter :: Maybe ISO8601 + , _iseNotBefore :: Maybe ISO8601 + } deriving (Eq, Show) + +-- | 'InstanceStatusEvent' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'iseCode' @::@ 'Maybe' 'EventCode' +-- +-- * 'iseDescription' @::@ 'Maybe' 'Text' +-- +-- * 'iseNotAfter' @::@ 'Maybe' 'UTCTime' +-- +-- * 'iseNotBefore' @::@ 'Maybe' 'UTCTime' +-- +instanceStatusEvent :: InstanceStatusEvent +instanceStatusEvent = InstanceStatusEvent + { _iseCode = Nothing + , _iseDescription = Nothing + , _iseNotBefore = Nothing + , _iseNotAfter = Nothing + } + +-- | The associated code of the event. +iseCode :: Lens' InstanceStatusEvent (Maybe EventCode) +iseCode = lens _iseCode (\s a -> s { _iseCode = a }) + +-- | A description of the event. +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 + +-- | The earliest scheduled start time for the event. +iseNotBefore :: Lens' InstanceStatusEvent (Maybe UTCTime) +iseNotBefore = lens _iseNotBefore (\s a -> s { _iseNotBefore = a }) . mapping _Time + +instance FromXML InstanceStatusEvent where + parseXML x = InstanceStatusEvent + <$> x .@? "code" + <*> x .@? "description" + <*> x .@? "notAfter" + <*> x .@? "notBefore" + +instance ToQuery InstanceStatusEvent where + toQuery InstanceStatusEvent{..} = mconcat + [ "code" =? _iseCode + , "description" =? _iseDescription + , "notAfter" =? _iseNotAfter + , "notBefore" =? _iseNotBefore + ] + +data InstanceType + = C1_Medium -- ^ c1.medium + | C1_XLarge -- ^ c1.xlarge + | C3_2XLarge -- ^ c3.2xlarge + | C3_4XLarge -- ^ c3.4xlarge + | C3_8XLarge -- ^ c3.8xlarge + | C3_Large -- ^ c3.large + | C3_XLarge -- ^ c3.xlarge + | CC1_4XLarge -- ^ cc1.4xlarge + | CC2_8XLarge -- ^ cc2.8xlarge + | CG1_4XLarge -- ^ cg1.4xlarge + | CR1_8XLarge -- ^ cr1.8xlarge + | G2_2XLarge -- ^ g2.2xlarge + | HI1_4XLarge -- ^ hi1.4xlarge + | HS1_8XLarge -- ^ hs1.8xlarge + | I2_2XLarge -- ^ i2.2xlarge + | I2_4XLarge -- ^ i2.4xlarge + | I2_8XLarge -- ^ i2.8xlarge + | I2_XLarge -- ^ i2.xlarge + | M1_Large -- ^ m1.large + | M1_Medium -- ^ m1.medium + | M1_Small -- ^ m1.small + | M1_XLarge -- ^ m1.xlarge + | M2_2XLarge -- ^ m2.2xlarge + | M2_4XLarge -- ^ m2.4xlarge + | M2_XLarge -- ^ m2.xlarge + | M3_2XLarge -- ^ m3.2xlarge + | M3_Large -- ^ m3.large + | M3_Medium -- ^ m3.medium + | M3_XLarge -- ^ m3.xlarge + | R3_2XLarge -- ^ r3.2xlarge + | R3_4XLarge -- ^ r3.4xlarge + | R3_8XLarge -- ^ r3.8xlarge + | R3_Large -- ^ r3.large + | R3_XLarge -- ^ r3.xlarge + | T1_Micro -- ^ t1.micro + | T2_Medium -- ^ t2.medium + | T2_Micro -- ^ t2.micro + | T2_Small -- ^ t2.small + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable InstanceType + +instance FromText InstanceType where + parser = takeText >>= \case + "c1.medium" -> pure C1_Medium + "c1.xlarge" -> pure C1_XLarge + "c3.2xlarge" -> pure C3_2XLarge + "c3.4xlarge" -> pure C3_4XLarge + "c3.8xlarge" -> pure C3_8XLarge + "c3.large" -> pure C3_Large + "c3.xlarge" -> pure C3_XLarge + "cc1.4xlarge" -> pure CC1_4XLarge + "cc2.8xlarge" -> pure CC2_8XLarge + "cg1.4xlarge" -> pure CG1_4XLarge + "cr1.8xlarge" -> pure CR1_8XLarge + "g2.2xlarge" -> pure G2_2XLarge + "hi1.4xlarge" -> pure HI1_4XLarge + "hs1.8xlarge" -> pure HS1_8XLarge + "i2.2xlarge" -> pure I2_2XLarge + "i2.4xlarge" -> pure I2_4XLarge + "i2.8xlarge" -> pure I2_8XLarge + "i2.xlarge" -> pure I2_XLarge + "m1.large" -> pure M1_Large + "m1.medium" -> pure M1_Medium + "m1.small" -> pure M1_Small + "m1.xlarge" -> pure M1_XLarge + "m2.2xlarge" -> pure M2_2XLarge + "m2.4xlarge" -> pure M2_4XLarge + "m2.xlarge" -> pure M2_XLarge + "m3.2xlarge" -> pure M3_2XLarge + "m3.large" -> pure M3_Large + "m3.medium" -> pure M3_Medium + "m3.xlarge" -> pure M3_XLarge + "r3.2xlarge" -> pure R3_2XLarge + "r3.4xlarge" -> pure R3_4XLarge + "r3.8xlarge" -> pure R3_8XLarge + "r3.large" -> pure R3_Large + "r3.xlarge" -> pure R3_XLarge + "t1.micro" -> pure T1_Micro + "t2.medium" -> pure T2_Medium + "t2.micro" -> pure T2_Micro + "t2.small" -> pure T2_Small + e -> fail $ + "Failure parsing InstanceType from " ++ show e + +instance ToText InstanceType where + toText = \case + C1_Medium -> "c1.medium" + C1_XLarge -> "c1.xlarge" + C3_2XLarge -> "c3.2xlarge" + C3_4XLarge -> "c3.4xlarge" + C3_8XLarge -> "c3.8xlarge" + C3_Large -> "c3.large" + C3_XLarge -> "c3.xlarge" + CC1_4XLarge -> "cc1.4xlarge" + CC2_8XLarge -> "cc2.8xlarge" + CG1_4XLarge -> "cg1.4xlarge" + CR1_8XLarge -> "cr1.8xlarge" + G2_2XLarge -> "g2.2xlarge" + HI1_4XLarge -> "hi1.4xlarge" + HS1_8XLarge -> "hs1.8xlarge" + I2_2XLarge -> "i2.2xlarge" + I2_4XLarge -> "i2.4xlarge" + I2_8XLarge -> "i2.8xlarge" + I2_XLarge -> "i2.xlarge" + M1_Large -> "m1.large" + M1_Medium -> "m1.medium" + M1_Small -> "m1.small" + M1_XLarge -> "m1.xlarge" + M2_2XLarge -> "m2.2xlarge" + M2_4XLarge -> "m2.4xlarge" + M2_XLarge -> "m2.xlarge" + M3_2XLarge -> "m3.2xlarge" + M3_Large -> "m3.large" + M3_Medium -> "m3.medium" + M3_XLarge -> "m3.xlarge" + R3_2XLarge -> "r3.2xlarge" + R3_4XLarge -> "r3.4xlarge" + R3_8XLarge -> "r3.8xlarge" + R3_Large -> "r3.large" + R3_XLarge -> "r3.xlarge" + T1_Micro -> "t1.micro" + T2_Medium -> "t2.medium" + T2_Micro -> "t2.micro" + T2_Small -> "t2.small" + +instance ToByteString InstanceType +instance ToHeader InstanceType +instance ToQuery InstanceType + +instance FromXML InstanceType where + parseXML = parseXMLText "InstanceType" + +data Route = Route + { _rDestinationCidrBlock :: Maybe Text + , _rGatewayId :: Maybe Text + , _rInstanceId :: Maybe Text + , _rInstanceOwnerId :: Maybe Text + , _rNetworkInterfaceId :: Maybe Text + , _rOrigin :: Maybe RouteOrigin + , _rState :: Maybe RouteState + , _rVpcPeeringConnectionId :: Maybe Text + } deriving (Eq, Show) + +-- | 'Route' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'rDestinationCidrBlock' @::@ 'Maybe' 'Text' +-- +-- * 'rGatewayId' @::@ 'Maybe' 'Text' +-- +-- * 'rInstanceId' @::@ 'Maybe' 'Text' +-- +-- * 'rInstanceOwnerId' @::@ 'Maybe' 'Text' +-- +-- * 'rNetworkInterfaceId' @::@ 'Maybe' 'Text' +-- +-- * 'rOrigin' @::@ 'Maybe' 'RouteOrigin' +-- +-- * 'rState' @::@ 'Maybe' 'RouteState' +-- +-- * 'rVpcPeeringConnectionId' @::@ 'Maybe' 'Text' +-- +route :: Route +route = Route + { _rDestinationCidrBlock = Nothing + , _rGatewayId = Nothing + , _rInstanceId = Nothing + , _rInstanceOwnerId = Nothing + , _rNetworkInterfaceId = Nothing + , _rVpcPeeringConnectionId = Nothing + , _rState = Nothing + , _rOrigin = Nothing + } + +-- | The CIDR block used for the destination match. +rDestinationCidrBlock :: Lens' Route (Maybe Text) +rDestinationCidrBlock = + lens _rDestinationCidrBlock (\s a -> s { _rDestinationCidrBlock = a }) + +-- | The ID of a gateway attached to your VPC. +rGatewayId :: Lens' Route (Maybe Text) +rGatewayId = lens _rGatewayId (\s a -> s { _rGatewayId = a }) + +-- | The ID of a NAT instance in your VPC. +rInstanceId :: Lens' Route (Maybe Text) +rInstanceId = lens _rInstanceId (\s a -> s { _rInstanceId = 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 ID of the network interface. +rNetworkInterfaceId :: Lens' Route (Maybe Text) +rNetworkInterfaceId = + lens _rNetworkInterfaceId (\s a -> s { _rNetworkInterfaceId = a }) + +-- | Describes how the route was created. +-- +-- 'CreateRouteTable' indicates that 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. +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 VPC peering connection. +rVpcPeeringConnectionId :: Lens' Route (Maybe Text) +rVpcPeeringConnectionId = + lens _rVpcPeeringConnectionId (\s a -> s { _rVpcPeeringConnectionId = a }) + +instance FromXML Route where + parseXML x = Route + <$> x .@? "destinationCidrBlock" + <*> x .@? "gatewayId" + <*> x .@? "instanceId" + <*> x .@? "instanceOwnerId" + <*> x .@? "networkInterfaceId" + <*> x .@? "origin" + <*> x .@? "state" + <*> x .@? "vpcPeeringConnectionId" + +instance ToQuery Route where + toQuery Route{..} = mconcat + [ "destinationCidrBlock" =? _rDestinationCidrBlock + , "gatewayId" =? _rGatewayId + , "instanceId" =? _rInstanceId + , "instanceOwnerId" =? _rInstanceOwnerId + , "networkInterfaceId" =? _rNetworkInterfaceId + , "origin" =? _rOrigin + , "state" =? _rState + , "vpcPeeringConnectionId" =? _rVpcPeeringConnectionId + ] + +data SpotDatafeedSubscription = SpotDatafeedSubscription + { _sdsBucket :: Maybe Text + , _sdsFault :: Maybe SpotInstanceStateFault + , _sdsOwnerId :: Maybe Text + , _sdsPrefix :: Maybe Text + , _sdsState :: Maybe DatafeedSubscriptionState + } deriving (Eq, Show) + +-- | 'SpotDatafeedSubscription' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'sdsBucket' @::@ 'Maybe' 'Text' +-- +-- * 'sdsFault' @::@ 'Maybe' 'SpotInstanceStateFault' +-- +-- * 'sdsOwnerId' @::@ 'Maybe' 'Text' +-- +-- * 'sdsPrefix' @::@ 'Maybe' 'Text' +-- +-- * 'sdsState' @::@ 'Maybe' 'DatafeedSubscriptionState' +-- +spotDatafeedSubscription :: SpotDatafeedSubscription +spotDatafeedSubscription = SpotDatafeedSubscription + { _sdsOwnerId = Nothing + , _sdsBucket = Nothing + , _sdsPrefix = Nothing + , _sdsState = Nothing + , _sdsFault = Nothing + } + +-- | The Amazon S3 bucket where the Spot Instance datafeed is located. +sdsBucket :: Lens' SpotDatafeedSubscription (Maybe Text) +sdsBucket = lens _sdsBucket (\s a -> s { _sdsBucket = a }) + +-- | The fault codes for the Spot Instance request, if any. +sdsFault :: Lens' SpotDatafeedSubscription (Maybe SpotInstanceStateFault) +sdsFault = lens _sdsFault (\s a -> s { _sdsFault = a }) + +-- | The AWS account ID of the account. +sdsOwnerId :: Lens' SpotDatafeedSubscription (Maybe Text) +sdsOwnerId = lens _sdsOwnerId (\s a -> s { _sdsOwnerId = a }) + +-- | The prefix that is prepended to datafeed files. +sdsPrefix :: Lens' SpotDatafeedSubscription (Maybe Text) +sdsPrefix = lens _sdsPrefix (\s a -> s { _sdsPrefix = a }) + +-- | The state of the Spot Instance datafeed subscription. +sdsState :: Lens' SpotDatafeedSubscription (Maybe DatafeedSubscriptionState) +sdsState = lens _sdsState (\s a -> s { _sdsState = a }) + +instance FromXML SpotDatafeedSubscription where + parseXML x = SpotDatafeedSubscription + <$> x .@? "bucket" + <*> x .@? "fault" + <*> x .@? "ownerId" + <*> x .@? "prefix" + <*> x .@? "state" + +instance ToQuery SpotDatafeedSubscription where + toQuery SpotDatafeedSubscription{..} = mconcat + [ "bucket" =? _sdsBucket + , "fault" =? _sdsFault + , "ownerId" =? _sdsOwnerId + , "prefix" =? _sdsPrefix + , "state" =? _sdsState + ] + +newtype Storage = Storage + { _sS3 :: Maybe S3Storage + } deriving (Eq, Show) + +-- | 'Storage' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'sS3' @::@ 'Maybe' 'S3Storage' +-- +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 ToQuery Storage where + toQuery Storage{..} = mconcat + [ "S3" =? _sS3 + ] + +data SecurityGroup = SecurityGroup + { _sgDescription :: Text + , _sgGroupId :: Text + , _sgGroupName :: Text + , _sgIpPermissions :: List "item" IpPermission + , _sgIpPermissionsEgress :: List "item" IpPermission + , _sgOwnerId :: Text + , _sgTags :: List "item" Tag + , _sgVpcId :: Maybe Text + } deriving (Eq, Show) + +-- | 'SecurityGroup' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'sgDescription' @::@ 'Text' +-- +-- * 'sgGroupId' @::@ 'Text' +-- +-- * 'sgGroupName' @::@ 'Text' +-- +-- * 'sgIpPermissions' @::@ ['IpPermission'] +-- +-- * 'sgIpPermissionsEgress' @::@ ['IpPermission'] +-- +-- * 'sgOwnerId' @::@ 'Text' +-- +-- * 'sgTags' @::@ ['Tag'] +-- +-- * 'sgVpcId' @::@ 'Maybe' 'Text' +-- +securityGroup :: Text -- ^ 'sgOwnerId' + -> Text -- ^ 'sgGroupName' + -> Text -- ^ 'sgGroupId' + -> Text -- ^ 'sgDescription' + -> SecurityGroup +securityGroup p1 p2 p3 p4 = SecurityGroup + { _sgOwnerId = p1 + , _sgGroupName = p2 + , _sgGroupId = p3 + , _sgDescription = p4 + , _sgIpPermissions = mempty + , _sgIpPermissionsEgress = mempty + , _sgVpcId = Nothing + , _sgTags = mempty + } + +-- | A description of the security group. +sgDescription :: Lens' SecurityGroup Text +sgDescription = lens _sgDescription (\s a -> s { _sgDescription = 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 }) + +-- | One or more inbound rules associated with the security group. +sgIpPermissions :: Lens' SecurityGroup [IpPermission] +sgIpPermissions = lens _sgIpPermissions (\s a -> s { _sgIpPermissions = a }) . _List + +-- | [EC2-VPC] One or more outbound rules associated with the security group. +sgIpPermissionsEgress :: Lens' SecurityGroup [IpPermission] +sgIpPermissionsEgress = + lens _sgIpPermissionsEgress (\s a -> s { _sgIpPermissionsEgress = a }) + . _List + +-- | The AWS account ID of the owner of the security group. +sgOwnerId :: Lens' SecurityGroup Text +sgOwnerId = lens _sgOwnerId (\s a -> s { _sgOwnerId = a }) + +-- | Any tags assigned to the security group. +sgTags :: Lens' SecurityGroup [Tag] +sgTags = lens _sgTags (\s a -> s { _sgTags = a }) . _List + +-- | [EC2-VPC] The ID of the VPC for the security group. +sgVpcId :: Lens' SecurityGroup (Maybe Text) +sgVpcId = lens _sgVpcId (\s a -> s { _sgVpcId = a }) + +instance FromXML SecurityGroup where + parseXML x = SecurityGroup + <$> x .@ "groupDescription" + <*> x .@ "groupId" + <*> x .@ "groupName" + <*> x .@ "ipPermissions" + <*> x .@ "ipPermissionsEgress" + <*> x .@ "ownerId" + <*> x .@ "tagSet" + <*> x .@? "vpcId" + +instance ToQuery SecurityGroup where + toQuery SecurityGroup{..} = mconcat + [ "groupDescription" =? _sgDescription + , "groupId" =? _sgGroupId + , "groupName" =? _sgGroupName + , "ipPermissions" =? _sgIpPermissions + , "ipPermissionsEgress" =? _sgIpPermissionsEgress + , "ownerId" =? _sgOwnerId + , "tagSet" =? _sgTags + , "vpcId" =? _sgVpcId + ] + +data CancelSpotInstanceRequestState + = CSIRSActive -- ^ active + | CSIRSCancelled -- ^ cancelled + | CSIRSClosed -- ^ closed + | CSIRSCompleted -- ^ completed + | CSIRSOpen -- ^ open + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable CancelSpotInstanceRequestState + +instance FromText CancelSpotInstanceRequestState where + parser = takeText >>= \case + "active" -> pure CSIRSActive + "cancelled" -> pure CSIRSCancelled + "closed" -> pure CSIRSClosed + "completed" -> pure CSIRSCompleted + "open" -> pure CSIRSOpen + e -> fail $ + "Failure parsing CancelSpotInstanceRequestState from " ++ show e + +instance ToText CancelSpotInstanceRequestState where + toText = \case + CSIRSActive -> "active" + CSIRSCancelled -> "cancelled" + CSIRSClosed -> "closed" + CSIRSCompleted -> "completed" + CSIRSOpen -> "open" + +instance ToByteString CancelSpotInstanceRequestState +instance ToHeader CancelSpotInstanceRequestState +instance ToQuery CancelSpotInstanceRequestState + +instance FromXML CancelSpotInstanceRequestState where + parseXML = parseXMLText "CancelSpotInstanceRequestState" + +data PlacementGroupState + = PGSAvailable -- ^ available + | PGSDeleted -- ^ deleted + | PGSDeleting -- ^ deleting + | PGSPending -- ^ pending + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable PlacementGroupState + +instance FromText PlacementGroupState where + parser = takeText >>= \case + "available" -> pure PGSAvailable + "deleted" -> pure PGSDeleted + "deleting" -> pure PGSDeleting + "pending" -> pure PGSPending + e -> fail $ + "Failure parsing PlacementGroupState from " ++ show e + +instance ToText PlacementGroupState where + toText = \case + PGSAvailable -> "available" + PGSDeleted -> "deleted" + PGSDeleting -> "deleting" + PGSPending -> "pending" + +instance ToByteString PlacementGroupState +instance ToHeader PlacementGroupState +instance ToQuery PlacementGroupState + +instance FromXML PlacementGroupState where + parseXML = parseXMLText "PlacementGroupState" + +data ReservedInstancesModificationResult = ReservedInstancesModificationResult + { _rimrReservedInstancesId :: Maybe Text + , _rimrTargetConfiguration :: Maybe ReservedInstancesConfiguration + } deriving (Eq, Show) + +-- | 'ReservedInstancesModificationResult' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'rimrReservedInstancesId' @::@ 'Maybe' 'Text' +-- +-- * 'rimrTargetConfiguration' @::@ 'Maybe' 'ReservedInstancesConfiguration' +-- +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 ToQuery ReservedInstancesModificationResult where + toQuery ReservedInstancesModificationResult{..} = mconcat + [ "reservedInstancesId" =? _rimrReservedInstancesId + , "targetConfiguration" =? _rimrTargetConfiguration + ] + +data InstanceBlockDeviceMappingSpecification = InstanceBlockDeviceMappingSpecification + { _ibdmsDeviceName :: Maybe Text + , _ibdmsEbs :: Maybe EbsInstanceBlockDeviceSpecification + , _ibdmsNoDevice :: Maybe Text + , _ibdmsVirtualName :: Maybe Text + } deriving (Eq, Show) + +-- | 'InstanceBlockDeviceMappingSpecification' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'ibdmsDeviceName' @::@ 'Maybe' 'Text' +-- +-- * 'ibdmsEbs' @::@ 'Maybe' 'EbsInstanceBlockDeviceSpecification' +-- +-- * 'ibdmsNoDevice' @::@ 'Maybe' 'Text' +-- +-- * 'ibdmsVirtualName' @::@ 'Maybe' 'Text' +-- +instanceBlockDeviceMappingSpecification :: InstanceBlockDeviceMappingSpecification +instanceBlockDeviceMappingSpecification = InstanceBlockDeviceMappingSpecification + { _ibdmsDeviceName = Nothing + , _ibdmsEbs = Nothing + , _ibdmsVirtualName = Nothing + , _ibdmsNoDevice = Nothing + } + +-- | The device name exposed to the instance (for example, /dev/sdh). +ibdmsDeviceName :: Lens' InstanceBlockDeviceMappingSpecification (Maybe Text) +ibdmsDeviceName = lens _ibdmsDeviceName (\s a -> s { _ibdmsDeviceName = a }) + +-- | Parameters used to automatically set up Amazon EBS volumes when the instance +-- is launched. +ibdmsEbs :: Lens' InstanceBlockDeviceMappingSpecification (Maybe EbsInstanceBlockDeviceSpecification) +ibdmsEbs = lens _ibdmsEbs (\s a -> s { _ibdmsEbs = a }) + +-- | suppress the specified device included in the block device mapping. +ibdmsNoDevice :: Lens' InstanceBlockDeviceMappingSpecification (Maybe Text) +ibdmsNoDevice = lens _ibdmsNoDevice (\s a -> s { _ibdmsNoDevice = a }) + +-- | The virtual device name. +ibdmsVirtualName :: Lens' InstanceBlockDeviceMappingSpecification (Maybe Text) +ibdmsVirtualName = lens _ibdmsVirtualName (\s a -> s { _ibdmsVirtualName = a }) + +instance FromXML InstanceBlockDeviceMappingSpecification where + parseXML x = InstanceBlockDeviceMappingSpecification + <$> x .@? "deviceName" + <*> x .@? "ebs" + <*> x .@? "noDevice" + <*> x .@? "virtualName" + +instance ToQuery InstanceBlockDeviceMappingSpecification where + toQuery InstanceBlockDeviceMappingSpecification{..} = mconcat + [ "deviceName" =? _ibdmsDeviceName + , "ebs" =? _ibdmsEbs + , "noDevice" =? _ibdmsNoDevice + , "virtualName" =? _ibdmsVirtualName + ] + +data ExportEnvironment + = Citrix -- ^ citrix + | Microsoft -- ^ microsoft + | Vmware -- ^ vmware + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable ExportEnvironment + +instance FromText ExportEnvironment where + parser = takeText >>= \case + "citrix" -> pure Citrix + "microsoft" -> pure Microsoft + "vmware" -> pure Vmware + e -> fail $ + "Failure parsing ExportEnvironment from " ++ show e + +instance ToText ExportEnvironment where + toText = \case + Citrix -> "citrix" + Microsoft -> "microsoft" + Vmware -> "vmware" + +instance ToByteString ExportEnvironment +instance ToHeader ExportEnvironment +instance ToQuery ExportEnvironment + +instance FromXML ExportEnvironment where + parseXML = parseXMLText "ExportEnvironment" + +data VolumeAttachment = VolumeAttachment + { _vaAttachTime :: Maybe ISO8601 + , _vaDeleteOnTermination :: Maybe Bool + , _vaDevice :: Maybe Text + , _vaInstanceId :: Maybe Text + , _vaState :: Maybe VolumeAttachmentState + , _vaVolumeId :: Maybe Text + } deriving (Eq, Show) + +-- | 'VolumeAttachment' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'vaAttachTime' @::@ 'Maybe' 'UTCTime' +-- +-- * 'vaDeleteOnTermination' @::@ 'Maybe' 'Bool' +-- +-- * 'vaDevice' @::@ 'Maybe' 'Text' +-- +-- * 'vaInstanceId' @::@ 'Maybe' 'Text' +-- +-- * 'vaState' @::@ 'Maybe' 'VolumeAttachmentState' +-- +-- * 'vaVolumeId' @::@ 'Maybe' 'Text' +-- +volumeAttachment :: VolumeAttachment +volumeAttachment = VolumeAttachment + { _vaVolumeId = Nothing + , _vaInstanceId = Nothing + , _vaDevice = Nothing + , _vaState = Nothing + , _vaAttachTime = Nothing + , _vaDeleteOnTermination = Nothing + } + +-- | The time stamp when the attachment initiated. +vaAttachTime :: Lens' VolumeAttachment (Maybe UTCTime) +vaAttachTime = lens _vaAttachTime (\s a -> s { _vaAttachTime = a }) . mapping _Time + +-- | Indicates whether the Amazon EBS volume is deleted on instance termination. +vaDeleteOnTermination :: Lens' VolumeAttachment (Maybe Bool) +vaDeleteOnTermination = + lens _vaDeleteOnTermination (\s a -> s { _vaDeleteOnTermination = a }) + +-- | The device name. +vaDevice :: Lens' VolumeAttachment (Maybe Text) +vaDevice = lens _vaDevice (\s a -> s { _vaDevice = a }) + +-- | The ID of the instance. +vaInstanceId :: Lens' VolumeAttachment (Maybe Text) +vaInstanceId = lens _vaInstanceId (\s a -> s { _vaInstanceId = a }) + +-- | The attachment state of the volume. +vaState :: Lens' VolumeAttachment (Maybe VolumeAttachmentState) +vaState = lens _vaState (\s a -> s { _vaState = a }) + +-- | The ID of the volume. +vaVolumeId :: Lens' VolumeAttachment (Maybe Text) +vaVolumeId = lens _vaVolumeId (\s a -> s { _vaVolumeId = a }) + +instance FromXML VolumeAttachment where + parseXML x = VolumeAttachment + <$> x .@? "attachTime" + <*> x .@? "deleteOnTermination" + <*> x .@? "device" + <*> x .@? "instanceId" + <*> x .@? "status" + <*> x .@? "volumeId" + +instance ToQuery VolumeAttachment where + toQuery VolumeAttachment{..} = mconcat + [ "attachTime" =? _vaAttachTime + , "deleteOnTermination" =? _vaDeleteOnTermination + , "device" =? _vaDevice + , "instanceId" =? _vaInstanceId + , "status" =? _vaState + , "volumeId" =? _vaVolumeId + ] + +data CustomerGateway = CustomerGateway + { _cgBgpAsn :: Maybe Text + , _cgCustomerGatewayId :: Maybe Text + , _cgIpAddress :: Maybe Text + , _cgState :: Maybe Text + , _cgTags :: List "item" Tag + , _cgType :: Maybe Text + } deriving (Eq, Show) + +-- | 'CustomerGateway' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'cgBgpAsn' @::@ 'Maybe' 'Text' +-- +-- * 'cgCustomerGatewayId' @::@ 'Maybe' 'Text' +-- +-- * 'cgIpAddress' @::@ 'Maybe' 'Text' +-- +-- * 'cgState' @::@ 'Maybe' 'Text' +-- +-- * 'cgTags' @::@ ['Tag'] +-- +-- * 'cgType' @::@ 'Maybe' 'Text' +-- +customerGateway :: CustomerGateway +customerGateway = CustomerGateway + { _cgCustomerGatewayId = Nothing + , _cgState = Nothing + , _cgType = Nothing + , _cgIpAddress = Nothing + , _cgBgpAsn = Nothing + , _cgTags = mempty + } + +-- | The customer gateway's Border Gateway Protocol (BGP) Autonomous System Number +-- (ASN). +cgBgpAsn :: Lens' CustomerGateway (Maybe Text) +cgBgpAsn = lens _cgBgpAsn (\s a -> s { _cgBgpAsn = a }) + +-- | The ID of the customer gateway. +cgCustomerGatewayId :: Lens' CustomerGateway (Maybe Text) +cgCustomerGatewayId = + lens _cgCustomerGatewayId (\s a -> s { _cgCustomerGatewayId = a }) + +-- | The Internet-routable IP address of the customer gateway's outside interface. +cgIpAddress :: Lens' CustomerGateway (Maybe Text) +cgIpAddress = lens _cgIpAddress (\s a -> s { _cgIpAddress = a }) + +-- | The current state of the customer gateway ('pending | available | deleting |deleted'). +cgState :: Lens' CustomerGateway (Maybe Text) +cgState = lens _cgState (\s a -> s { _cgState = a }) + +-- | Any tags assigned to the customer gateway. +cgTags :: Lens' CustomerGateway [Tag] +cgTags = lens _cgTags (\s a -> s { _cgTags = a }) . _List + +-- | The type of VPN connection the customer gateway supports ('ipsec.1'). +cgType :: Lens' CustomerGateway (Maybe Text) +cgType = lens _cgType (\s a -> s { _cgType = a }) + +instance FromXML CustomerGateway where + parseXML x = CustomerGateway + <$> x .@? "bgpAsn" + <*> x .@? "customerGatewayId" + <*> x .@? "ipAddress" + <*> x .@? "state" + <*> x .@ "tagSet" + <*> x .@? "type" + +instance ToQuery CustomerGateway where + toQuery CustomerGateway{..} = mconcat + [ "bgpAsn" =? _cgBgpAsn + , "customerGatewayId" =? _cgCustomerGatewayId + , "ipAddress" =? _cgIpAddress + , "state" =? _cgState + , "tagSet" =? _cgTags + , "type" =? _cgType + ] + +data EbsInstanceBlockDevice = EbsInstanceBlockDevice + { _eibdAttachTime :: Maybe ISO8601 + , _eibdDeleteOnTermination :: Maybe Bool + , _eibdStatus :: Maybe AttachmentStatus + , _eibdVolumeId :: Maybe Text + } deriving (Eq, Show) + +-- | 'EbsInstanceBlockDevice' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'eibdAttachTime' @::@ 'Maybe' 'UTCTime' +-- +-- * 'eibdDeleteOnTermination' @::@ 'Maybe' 'Bool' +-- +-- * 'eibdStatus' @::@ 'Maybe' 'AttachmentStatus' +-- +-- * 'eibdVolumeId' @::@ 'Maybe' 'Text' +-- +ebsInstanceBlockDevice :: EbsInstanceBlockDevice +ebsInstanceBlockDevice = EbsInstanceBlockDevice + { _eibdVolumeId = Nothing + , _eibdStatus = Nothing + , _eibdAttachTime = Nothing + , _eibdDeleteOnTermination = Nothing + } + +-- | The time stamp when the attachment initiated. +eibdAttachTime :: Lens' EbsInstanceBlockDevice (Maybe UTCTime) +eibdAttachTime = lens _eibdAttachTime (\s a -> s { _eibdAttachTime = a }) . mapping _Time + +-- | Indicates whether the volume is deleted on instance termination. +eibdDeleteOnTermination :: Lens' EbsInstanceBlockDevice (Maybe Bool) +eibdDeleteOnTermination = + lens _eibdDeleteOnTermination (\s a -> s { _eibdDeleteOnTermination = a }) + +-- | The attachment state. +eibdStatus :: Lens' EbsInstanceBlockDevice (Maybe AttachmentStatus) +eibdStatus = lens _eibdStatus (\s a -> s { _eibdStatus = a }) + +-- | The ID of the Amazon EBS volume. +eibdVolumeId :: Lens' EbsInstanceBlockDevice (Maybe Text) +eibdVolumeId = lens _eibdVolumeId (\s a -> s { _eibdVolumeId = a }) + +instance FromXML EbsInstanceBlockDevice where + parseXML x = EbsInstanceBlockDevice + <$> x .@? "attachTime" + <*> x .@? "deleteOnTermination" + <*> x .@? "status" + <*> x .@? "volumeId" + +instance ToQuery EbsInstanceBlockDevice where + toQuery EbsInstanceBlockDevice{..} = mconcat + [ "attachTime" =? _eibdAttachTime + , "deleteOnTermination" =? _eibdDeleteOnTermination + , "status" =? _eibdStatus + , "volumeId" =? _eibdVolumeId + ] + +data ShutdownBehavior + = Stop -- ^ stop + | Terminate -- ^ terminate + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable ShutdownBehavior + +instance FromText ShutdownBehavior where + parser = takeText >>= \case + "stop" -> pure Stop + "terminate" -> pure Terminate + e -> fail $ + "Failure parsing ShutdownBehavior from " ++ show e + +instance ToText ShutdownBehavior where + toText = \case + Stop -> "stop" + Terminate -> "terminate" + +instance ToByteString ShutdownBehavior +instance ToHeader ShutdownBehavior +instance ToQuery ShutdownBehavior + +instance FromXML ShutdownBehavior where + parseXML = parseXMLText "ShutdownBehavior" + +data DiskImageDescription = DiskImageDescription + { _did1Checksum :: Maybe Text + , _did1Format :: DiskImageFormat + , _did1ImportManifestUrl :: Text + , _did1Size :: Integer + } deriving (Eq, Show) + +-- | 'DiskImageDescription' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'did1Checksum' @::@ 'Maybe' 'Text' +-- +-- * 'did1Format' @::@ 'DiskImageFormat' +-- +-- * 'did1ImportManifestUrl' @::@ 'Text' +-- +-- * 'did1Size' @::@ 'Integer' +-- +diskImageDescription :: DiskImageFormat -- ^ 'did1Format' + -> Integer -- ^ 'did1Size' + -> Text -- ^ 'did1ImportManifestUrl' + -> DiskImageDescription +diskImageDescription p1 p2 p3 = DiskImageDescription + { _did1Format = p1 + , _did1Size = p2 + , _did1ImportManifestUrl = p3 + , _did1Checksum = Nothing + } + +-- | The checksum computed for the disk image. +did1Checksum :: Lens' DiskImageDescription (Maybe Text) +did1Checksum = lens _did1Checksum (\s a -> s { _did1Checksum = a }) + +-- | The disk image format. +did1Format :: Lens' DiskImageDescription DiskImageFormat +did1Format = lens _did1Format (\s a -> s { _did1Format = 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/. +did1ImportManifestUrl :: Lens' DiskImageDescription Text +did1ImportManifestUrl = + lens _did1ImportManifestUrl (\s a -> s { _did1ImportManifestUrl = a }) + +-- | The size of the disk image. +did1Size :: Lens' DiskImageDescription Integer +did1Size = lens _did1Size (\s a -> s { _did1Size = a }) + +instance FromXML DiskImageDescription where + parseXML x = DiskImageDescription + <$> x .@? "checksum" + <*> x .@ "format" + <*> x .@ "importManifestUrl" + <*> x .@ "size" + +instance ToQuery DiskImageDescription where + toQuery DiskImageDescription{..} = mconcat + [ "checksum" =? _did1Checksum + , "format" =? _did1Format + , "importManifestUrl" =? _did1ImportManifestUrl + , "size" =? _did1Size + ] + +data DiskImageVolumeDescription = DiskImageVolumeDescription + { _divdId :: Text + , _divdSize :: Maybe Integer + } deriving (Eq, Ord, Show) + +-- | 'DiskImageVolumeDescription' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'divdId' @::@ 'Text' +-- +-- * 'divdSize' @::@ 'Maybe' 'Integer' +-- +diskImageVolumeDescription :: Text -- ^ 'divdId' + -> DiskImageVolumeDescription +diskImageVolumeDescription p1 = DiskImageVolumeDescription + { _divdId = p1 + , _divdSize = Nothing + } + +-- | The volume identifier. +divdId :: Lens' DiskImageVolumeDescription Text +divdId = lens _divdId (\s a -> s { _divdId = a }) + +-- | The size of the volume. +divdSize :: Lens' DiskImageVolumeDescription (Maybe Integer) +divdSize = lens _divdSize (\s a -> s { _divdSize = a }) + +instance FromXML DiskImageVolumeDescription where + parseXML x = DiskImageVolumeDescription + <$> x .@ "id" + <*> x .@? "size" + +instance ToQuery DiskImageVolumeDescription where + toQuery DiskImageVolumeDescription{..} = mconcat + [ "id" =? _divdId + , "size" =? _divdSize + ] + +newtype Monitoring = Monitoring + { _mState :: Maybe MonitoringState + } deriving (Eq, Show) + +-- | 'Monitoring' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'mState' @::@ 'Maybe' 'MonitoringState' +-- +monitoring :: Monitoring +monitoring = Monitoring + { _mState = Nothing + } + +-- | Indicates whether monitoring is enabled for the instance. +mState :: Lens' Monitoring (Maybe MonitoringState) +mState = lens _mState (\s a -> s { _mState = a }) + +instance FromXML Monitoring where + parseXML x = Monitoring + <$> x .@? "state" + +instance ToQuery Monitoring where + toQuery Monitoring{..} = mconcat + [ "state" =? _mState + ] + +data SubnetState + = SSAvailable -- ^ available + | SSPending -- ^ pending + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable SubnetState + +instance FromText SubnetState where + parser = takeText >>= \case + "available" -> pure SSAvailable + "pending" -> pure SSPending + e -> fail $ + "Failure parsing SubnetState from " ++ show e + +instance ToText SubnetState where + toText = \case + SSAvailable -> "available" + SSPending -> "pending" + +instance ToByteString SubnetState +instance ToHeader SubnetState +instance ToQuery SubnetState + +instance FromXML SubnetState where + parseXML = parseXMLText "SubnetState" + +data ContainerFormat + = Ova -- ^ ova + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable ContainerFormat + +instance FromText ContainerFormat where + parser = takeText >>= \case + "ova" -> pure Ova + e -> fail $ + "Failure parsing ContainerFormat from " ++ show e + +instance ToText ContainerFormat where + toText Ova = "ova" + +instance ToByteString ContainerFormat +instance ToHeader ContainerFormat +instance ToQuery ContainerFormat + +instance FromXML ContainerFormat where + parseXML = parseXMLText "ContainerFormat" + +newtype AvailabilityZoneMessage = AvailabilityZoneMessage + { _azmMessage :: Maybe Text + } deriving (Eq, Ord, Show, Monoid) + +-- | 'AvailabilityZoneMessage' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'azmMessage' @::@ 'Maybe' 'Text' +-- +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 ToQuery AvailabilityZoneMessage where + toQuery AvailabilityZoneMessage{..} = mconcat + [ "message" =? _azmMessage + ] + +data VpcAttachment = VpcAttachment + { _va1State :: Maybe AttachmentStatus + , _va1VpcId :: Maybe Text + } deriving (Eq, Show) + +-- | 'VpcAttachment' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'va1State' @::@ 'Maybe' 'AttachmentStatus' +-- +-- * 'va1VpcId' @::@ 'Maybe' 'Text' +-- +vpcAttachment :: VpcAttachment +vpcAttachment = VpcAttachment + { _va1VpcId = Nothing + , _va1State = Nothing + } + +-- | The current state of the attachment. +va1State :: Lens' VpcAttachment (Maybe AttachmentStatus) +va1State = lens _va1State (\s a -> s { _va1State = a }) + +-- | The ID of the VPC. +va1VpcId :: Lens' VpcAttachment (Maybe Text) +va1VpcId = lens _va1VpcId (\s a -> s { _va1VpcId = a }) + +instance FromXML VpcAttachment where + parseXML x = VpcAttachment + <$> x .@? "state" + <*> x .@? "vpcId" + +instance ToQuery VpcAttachment where + toQuery VpcAttachment{..} = mconcat + [ "state" =? _va1State + , "vpcId" =? _va1VpcId + ] + +data InstanceBlockDeviceMapping = InstanceBlockDeviceMapping + { _ibdmDeviceName :: Maybe Text + , _ibdmEbs :: Maybe EbsInstanceBlockDevice + } deriving (Eq, Show) + +-- | 'InstanceBlockDeviceMapping' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'ibdmDeviceName' @::@ 'Maybe' 'Text' +-- +-- * 'ibdmEbs' @::@ 'Maybe' 'EbsInstanceBlockDevice' +-- +instanceBlockDeviceMapping :: InstanceBlockDeviceMapping +instanceBlockDeviceMapping = InstanceBlockDeviceMapping + { _ibdmDeviceName = Nothing + , _ibdmEbs = Nothing + } + +-- | The device name exposed to the instance (for example, /dev/sdh). +ibdmDeviceName :: Lens' InstanceBlockDeviceMapping (Maybe Text) +ibdmDeviceName = lens _ibdmDeviceName (\s a -> s { _ibdmDeviceName = a }) + +-- | Parameters used to automatically set up Amazon EBS volumes when the instance +-- is launched. +ibdmEbs :: Lens' InstanceBlockDeviceMapping (Maybe EbsInstanceBlockDevice) +ibdmEbs = lens _ibdmEbs (\s a -> s { _ibdmEbs = a }) + +instance FromXML InstanceBlockDeviceMapping where + parseXML x = InstanceBlockDeviceMapping + <$> x .@? "deviceName" + <*> x .@? "ebs" + +instance ToQuery InstanceBlockDeviceMapping where + toQuery InstanceBlockDeviceMapping{..} = mconcat + [ "deviceName" =? _ibdmDeviceName + , "ebs" =? _ibdmEbs + ] + +data StatusType + = Failed -- ^ failed + | InsufficientData -- ^ insufficient-data + | Passed -- ^ passed + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable StatusType + +instance FromText StatusType where + parser = takeText >>= \case + "failed" -> pure Failed + "insufficient-data" -> pure InsufficientData + "passed" -> pure Passed + e -> fail $ + "Failure parsing StatusType from " ++ show e + +instance ToText StatusType where + toText = \case + Failed -> "failed" + InsufficientData -> "insufficient-data" + Passed -> "passed" + +instance ToByteString StatusType +instance ToHeader StatusType +instance ToQuery StatusType + +instance FromXML StatusType where + parseXML = parseXMLText "StatusType" + +data ExportToS3TaskSpecification = ExportToS3TaskSpecification + { _etstsContainerFormat :: Maybe ContainerFormat + , _etstsDiskImageFormat :: Maybe DiskImageFormat + , _etstsS3Bucket :: Maybe Text + , _etstsS3Prefix :: Maybe Text + } deriving (Eq, Show) + +-- | 'ExportToS3TaskSpecification' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'etstsContainerFormat' @::@ 'Maybe' 'ContainerFormat' +-- +-- * 'etstsDiskImageFormat' @::@ 'Maybe' 'DiskImageFormat' +-- +-- * 'etstsS3Bucket' @::@ 'Maybe' 'Text' +-- +-- * 'etstsS3Prefix' @::@ 'Maybe' 'Text' +-- +exportToS3TaskSpecification :: ExportToS3TaskSpecification +exportToS3TaskSpecification = ExportToS3TaskSpecification + { _etstsDiskImageFormat = Nothing + , _etstsContainerFormat = Nothing + , _etstsS3Bucket = Nothing + , _etstsS3Prefix = Nothing + } + +etstsContainerFormat :: Lens' ExportToS3TaskSpecification (Maybe ContainerFormat) +etstsContainerFormat = + lens _etstsContainerFormat (\s a -> s { _etstsContainerFormat = a }) + +etstsDiskImageFormat :: Lens' ExportToS3TaskSpecification (Maybe DiskImageFormat) +etstsDiskImageFormat = + lens _etstsDiskImageFormat (\s a -> s { _etstsDiskImageFormat = a }) + +etstsS3Bucket :: Lens' ExportToS3TaskSpecification (Maybe Text) +etstsS3Bucket = lens _etstsS3Bucket (\s a -> s { _etstsS3Bucket = a }) + +-- | The image is written to a single object in the Amazon S3 bucket at the S3 key +-- s3prefix + exportTaskId + '.' + diskImageFormat. +etstsS3Prefix :: Lens' ExportToS3TaskSpecification (Maybe Text) +etstsS3Prefix = lens _etstsS3Prefix (\s a -> s { _etstsS3Prefix = a }) + +instance FromXML ExportToS3TaskSpecification where + parseXML x = ExportToS3TaskSpecification + <$> x .@? "containerFormat" + <*> x .@? "diskImageFormat" + <*> x .@? "s3Bucket" + <*> x .@? "s3Prefix" + +instance ToQuery ExportToS3TaskSpecification where + toQuery ExportToS3TaskSpecification{..} = mconcat + [ "containerFormat" =? _etstsContainerFormat + , "diskImageFormat" =? _etstsDiskImageFormat + , "s3Bucket" =? _etstsS3Bucket + , "s3Prefix" =? _etstsS3Prefix + ] + +data NetworkInterfaceAttribute + = Attachment -- ^ attachment + | Description -- ^ description + | GroupSet -- ^ groupSet + | SourceDestCheck -- ^ sourceDestCheck + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable NetworkInterfaceAttribute + +instance FromText NetworkInterfaceAttribute where + parser = takeText >>= \case + "attachment" -> pure Attachment + "description" -> pure Description + "groupSet" -> pure GroupSet + "sourceDestCheck" -> pure SourceDestCheck + e -> fail $ + "Failure parsing NetworkInterfaceAttribute from " ++ show e + +instance ToText NetworkInterfaceAttribute where + toText = \case + Attachment -> "attachment" + Description -> "description" + GroupSet -> "groupSet" + SourceDestCheck -> "sourceDestCheck" + +instance ToByteString NetworkInterfaceAttribute +instance ToHeader NetworkInterfaceAttribute +instance ToQuery NetworkInterfaceAttribute + +instance FromXML NetworkInterfaceAttribute where + parseXML = parseXMLText "NetworkInterfaceAttribute" + +data ImageTypeValues + = Kernel -- ^ kernel + | Machine -- ^ machine + | Ramdisk -- ^ ramdisk + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable ImageTypeValues + +instance FromText ImageTypeValues where + parser = takeText >>= \case + "kernel" -> pure Kernel + "machine" -> pure Machine + "ramdisk" -> pure Ramdisk + e -> fail $ + "Failure parsing ImageTypeValues from " ++ show e + +instance ToText ImageTypeValues where + toText = \case + Kernel -> "kernel" + Machine -> "machine" + Ramdisk -> "ramdisk" + +instance ToByteString ImageTypeValues +instance ToHeader ImageTypeValues +instance ToQuery ImageTypeValues + +instance FromXML ImageTypeValues where + parseXML = parseXMLText "ImageTypeValues" + +data InstanceExportDetails = InstanceExportDetails + { _iedInstanceId :: Maybe Text + , _iedTargetEnvironment :: Maybe ExportEnvironment + } deriving (Eq, Show) + +-- | 'InstanceExportDetails' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'iedInstanceId' @::@ 'Maybe' 'Text' +-- +-- * 'iedTargetEnvironment' @::@ 'Maybe' 'ExportEnvironment' +-- +instanceExportDetails :: InstanceExportDetails +instanceExportDetails = InstanceExportDetails + { _iedInstanceId = Nothing + , _iedTargetEnvironment = Nothing + } + +-- | The ID of the resource being exported. +iedInstanceId :: Lens' InstanceExportDetails (Maybe Text) +iedInstanceId = lens _iedInstanceId (\s a -> s { _iedInstanceId = a }) + +-- | The target virtualization environment. +iedTargetEnvironment :: Lens' InstanceExportDetails (Maybe ExportEnvironment) +iedTargetEnvironment = + lens _iedTargetEnvironment (\s a -> s { _iedTargetEnvironment = a }) + +instance FromXML InstanceExportDetails where + parseXML x = InstanceExportDetails + <$> x .@? "instanceId" + <*> x .@? "targetEnvironment" + +instance ToQuery InstanceExportDetails where + toQuery InstanceExportDetails{..} = mconcat + [ "instanceId" =? _iedInstanceId + , "targetEnvironment" =? _iedTargetEnvironment + ] + +data SnapshotAttributeName + = SANCreateVolumePermission -- ^ createVolumePermission + | SANProductCodes -- ^ productCodes + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable SnapshotAttributeName + +instance FromText SnapshotAttributeName where + parser = takeText >>= \case + "createVolumePermission" -> pure SANCreateVolumePermission + "productCodes" -> pure SANProductCodes + e -> fail $ + "Failure parsing SnapshotAttributeName from " ++ show e + +instance ToText SnapshotAttributeName where + toText = \case + SANCreateVolumePermission -> "createVolumePermission" + SANProductCodes -> "productCodes" + +instance ToByteString SnapshotAttributeName +instance ToHeader SnapshotAttributeName +instance ToQuery SnapshotAttributeName + +instance FromXML SnapshotAttributeName where + parseXML = parseXMLText "SnapshotAttributeName" + +data AvailabilityZone = AvailabilityZone + { _azMessages :: List "item" AvailabilityZoneMessage + , _azRegionName :: Maybe Text + , _azState :: Maybe AvailabilityZoneState + , _azZoneName :: Maybe Text + } deriving (Eq, Show) + +-- | 'AvailabilityZone' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'azMessages' @::@ ['AvailabilityZoneMessage'] +-- +-- * 'azRegionName' @::@ 'Maybe' 'Text' +-- +-- * 'azState' @::@ 'Maybe' 'AvailabilityZoneState' +-- +-- * 'azZoneName' @::@ 'Maybe' 'Text' +-- +availabilityZone :: AvailabilityZone +availabilityZone = AvailabilityZone + { _azZoneName = Nothing + , _azState = Nothing + , _azRegionName = Nothing + , _azMessages = mempty + } + +-- | Any messages about the Availability Zone. +azMessages :: Lens' AvailabilityZone [AvailabilityZoneMessage] +azMessages = lens _azMessages (\s a -> s { _azMessages = a }) . _List + +-- | The name of the region. +azRegionName :: Lens' AvailabilityZone (Maybe Text) +azRegionName = lens _azRegionName (\s a -> s { _azRegionName = a }) + +-- | The state of the Availability Zone ('available' | 'impaired' | 'unavailable'). +azState :: Lens' AvailabilityZone (Maybe AvailabilityZoneState) +azState = lens _azState (\s a -> s { _azState = a }) + +-- | The name of the Availability Zone. +azZoneName :: Lens' AvailabilityZone (Maybe Text) +azZoneName = lens _azZoneName (\s a -> s { _azZoneName = a }) + +instance FromXML AvailabilityZone where + parseXML x = AvailabilityZone + <$> x .@ "messageSet" + <*> x .@? "regionName" + <*> x .@? "zoneState" + <*> x .@? "zoneName" + +instance ToQuery AvailabilityZone where + toQuery AvailabilityZone{..} = mconcat + [ "messageSet" =? _azMessages + , "regionName" =? _azRegionName + , "zoneState" =? _azState + , "zoneName" =? _azZoneName + ] + +data VpnState + = VpnStateAvailable -- ^ available + | VpnStateDeleted -- ^ deleted + | VpnStateDeleting -- ^ deleting + | VpnStatePending -- ^ pending + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable VpnState + +instance FromText VpnState where + parser = takeText >>= \case + "available" -> pure VpnStateAvailable + "deleted" -> pure VpnStateDeleted + "deleting" -> pure VpnStateDeleting + "pending" -> pure VpnStatePending + e -> fail $ + "Failure parsing VpnState from " ++ show e + +instance ToText VpnState where + toText = \case + VpnStateAvailable -> "available" + VpnStateDeleted -> "deleted" + VpnStateDeleting -> "deleting" + VpnStatePending -> "pending" + +instance ToByteString VpnState +instance ToHeader VpnState +instance ToQuery VpnState + +instance FromXML VpnState where + parseXML = parseXMLText "VpnState" + +data RouteTable = RouteTable + { _rtAssociations :: List "item" RouteTableAssociation + , _rtPropagatingVgws :: List "item" PropagatingVgw + , _rtRouteTableId :: Maybe Text + , _rtRoutes :: List "item" Route + , _rtTags :: List "item" Tag + , _rtVpcId :: Maybe Text + } deriving (Eq, Show) + +-- | 'RouteTable' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'rtAssociations' @::@ ['RouteTableAssociation'] +-- +-- * 'rtPropagatingVgws' @::@ ['PropagatingVgw'] +-- +-- * 'rtRouteTableId' @::@ 'Maybe' 'Text' +-- +-- * 'rtRoutes' @::@ ['Route'] +-- +-- * 'rtTags' @::@ ['Tag'] +-- +-- * 'rtVpcId' @::@ 'Maybe' 'Text' +-- +routeTable :: RouteTable +routeTable = RouteTable + { _rtRouteTableId = Nothing + , _rtVpcId = Nothing + , _rtRoutes = mempty + , _rtAssociations = mempty + , _rtTags = mempty + , _rtPropagatingVgws = mempty + } + +-- | The associations between the route table and one or more subnets. +rtAssociations :: Lens' RouteTable [RouteTableAssociation] +rtAssociations = lens _rtAssociations (\s a -> s { _rtAssociations = a }) . _List + +-- | Any virtual private gateway (VGW) propagating routes. +rtPropagatingVgws :: Lens' RouteTable [PropagatingVgw] +rtPropagatingVgws = + lens _rtPropagatingVgws (\s a -> s { _rtPropagatingVgws = a }) + . _List + +-- | 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 }) . _List + +-- | Any tags assigned to the route table. +rtTags :: Lens' RouteTable [Tag] +rtTags = lens _rtTags (\s a -> s { _rtTags = a }) . _List + +-- | The ID of the VPC. +rtVpcId :: Lens' RouteTable (Maybe Text) +rtVpcId = lens _rtVpcId (\s a -> s { _rtVpcId = a }) + +instance FromXML RouteTable where + parseXML x = RouteTable + <$> x .@ "associationSet" + <*> x .@ "propagatingVgwSet" + <*> x .@? "routeTableId" + <*> x .@ "routeSet" + <*> x .@ "tagSet" + <*> x .@? "vpcId" + +instance ToQuery RouteTable where + toQuery RouteTable{..} = mconcat + [ "associationSet" =? _rtAssociations + , "propagatingVgwSet" =? _rtPropagatingVgws + , "routeTableId" =? _rtRouteTableId + , "routeSet" =? _rtRoutes + , "tagSet" =? _rtTags + , "vpcId" =? _rtVpcId + ] + +data HypervisorType + = Ovm -- ^ ovm + | Xen -- ^ xen + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable HypervisorType + +instance FromText HypervisorType where + parser = takeText >>= \case + "ovm" -> pure Ovm + "xen" -> pure Xen + e -> fail $ + "Failure parsing HypervisorType from " ++ show e + +instance ToText HypervisorType where + toText = \case + Ovm -> "ovm" + Xen -> "xen" + +instance ToByteString HypervisorType +instance ToHeader HypervisorType +instance ToQuery HypervisorType + +instance FromXML HypervisorType where + parseXML = parseXMLText "HypervisorType" + +data InstanceStatusDetails = InstanceStatusDetails + { _isdImpairedSince :: Maybe ISO8601 + , _isdName :: Maybe StatusName + , _isdStatus :: Maybe StatusType + } deriving (Eq, Show) + +-- | 'InstanceStatusDetails' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'isdImpairedSince' @::@ 'Maybe' 'UTCTime' +-- +-- * 'isdName' @::@ 'Maybe' 'StatusName' +-- +-- * 'isdStatus' @::@ 'Maybe' 'StatusType' +-- +instanceStatusDetails :: InstanceStatusDetails +instanceStatusDetails = InstanceStatusDetails + { _isdName = Nothing + , _isdStatus = Nothing + , _isdImpairedSince = Nothing + } + +-- | 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 }) + +-- | The status. +isdStatus :: Lens' InstanceStatusDetails (Maybe StatusType) +isdStatus = lens _isdStatus (\s a -> s { _isdStatus = a }) + +instance FromXML InstanceStatusDetails where + parseXML x = InstanceStatusDetails + <$> x .@? "impairedSince" + <*> x .@? "name" + <*> x .@? "status" + +instance ToQuery InstanceStatusDetails where + toQuery InstanceStatusDetails{..} = mconcat + [ "impairedSince" =? _isdImpairedSince + , "name" =? _isdName + , "status" =? _isdStatus + ] + +data IamInstanceProfile = IamInstanceProfile + { _iipArn :: Maybe Text + , _iipId :: Maybe Text + } deriving (Eq, Ord, Show) + +-- | 'IamInstanceProfile' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'iipArn' @::@ 'Maybe' 'Text' +-- +-- * 'iipId' @::@ 'Maybe' 'Text' +-- +iamInstanceProfile :: IamInstanceProfile +iamInstanceProfile = IamInstanceProfile + { _iipArn = Nothing + , _iipId = Nothing + } + +-- | The Amazon Resource Name (ARN) of the instance profile. +iipArn :: Lens' IamInstanceProfile (Maybe Text) +iipArn = lens _iipArn (\s a -> s { _iipArn = a }) + +-- | The ID of the instance profile. +iipId :: Lens' IamInstanceProfile (Maybe Text) +iipId = lens _iipId (\s a -> s { _iipId = a }) + +instance FromXML IamInstanceProfile where + parseXML x = IamInstanceProfile + <$> x .@? "arn" + <*> x .@? "id" + +instance ToQuery IamInstanceProfile where + toQuery IamInstanceProfile{..} = mconcat + [ "arn" =? _iipArn + , "id" =? _iipId + ] + +data InternetGatewayAttachment = InternetGatewayAttachment + { _igaState :: AttachmentStatus + , _igaVpcId :: Text + } deriving (Eq, Show) + +-- | 'InternetGatewayAttachment' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'igaState' @::@ 'AttachmentStatus' +-- +-- * 'igaVpcId' @::@ 'Text' +-- +internetGatewayAttachment :: Text -- ^ 'igaVpcId' + -> AttachmentStatus -- ^ 'igaState' + -> InternetGatewayAttachment +internetGatewayAttachment p1 p2 = InternetGatewayAttachment + { _igaVpcId = p1 + , _igaState = p2 + } + +-- | 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 ToQuery InternetGatewayAttachment where + toQuery InternetGatewayAttachment{..} = mconcat + [ "state" =? _igaState + , "vpcId" =? _igaVpcId + ] + +data ReservedInstanceState + = RISActive -- ^ active + | RISPaymentFailed -- ^ payment-failed + | RISPaymentPending -- ^ payment-pending + | RISRetired -- ^ retired + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable ReservedInstanceState + +instance FromText ReservedInstanceState where + parser = takeText >>= \case + "active" -> pure RISActive + "payment-failed" -> pure RISPaymentFailed + "payment-pending" -> pure RISPaymentPending + "retired" -> pure RISRetired + e -> fail $ + "Failure parsing ReservedInstanceState from " ++ show e + +instance ToText ReservedInstanceState where + toText = \case + RISActive -> "active" + RISPaymentFailed -> "payment-failed" + RISPaymentPending -> "payment-pending" + RISRetired -> "retired" + +instance ToByteString ReservedInstanceState +instance ToHeader ReservedInstanceState +instance ToQuery ReservedInstanceState + +instance FromXML ReservedInstanceState where + parseXML = parseXMLText "ReservedInstanceState" + +data InstanceAttributeName + = IANInstanceBlockDeviceMapping -- ^ blockDeviceMapping + | IANInstanceDisableApiTermination -- ^ disableApiTermination + | IANInstanceEbsOptimized -- ^ ebsOptimized + | IANInstanceGroupSet -- ^ groupSet + | IANInstanceInstanceInitiatedShutdownBehavior -- ^ instanceInitiatedShutdownBehavior + | IANInstanceInstanceType -- ^ instanceType + | IANInstanceKernel -- ^ kernel + | IANInstanceProductCodes -- ^ productCodes + | IANInstanceRamdisk -- ^ ramdisk + | IANInstanceRootDeviceName -- ^ rootDeviceName + | IANInstanceSourceDestCheck -- ^ sourceDestCheck + | IANInstanceSriovNetSupport -- ^ sriovNetSupport + | IANInstanceUserData -- ^ userData + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable InstanceAttributeName + +instance FromText InstanceAttributeName where + parser = takeText >>= \case + "blockDeviceMapping" -> pure IANInstanceBlockDeviceMapping + "disableApiTermination" -> pure IANInstanceDisableApiTermination + "ebsOptimized" -> pure IANInstanceEbsOptimized + "groupSet" -> pure IANInstanceGroupSet + "instanceInitiatedShutdownBehavior" -> pure IANInstanceInstanceInitiatedShutdownBehavior + "instanceType" -> pure IANInstanceInstanceType + "kernel" -> pure IANInstanceKernel + "productCodes" -> pure IANInstanceProductCodes + "ramdisk" -> pure IANInstanceRamdisk + "rootDeviceName" -> pure IANInstanceRootDeviceName + "sourceDestCheck" -> pure IANInstanceSourceDestCheck + "sriovNetSupport" -> pure IANInstanceSriovNetSupport + "userData" -> pure IANInstanceUserData + e -> fail $ + "Failure parsing InstanceAttributeName from " ++ show e + +instance ToText InstanceAttributeName where + toText = \case + IANInstanceBlockDeviceMapping -> "blockDeviceMapping" + IANInstanceDisableApiTermination -> "disableApiTermination" + IANInstanceEbsOptimized -> "ebsOptimized" + IANInstanceGroupSet -> "groupSet" + IANInstanceInstanceInitiatedShutdownBehavior -> "instanceInitiatedShutdownBehavior" + IANInstanceInstanceType -> "instanceType" + IANInstanceKernel -> "kernel" + IANInstanceProductCodes -> "productCodes" + IANInstanceRamdisk -> "ramdisk" + IANInstanceRootDeviceName -> "rootDeviceName" + IANInstanceSourceDestCheck -> "sourceDestCheck" + IANInstanceSriovNetSupport -> "sriovNetSupport" + IANInstanceUserData -> "userData" + +instance ToByteString InstanceAttributeName +instance ToHeader InstanceAttributeName +instance ToQuery InstanceAttributeName + +instance FromXML InstanceAttributeName where + parseXML = parseXMLText "InstanceAttributeName" + +data IpPermission = IpPermission + { _ipFromPort :: Int + , _ipIpProtocol :: Text + , _ipIpRanges :: List "item" IpRange + , _ipToPort :: Int + , _ipUserIdGroupPairs :: List "item" UserIdGroupPair + } deriving (Eq, Show) + +-- | 'IpPermission' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'ipFromPort' @::@ 'Int' +-- +-- * 'ipIpProtocol' @::@ 'Text' +-- +-- * 'ipIpRanges' @::@ ['IpRange'] +-- +-- * 'ipToPort' @::@ 'Int' +-- +-- * 'ipUserIdGroupPairs' @::@ ['UserIdGroupPair'] +-- +ipPermission :: Text -- ^ 'ipIpProtocol' + -> Int -- ^ 'ipFromPort' + -> Int -- ^ 'ipToPort' + -> IpPermission +ipPermission p1 p2 p3 = IpPermission + { _ipIpProtocol = p1 + , _ipFromPort = p2 + , _ipToPort = p3 + , _ipUserIdGroupPairs = mempty + , _ipIpRanges = mempty + } + +-- | The start of port range for the TCP and UDP protocols, or an ICMP type +-- number. A value of '-1' indicates all ICMP types. +ipFromPort :: Lens' IpPermission Int +ipFromPort = lens _ipFromPort (\s a -> s { _ipFromPort = a }) + +-- | The protocol. +-- +-- When you call 'DescribeSecurityGroups', the protocol value returned is the +-- number. Exception: For TCP, UDP, and ICMP, the value returned is the name +-- (for example, 'tcp', 'udp', or 'icmp'). For a list of protocol numbers, see . +ipIpProtocol :: Lens' IpPermission Text +ipIpProtocol = lens _ipIpProtocol (\s a -> s { _ipIpProtocol = a }) + +-- | One or more IP ranges. +ipIpRanges :: Lens' IpPermission [IpRange] +ipIpRanges = lens _ipIpRanges (\s a -> s { _ipIpRanges = a }) . _List + +-- | The end of port range for the TCP and UDP protocols, or an ICMP code. A value +-- of '-1' indicates all ICMP codes for the specified ICMP type. +ipToPort :: Lens' IpPermission Int +ipToPort = lens _ipToPort (\s a -> s { _ipToPort = a }) + +-- | One or more security group and AWS account ID pairs. +ipUserIdGroupPairs :: Lens' IpPermission [UserIdGroupPair] +ipUserIdGroupPairs = + lens _ipUserIdGroupPairs (\s a -> s { _ipUserIdGroupPairs = a }) + . _List + +instance FromXML IpPermission where + parseXML x = IpPermission + <$> x .@ "fromPort" + <*> x .@ "ipProtocol" + <*> x .@ "ipRanges" + <*> x .@ "toPort" + <*> x .@ "groups" + +instance ToQuery IpPermission where + toQuery IpPermission{..} = mconcat + [ "fromPort" =? _ipFromPort + , "ipProtocol" =? _ipIpProtocol + , "ipRanges" =? _ipIpRanges + , "toPort" =? _ipToPort + , "groups" =? _ipUserIdGroupPairs + ] + +data ConversionTaskState + = CTSActive -- ^ active + | CTSCancelled -- ^ cancelled + | CTSCancelling -- ^ cancelling + | CTSCompleted -- ^ completed + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable ConversionTaskState + +instance FromText ConversionTaskState where + parser = takeText >>= \case + "active" -> pure CTSActive + "cancelled" -> pure CTSCancelled + "cancelling" -> pure CTSCancelling + "completed" -> pure CTSCompleted + e -> fail $ + "Failure parsing ConversionTaskState from " ++ show e + +instance ToText ConversionTaskState where + toText = \case + CTSActive -> "active" + CTSCancelled -> "cancelled" + CTSCancelling -> "cancelling" + CTSCompleted -> "completed" + +instance ToByteString ConversionTaskState +instance ToHeader ConversionTaskState +instance ToQuery ConversionTaskState + +instance FromXML ConversionTaskState where + parseXML = parseXMLText "ConversionTaskState" + +data DiskImage = DiskImage + { _diDescription :: Maybe Text + , _diImage :: Maybe DiskImageDetail + , _diVolume :: Maybe VolumeDetail + } deriving (Eq, Show) + +-- | 'DiskImage' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'diDescription' @::@ 'Maybe' 'Text' +-- +-- * 'diImage' @::@ 'Maybe' 'DiskImageDetail' +-- +-- * 'diVolume' @::@ 'Maybe' 'VolumeDetail' +-- +diskImage :: DiskImage +diskImage = DiskImage + { _diImage = Nothing + , _diDescription = Nothing + , _diVolume = Nothing + } + +diDescription :: Lens' DiskImage (Maybe Text) +diDescription = lens _diDescription (\s a -> s { _diDescription = a }) + +diImage :: Lens' DiskImage (Maybe DiskImageDetail) +diImage = lens _diImage (\s a -> s { _diImage = a }) + +diVolume :: Lens' DiskImage (Maybe VolumeDetail) +diVolume = lens _diVolume (\s a -> s { _diVolume = a }) + +instance FromXML DiskImage where + parseXML x = DiskImage + <$> x .@? "Description" + <*> x .@? "Image" + <*> x .@? "Volume" + +instance ToQuery DiskImage where + toQuery DiskImage{..} = mconcat + [ "Description" =? _diDescription + , "Image" =? _diImage + , "Volume" =? _diVolume + ] + +data Tenancy + = Dedicated -- ^ dedicated + | Default' -- ^ default + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable Tenancy + +instance FromText Tenancy where + parser = takeText >>= \case + "dedicated" -> pure Dedicated + "default" -> pure Default' + e -> fail $ + "Failure parsing Tenancy from " ++ show e + +instance ToText Tenancy where + toText = \case + Dedicated -> "dedicated" + Default' -> "default" + +instance ToByteString Tenancy +instance ToHeader Tenancy +instance ToQuery Tenancy + +instance FromXML Tenancy where + parseXML = parseXMLText "Tenancy" + +data VpcPeeringConnectionStateReason = VpcPeeringConnectionStateReason + { _vpcsrCode :: Maybe Text + , _vpcsrMessage :: Maybe Text + } deriving (Eq, Ord, Show) + +-- | 'VpcPeeringConnectionStateReason' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'vpcsrCode' @::@ 'Maybe' 'Text' +-- +-- * 'vpcsrMessage' @::@ 'Maybe' 'Text' +-- +vpcPeeringConnectionStateReason :: VpcPeeringConnectionStateReason +vpcPeeringConnectionStateReason = VpcPeeringConnectionStateReason + { _vpcsrCode = Nothing + , _vpcsrMessage = Nothing + } + +-- | The status of the VPC peering connection. +vpcsrCode :: Lens' VpcPeeringConnectionStateReason (Maybe Text) +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 ToQuery VpcPeeringConnectionStateReason where + toQuery VpcPeeringConnectionStateReason{..} = mconcat + [ "code" =? _vpcsrCode + , "message" =? _vpcsrMessage + ] + +data IamInstanceProfileSpecification = IamInstanceProfileSpecification + { _iipsArn :: Maybe Text + , _iipsName :: Maybe Text + } deriving (Eq, Ord, Show) + +-- | 'IamInstanceProfileSpecification' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'iipsArn' @::@ 'Maybe' 'Text' +-- +-- * 'iipsName' @::@ 'Maybe' 'Text' +-- +iamInstanceProfileSpecification :: IamInstanceProfileSpecification +iamInstanceProfileSpecification = IamInstanceProfileSpecification + { _iipsArn = Nothing + , _iipsName = Nothing + } + +-- | The Amazon Resource Name (ARN) of the instance profile. +iipsArn :: Lens' IamInstanceProfileSpecification (Maybe Text) +iipsArn = lens _iipsArn (\s a -> s { _iipsArn = a }) + +-- | The name of the instance profile. +iipsName :: Lens' IamInstanceProfileSpecification (Maybe Text) +iipsName = lens _iipsName (\s a -> s { _iipsName = a }) + +instance FromXML IamInstanceProfileSpecification where + parseXML x = IamInstanceProfileSpecification + <$> x .@? "arn" + <*> x .@? "name" + +instance ToQuery IamInstanceProfileSpecification where + toQuery IamInstanceProfileSpecification{..} = mconcat + [ "arn" =? _iipsArn + , "name" =? _iipsName + ] + +data ImportVolumeTaskDetails = ImportVolumeTaskDetails + { _ivtdAvailabilityZone :: Text + , _ivtdBytesConverted :: Integer + , _ivtdDescription :: Maybe Text + , _ivtdImage :: DiskImageDescription + , _ivtdVolume :: DiskImageVolumeDescription + } deriving (Eq, Show) + +-- | 'ImportVolumeTaskDetails' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'ivtdAvailabilityZone' @::@ 'Text' +-- +-- * 'ivtdBytesConverted' @::@ 'Integer' +-- +-- * 'ivtdDescription' @::@ 'Maybe' 'Text' +-- +-- * 'ivtdImage' @::@ 'DiskImageDescription' +-- +-- * 'ivtdVolume' @::@ 'DiskImageVolumeDescription' +-- +importVolumeTaskDetails :: Integer -- ^ 'ivtdBytesConverted' + -> Text -- ^ 'ivtdAvailabilityZone' + -> DiskImageDescription -- ^ 'ivtdImage' + -> DiskImageVolumeDescription -- ^ 'ivtdVolume' + -> ImportVolumeTaskDetails +importVolumeTaskDetails p1 p2 p3 p4 = ImportVolumeTaskDetails + { _ivtdBytesConverted = p1 + , _ivtdAvailabilityZone = p2 + , _ivtdImage = p3 + , _ivtdVolume = p4 + , _ivtdDescription = Nothing + } + +-- | 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 description you provided when starting the import volume task. +ivtdDescription :: Lens' ImportVolumeTaskDetails (Maybe Text) +ivtdDescription = lens _ivtdDescription (\s a -> s { _ivtdDescription = 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 .@ "availabilityZone" + <*> x .@ "bytesConverted" + <*> x .@? "description" + <*> x .@ "image" + <*> x .@ "volume" + +instance ToQuery ImportVolumeTaskDetails where + toQuery ImportVolumeTaskDetails{..} = mconcat + [ "availabilityZone" =? _ivtdAvailabilityZone + , "bytesConverted" =? _ivtdBytesConverted + , "description" =? _ivtdDescription + , "image" =? _ivtdImage + , "volume" =? _ivtdVolume + ] + +data PlacementStrategy + = Cluster -- ^ cluster + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable PlacementStrategy + +instance FromText PlacementStrategy where + parser = takeText >>= \case + "cluster" -> pure Cluster + e -> fail $ + "Failure parsing PlacementStrategy from " ++ show e + +instance ToText PlacementStrategy where + toText Cluster = "cluster" + +instance ToByteString PlacementStrategy +instance ToHeader PlacementStrategy +instance ToQuery PlacementStrategy + +instance FromXML PlacementStrategy where + parseXML = parseXMLText "PlacementStrategy" + +data InstanceNetworkInterface = InstanceNetworkInterface + { _iniAssociation :: Maybe InstanceNetworkInterfaceAssociation + , _iniAttachment :: Maybe InstanceNetworkInterfaceAttachment + , _iniDescription :: Maybe Text + , _iniGroups :: List "item" GroupIdentifier + , _iniMacAddress :: Maybe Text + , _iniNetworkInterfaceId :: Maybe Text + , _iniOwnerId :: Maybe Text + , _iniPrivateDnsName :: Maybe Text + , _iniPrivateIpAddress :: Maybe Text + , _iniPrivateIpAddresses :: List "item" InstancePrivateIpAddress + , _iniSourceDestCheck :: Maybe Bool + , _iniStatus :: Maybe NetworkInterfaceStatus + , _iniSubnetId :: Maybe Text + , _iniVpcId :: Maybe Text + } deriving (Eq, Show) + +-- | 'InstanceNetworkInterface' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'iniAssociation' @::@ 'Maybe' 'InstanceNetworkInterfaceAssociation' +-- +-- * 'iniAttachment' @::@ 'Maybe' 'InstanceNetworkInterfaceAttachment' +-- +-- * 'iniDescription' @::@ 'Maybe' 'Text' +-- +-- * 'iniGroups' @::@ ['GroupIdentifier'] +-- +-- * 'iniMacAddress' @::@ 'Maybe' 'Text' +-- +-- * 'iniNetworkInterfaceId' @::@ 'Maybe' 'Text' +-- +-- * 'iniOwnerId' @::@ 'Maybe' 'Text' +-- +-- * 'iniPrivateDnsName' @::@ 'Maybe' 'Text' +-- +-- * 'iniPrivateIpAddress' @::@ 'Maybe' 'Text' +-- +-- * 'iniPrivateIpAddresses' @::@ ['InstancePrivateIpAddress'] +-- +-- * 'iniSourceDestCheck' @::@ 'Maybe' 'Bool' +-- +-- * 'iniStatus' @::@ 'Maybe' 'NetworkInterfaceStatus' +-- +-- * 'iniSubnetId' @::@ 'Maybe' 'Text' +-- +-- * 'iniVpcId' @::@ 'Maybe' 'Text' +-- +instanceNetworkInterface :: InstanceNetworkInterface +instanceNetworkInterface = InstanceNetworkInterface + { _iniNetworkInterfaceId = Nothing + , _iniSubnetId = Nothing + , _iniVpcId = Nothing + , _iniDescription = Nothing + , _iniOwnerId = Nothing + , _iniStatus = Nothing + , _iniMacAddress = Nothing + , _iniPrivateIpAddress = Nothing + , _iniPrivateDnsName = Nothing + , _iniSourceDestCheck = Nothing + , _iniGroups = mempty + , _iniAttachment = Nothing + , _iniAssociation = Nothing + , _iniPrivateIpAddresses = mempty + } + +-- | The association information for an Elastic IP associated with the network +-- interface. +iniAssociation :: Lens' InstanceNetworkInterface (Maybe InstanceNetworkInterfaceAssociation) +iniAssociation = lens _iniAssociation (\s a -> s { _iniAssociation = a }) + +-- | The network interface attachment. +iniAttachment :: Lens' InstanceNetworkInterface (Maybe InstanceNetworkInterfaceAttachment) +iniAttachment = lens _iniAttachment (\s a -> s { _iniAttachment = a }) + +-- | The description. +iniDescription :: Lens' InstanceNetworkInterface (Maybe Text) +iniDescription = lens _iniDescription (\s a -> s { _iniDescription = a }) + +-- | One or more security groups. +iniGroups :: Lens' InstanceNetworkInterface [GroupIdentifier] +iniGroups = lens _iniGroups (\s a -> s { _iniGroups = a }) . _List + +-- | The MAC address. +iniMacAddress :: Lens' InstanceNetworkInterface (Maybe Text) +iniMacAddress = lens _iniMacAddress (\s a -> s { _iniMacAddress = a }) + +-- | The ID of the network interface. +iniNetworkInterfaceId :: Lens' InstanceNetworkInterface (Maybe Text) +iniNetworkInterfaceId = + lens _iniNetworkInterfaceId (\s a -> s { _iniNetworkInterfaceId = 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 private DNS name. +iniPrivateDnsName :: Lens' InstanceNetworkInterface (Maybe Text) +iniPrivateDnsName = + lens _iniPrivateDnsName (\s a -> s { _iniPrivateDnsName = a }) + +-- | The IP address of the network interface within the subnet. +iniPrivateIpAddress :: Lens' InstanceNetworkInterface (Maybe Text) +iniPrivateIpAddress = + lens _iniPrivateIpAddress (\s a -> s { _iniPrivateIpAddress = a }) + +-- | The private IP addresses associated with the network interface. +iniPrivateIpAddresses :: Lens' InstanceNetworkInterface [InstancePrivateIpAddress] +iniPrivateIpAddresses = + lens _iniPrivateIpAddresses (\s a -> s { _iniPrivateIpAddresses = a }) + . _List + +-- | 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 status of the network interface. +iniStatus :: Lens' InstanceNetworkInterface (Maybe NetworkInterfaceStatus) +iniStatus = lens _iniStatus (\s a -> s { _iniStatus = a }) + +-- | The ID of the subnet. +iniSubnetId :: Lens' InstanceNetworkInterface (Maybe Text) +iniSubnetId = lens _iniSubnetId (\s a -> s { _iniSubnetId = a }) + +-- | The ID of the VPC. +iniVpcId :: Lens' InstanceNetworkInterface (Maybe Text) +iniVpcId = lens _iniVpcId (\s a -> s { _iniVpcId = a }) + +instance FromXML InstanceNetworkInterface where + parseXML x = InstanceNetworkInterface + <$> x .@? "association" + <*> x .@? "attachment" + <*> x .@? "description" + <*> x .@ "groupSet" + <*> x .@? "macAddress" + <*> x .@? "networkInterfaceId" + <*> x .@? "ownerId" + <*> x .@? "privateDnsName" + <*> x .@? "privateIpAddress" + <*> x .@ "privateIpAddressesSet" + <*> x .@? "sourceDestCheck" + <*> x .@? "status" + <*> x .@? "subnetId" + <*> x .@? "vpcId" + +instance ToQuery InstanceNetworkInterface where + toQuery InstanceNetworkInterface{..} = mconcat + [ "association" =? _iniAssociation + , "attachment" =? _iniAttachment + , "description" =? _iniDescription + , "groupSet" =? _iniGroups + , "macAddress" =? _iniMacAddress + , "networkInterfaceId" =? _iniNetworkInterfaceId + , "ownerId" =? _iniOwnerId + , "privateDnsName" =? _iniPrivateDnsName + , "privateIpAddress" =? _iniPrivateIpAddress + , "privateIpAddressesSet" =? _iniPrivateIpAddresses + , "sourceDestCheck" =? _iniSourceDestCheck + , "status" =? _iniStatus + , "subnetId" =? _iniSubnetId + , "vpcId" =? _iniVpcId + ] + +data VolumeStatusAction = VolumeStatusAction + { _vsaCode :: Maybe Text + , _vsaDescription :: Maybe Text + , _vsaEventId :: Maybe Text + , _vsaEventType :: Maybe Text + } deriving (Eq, Ord, Show) + +-- | 'VolumeStatusAction' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'vsaCode' @::@ 'Maybe' 'Text' +-- +-- * 'vsaDescription' @::@ 'Maybe' 'Text' +-- +-- * 'vsaEventId' @::@ 'Maybe' 'Text' +-- +-- * 'vsaEventType' @::@ 'Maybe' 'Text' +-- +volumeStatusAction :: VolumeStatusAction +volumeStatusAction = VolumeStatusAction + { _vsaCode = Nothing + , _vsaDescription = Nothing + , _vsaEventType = Nothing + , _vsaEventId = Nothing + } + +-- | 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 }) + +-- | The event type associated with this operation. +vsaEventType :: Lens' VolumeStatusAction (Maybe Text) +vsaEventType = lens _vsaEventType (\s a -> s { _vsaEventType = a }) + +instance FromXML VolumeStatusAction where + parseXML x = VolumeStatusAction + <$> x .@? "code" + <*> x .@? "description" + <*> x .@? "eventId" + <*> x .@? "eventType" + +instance ToQuery VolumeStatusAction where + toQuery VolumeStatusAction{..} = mconcat + [ "code" =? _vsaCode + , "description" =? _vsaDescription + , "eventId" =? _vsaEventId + , "eventType" =? _vsaEventType + ] + +data VpcPeeringConnectionVpcInfo = VpcPeeringConnectionVpcInfo + { _vpcviCidrBlock :: Maybe Text + , _vpcviOwnerId :: Maybe Text + , _vpcviVpcId :: Maybe Text + } deriving (Eq, Ord, Show) + +-- | 'VpcPeeringConnectionVpcInfo' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'vpcviCidrBlock' @::@ 'Maybe' 'Text' +-- +-- * 'vpcviOwnerId' @::@ 'Maybe' 'Text' +-- +-- * 'vpcviVpcId' @::@ 'Maybe' 'Text' +-- +vpcPeeringConnectionVpcInfo :: VpcPeeringConnectionVpcInfo +vpcPeeringConnectionVpcInfo = VpcPeeringConnectionVpcInfo + { _vpcviCidrBlock = Nothing + , _vpcviOwnerId = Nothing + , _vpcviVpcId = Nothing + } + +-- | The CIDR block for the VPC. +vpcviCidrBlock :: Lens' VpcPeeringConnectionVpcInfo (Maybe Text) +vpcviCidrBlock = lens _vpcviCidrBlock (\s a -> s { _vpcviCidrBlock = a }) + +-- | The AWS account ID of the VPC owner. +vpcviOwnerId :: Lens' VpcPeeringConnectionVpcInfo (Maybe Text) +vpcviOwnerId = lens _vpcviOwnerId (\s a -> s { _vpcviOwnerId = a }) + +-- | The ID of the VPC. +vpcviVpcId :: Lens' VpcPeeringConnectionVpcInfo (Maybe Text) +vpcviVpcId = lens _vpcviVpcId (\s a -> s { _vpcviVpcId = a }) + +instance FromXML VpcPeeringConnectionVpcInfo where + parseXML x = VpcPeeringConnectionVpcInfo + <$> x .@? "cidrBlock" + <*> x .@? "ownerId" + <*> x .@? "vpcId" + +instance ToQuery VpcPeeringConnectionVpcInfo where + toQuery VpcPeeringConnectionVpcInfo{..} = mconcat + [ "cidrBlock" =? _vpcviCidrBlock + , "ownerId" =? _vpcviOwnerId + , "vpcId" =? _vpcviVpcId + ] + +data ReservedInstanceLimitPrice = ReservedInstanceLimitPrice + { _rilpAmount :: Maybe Double + , _rilpCurrencyCode :: Maybe CurrencyCodeValues + } deriving (Eq, Show) + +-- | 'ReservedInstanceLimitPrice' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'rilpAmount' @::@ 'Maybe' 'Double' +-- +-- * 'rilpCurrencyCode' @::@ 'Maybe' 'CurrencyCodeValues' +-- +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 FromXML ReservedInstanceLimitPrice where + parseXML x = ReservedInstanceLimitPrice + <$> x .@? "amount" + <*> x .@? "currencyCode" + +instance ToQuery ReservedInstanceLimitPrice where + toQuery ReservedInstanceLimitPrice{..} = mconcat + [ "amount" =? _rilpAmount + , "currencyCode" =? _rilpCurrencyCode + ] + +data Vpc = Vpc + { _vpcCidrBlock :: Maybe Text + , _vpcDhcpOptionsId :: Maybe Text + , _vpcInstanceTenancy :: Maybe Tenancy + , _vpcIsDefault :: Maybe Bool + , _vpcState :: Maybe VpcState + , _vpcTags :: List "item" Tag + , _vpcVpcId :: Maybe Text + } deriving (Eq, Show) + +-- | 'Vpc' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'vpcCidrBlock' @::@ 'Maybe' 'Text' +-- +-- * 'vpcDhcpOptionsId' @::@ 'Maybe' 'Text' +-- +-- * 'vpcInstanceTenancy' @::@ 'Maybe' 'Tenancy' +-- +-- * 'vpcIsDefault' @::@ 'Maybe' 'Bool' +-- +-- * 'vpcState' @::@ 'Maybe' 'VpcState' +-- +-- * 'vpcTags' @::@ ['Tag'] +-- +-- * 'vpcVpcId' @::@ 'Maybe' 'Text' +-- +vpc :: Vpc +vpc = Vpc + { _vpcVpcId = Nothing + , _vpcState = Nothing + , _vpcCidrBlock = Nothing + , _vpcDhcpOptionsId = Nothing + , _vpcTags = mempty + , _vpcInstanceTenancy = Nothing + , _vpcIsDefault = Nothing + } + +-- | The CIDR block for the VPC. +vpcCidrBlock :: Lens' Vpc (Maybe 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 (Maybe Text) +vpcDhcpOptionsId = lens _vpcDhcpOptionsId (\s a -> s { _vpcDhcpOptionsId = a }) + +-- | The allowed tenancy of instances launched into the VPC. +vpcInstanceTenancy :: Lens' Vpc (Maybe Tenancy) +vpcInstanceTenancy = + lens _vpcInstanceTenancy (\s a -> s { _vpcInstanceTenancy = a }) + +-- | Indicates whether the VPC is the default VPC. +vpcIsDefault :: Lens' Vpc (Maybe Bool) +vpcIsDefault = lens _vpcIsDefault (\s a -> s { _vpcIsDefault = a }) + +-- | The current state of the VPC. +vpcState :: Lens' Vpc (Maybe VpcState) +vpcState = lens _vpcState (\s a -> s { _vpcState = a }) + +-- | Any tags assigned to the VPC. +vpcTags :: Lens' Vpc [Tag] +vpcTags = lens _vpcTags (\s a -> s { _vpcTags = a }) . _List + +-- | The ID of the VPC. +vpcVpcId :: Lens' Vpc (Maybe Text) +vpcVpcId = lens _vpcVpcId (\s a -> s { _vpcVpcId = a }) + +instance FromXML Vpc where + parseXML x = Vpc + <$> x .@? "cidrBlock" + <*> x .@? "dhcpOptionsId" + <*> x .@? "instanceTenancy" + <*> x .@? "isDefault" + <*> x .@? "state" + <*> x .@ "tagSet" + <*> x .@? "vpcId" + +instance ToQuery Vpc where + toQuery Vpc{..} = mconcat + [ "cidrBlock" =? _vpcCidrBlock + , "dhcpOptionsId" =? _vpcDhcpOptionsId + , "instanceTenancy" =? _vpcInstanceTenancy + , "isDefault" =? _vpcIsDefault + , "state" =? _vpcState + , "tagSet" =? _vpcTags + , "vpcId" =? _vpcVpcId + ] + +data InstanceStatus = InstanceStatus + { _isAvailabilityZone :: Maybe Text + , _isEvents :: List "item" InstanceStatusEvent + , _isInstanceId :: Maybe Text + , _isInstanceState :: Maybe InstanceState + , _isInstanceStatus :: Maybe InstanceStatusSummary + , _isSystemStatus :: Maybe InstanceStatusSummary + } deriving (Eq, Show) + +-- | 'InstanceStatus' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'isAvailabilityZone' @::@ 'Maybe' 'Text' +-- +-- * 'isEvents' @::@ ['InstanceStatusEvent'] +-- +-- * 'isInstanceId' @::@ 'Maybe' 'Text' +-- +-- * 'isInstanceState' @::@ 'Maybe' 'InstanceState' +-- +-- * 'isInstanceStatus' @::@ 'Maybe' 'InstanceStatusSummary' +-- +-- * 'isSystemStatus' @::@ 'Maybe' 'InstanceStatusSummary' +-- +instanceStatus :: InstanceStatus +instanceStatus = InstanceStatus + { _isInstanceId = Nothing + , _isAvailabilityZone = Nothing + , _isEvents = mempty + , _isInstanceState = Nothing + , _isSystemStatus = Nothing + , _isInstanceStatus = Nothing + } + +-- | The Availability Zone of the instance. +isAvailabilityZone :: Lens' InstanceStatus (Maybe Text) +isAvailabilityZone = + lens _isAvailabilityZone (\s a -> s { _isAvailabilityZone = a }) + +-- | Extra information regarding events associated with the instance. +isEvents :: Lens' InstanceStatus [InstanceStatusEvent] +isEvents = lens _isEvents (\s a -> s { _isEvents = a }) . _List + +-- | The ID of the instance. +isInstanceId :: Lens' InstanceStatus (Maybe Text) +isInstanceId = lens _isInstanceId (\s a -> s { _isInstanceId = 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 }) + +-- | 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 }) + +-- | 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 }) + +instance FromXML InstanceStatus where + parseXML x = InstanceStatus + <$> x .@? "availabilityZone" + <*> x .@ "eventsSet" + <*> x .@? "instanceId" + <*> x .@? "instanceState" + <*> x .@? "instanceStatus" + <*> x .@? "systemStatus" + +instance ToQuery InstanceStatus where + toQuery InstanceStatus{..} = mconcat + [ "availabilityZone" =? _isAvailabilityZone + , "eventsSet" =? _isEvents + , "instanceId" =? _isInstanceId + , "instanceState" =? _isInstanceState + , "instanceStatus" =? _isInstanceStatus + , "systemStatus" =? _isSystemStatus + ] + +data ArchitectureValues + = I386 -- ^ i386 + | X8664 -- ^ x86_64 + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable ArchitectureValues + +instance FromText ArchitectureValues where + parser = takeText >>= \case + "i386" -> pure I386 + "x86_64" -> pure X8664 + e -> fail $ + "Failure parsing ArchitectureValues from " ++ show e + +instance ToText ArchitectureValues where + toText = \case + I386 -> "i386" + X8664 -> "x86_64" + +instance ToByteString ArchitectureValues +instance ToHeader ArchitectureValues +instance ToQuery ArchitectureValues + +instance FromXML ArchitectureValues where + parseXML = parseXMLText "ArchitectureValues" + +data ReportInstanceReasonCodes + = InstanceStuckInState -- ^ instance-stuck-in-state + | NotAcceptingCredentials -- ^ not-accepting-credentials + | Other -- ^ other + | PasswordNotAvailable -- ^ password-not-available + | PerformanceEbsVolume -- ^ performance-ebs-volume + | PerformanceInstanceStore -- ^ performance-instance-store + | PerformanceNetwork -- ^ performance-network + | PerformanceOther -- ^ performance-other + | Unresponsive -- ^ unresponsive + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable ReportInstanceReasonCodes + +instance FromText ReportInstanceReasonCodes where + parser = takeText >>= \case + "instance-stuck-in-state" -> pure InstanceStuckInState + "not-accepting-credentials" -> pure NotAcceptingCredentials + "other" -> pure Other + "password-not-available" -> pure PasswordNotAvailable + "performance-ebs-volume" -> pure PerformanceEbsVolume + "performance-instance-store" -> pure PerformanceInstanceStore + "performance-network" -> pure PerformanceNetwork + "performance-other" -> pure PerformanceOther + "unresponsive" -> pure Unresponsive + e -> fail $ + "Failure parsing ReportInstanceReasonCodes from " ++ show e + +instance ToText ReportInstanceReasonCodes where + toText = \case + InstanceStuckInState -> "instance-stuck-in-state" + NotAcceptingCredentials -> "not-accepting-credentials" + Other -> "other" + PasswordNotAvailable -> "password-not-available" + PerformanceEbsVolume -> "performance-ebs-volume" + PerformanceInstanceStore -> "performance-instance-store" + PerformanceNetwork -> "performance-network" + PerformanceOther -> "performance-other" + Unresponsive -> "unresponsive" + +instance ToByteString ReportInstanceReasonCodes +instance ToHeader ReportInstanceReasonCodes +instance ToQuery ReportInstanceReasonCodes + +instance FromXML ReportInstanceReasonCodes where + parseXML = parseXMLText "ReportInstanceReasonCodes" + +data EbsBlockDevice = EbsBlockDevice + { _ebdDeleteOnTermination :: Maybe Bool + , _ebdEncrypted :: Maybe Bool + , _ebdIops :: Maybe Int + , _ebdSnapshotId :: Maybe Text + , _ebdVolumeSize :: Maybe Int + , _ebdVolumeType :: Maybe VolumeType + } deriving (Eq, Show) + +-- | 'EbsBlockDevice' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'ebdDeleteOnTermination' @::@ 'Maybe' 'Bool' +-- +-- * 'ebdEncrypted' @::@ 'Maybe' 'Bool' +-- +-- * 'ebdIops' @::@ 'Maybe' 'Int' +-- +-- * 'ebdSnapshotId' @::@ 'Maybe' 'Text' +-- +-- * 'ebdVolumeSize' @::@ 'Maybe' 'Int' +-- +-- * 'ebdVolumeType' @::@ 'Maybe' 'VolumeType' +-- +ebsBlockDevice :: EbsBlockDevice +ebsBlockDevice = EbsBlockDevice + { _ebdSnapshotId = Nothing + , _ebdVolumeSize = Nothing + , _ebdDeleteOnTermination = Nothing + , _ebdVolumeType = Nothing + , _ebdIops = Nothing + , _ebdEncrypted = Nothing + } + +-- | Indicates whether the Amazon EBS volume is deleted on instance termination. +ebdDeleteOnTermination :: Lens' EbsBlockDevice (Maybe Bool) +ebdDeleteOnTermination = + lens _ebdDeleteOnTermination (\s a -> s { _ebdDeleteOnTermination = a }) + +-- | Indicates whether the Amazon EBS volume is encrypted. Encrypted Amazon EBS +-- volumes may only be attached to instances that support Amazon EBS encryption. +ebdEncrypted :: Lens' EbsBlockDevice (Maybe Bool) +ebdEncrypted = lens _ebdEncrypted (\s a -> s { _ebdEncrypted = a }) + +-- | 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 to 4000 for Provisioned IOPS (SSD) volumes and 3 to +-- 3072 for General Purpose (SSD) volumes. +-- +-- Condition: This parameter is required for requests to create 'io1' volumes; it +-- is not used in requests to create 'standard' or 'gp2' volumes. +ebdIops :: Lens' EbsBlockDevice (Maybe Int) +ebdIops = lens _ebdIops (\s a -> s { _ebdIops = a }) + +-- | The ID of the snapshot. +ebdSnapshotId :: Lens' EbsBlockDevice (Maybe Text) +ebdSnapshotId = lens _ebdSnapshotId (\s a -> s { _ebdSnapshotId = a }) + +-- | The size of the volume, in GiB. +-- +-- Constraints: If the volume type is 'io1', the minimum size of the volume is 10 +-- GiB; otherwise, the minimum size is 1 GiB. The maximum volume size is 1024 +-- GiB. 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 volume type. 'gp2' for General Purpose (SSD) volumes, 'io1' for Provisioned +-- IOPS (SSD) volumes, and 'standard' for Magnetic volumes. +-- +-- Default: 'standard' +ebdVolumeType :: Lens' EbsBlockDevice (Maybe VolumeType) +ebdVolumeType = lens _ebdVolumeType (\s a -> s { _ebdVolumeType = a }) + +instance FromXML EbsBlockDevice where + parseXML x = EbsBlockDevice + <$> x .@? "deleteOnTermination" + <*> x .@? "encrypted" + <*> x .@? "iops" + <*> x .@? "snapshotId" + <*> x .@? "volumeSize" + <*> x .@? "volumeType" + +instance ToQuery EbsBlockDevice where + toQuery EbsBlockDevice{..} = mconcat + [ "deleteOnTermination" =? _ebdDeleteOnTermination + , "encrypted" =? _ebdEncrypted + , "iops" =? _ebdIops + , "snapshotId" =? _ebdSnapshotId + , "volumeSize" =? _ebdVolumeSize + , "volumeType" =? _ebdVolumeType + ] + +data AccountAttribute = AccountAttribute + { _aaAttributeName :: Maybe Text + , _aaAttributeValues :: List "item" AccountAttributeValue + } deriving (Eq, Show) + +-- | 'AccountAttribute' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'aaAttributeName' @::@ 'Maybe' 'Text' +-- +-- * 'aaAttributeValues' @::@ ['AccountAttributeValue'] +-- +accountAttribute :: AccountAttribute +accountAttribute = AccountAttribute + { _aaAttributeName = Nothing + , _aaAttributeValues = mempty + } + +-- | The name of the account attribute. +aaAttributeName :: Lens' AccountAttribute (Maybe Text) +aaAttributeName = lens _aaAttributeName (\s a -> s { _aaAttributeName = a }) + +-- | One or more values for the account attribute. +aaAttributeValues :: Lens' AccountAttribute [AccountAttributeValue] +aaAttributeValues = + lens _aaAttributeValues (\s a -> s { _aaAttributeValues = a }) + . _List + +instance FromXML AccountAttribute where + parseXML x = AccountAttribute + <$> x .@? "attributeName" + <*> x .@ "attributeValueSet" + +instance ToQuery AccountAttribute where + toQuery AccountAttribute{..} = mconcat + [ "attributeName" =? _aaAttributeName + , "attributeValueSet" =? _aaAttributeValues + ] + +data PriceSchedule = PriceSchedule + { _psActive :: Maybe Bool + , _psCurrencyCode :: Maybe CurrencyCodeValues + , _psPrice :: Maybe Double + , _psTerm :: Maybe Integer + } deriving (Eq, Show) + +-- | 'PriceSchedule' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'psActive' @::@ 'Maybe' 'Bool' +-- +-- * 'psCurrencyCode' @::@ 'Maybe' 'CurrencyCodeValues' +-- +-- * 'psPrice' @::@ 'Maybe' 'Double' +-- +-- * 'psTerm' @::@ 'Maybe' 'Integer' +-- +priceSchedule :: PriceSchedule +priceSchedule = PriceSchedule + { _psTerm = Nothing + , _psPrice = Nothing + , _psCurrencyCode = Nothing + , _psActive = Nothing + } + +-- | 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 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 fixed price for the term. +psPrice :: Lens' PriceSchedule (Maybe Double) +psPrice = lens _psPrice (\s a -> s { _psPrice = 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 }) + +instance FromXML PriceSchedule where + parseXML x = PriceSchedule + <$> x .@? "active" + <*> x .@? "currencyCode" + <*> x .@? "price" + <*> x .@? "term" + +instance ToQuery PriceSchedule where + toQuery PriceSchedule{..} = mconcat + [ "active" =? _psActive + , "currencyCode" =? _psCurrencyCode + , "price" =? _psPrice + , "term" =? _psTerm + ] + +data DeviceType + = Ebs -- ^ ebs + | InstanceStore -- ^ instance-store + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable DeviceType + +instance FromText DeviceType where + parser = takeText >>= \case + "ebs" -> pure Ebs + "instance-store" -> pure InstanceStore + e -> fail $ + "Failure parsing DeviceType from " ++ show e + +instance ToText DeviceType where + toText = \case + Ebs -> "ebs" + InstanceStore -> "instance-store" + +instance ToByteString DeviceType +instance ToHeader DeviceType +instance ToQuery DeviceType + +instance FromXML DeviceType where + parseXML = parseXMLText "DeviceType" + +data DomainType + = DTStandard -- ^ standard + | DTVpc -- ^ vpc + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable DomainType + +instance FromText DomainType where + parser = takeText >>= \case + "standard" -> pure DTStandard + "vpc" -> pure DTVpc + e -> fail $ + "Failure parsing DomainType from " ++ show e + +instance ToText DomainType where + toText = \case + DTStandard -> "standard" + DTVpc -> "vpc" + +instance ToByteString DomainType +instance ToHeader DomainType +instance ToQuery DomainType + +instance FromXML DomainType where + parseXML = parseXMLText "DomainType" + +data Region = Region + { _rEndpoint :: Maybe Text + , _rRegionName :: Maybe Text + } deriving (Eq, Ord, Show) + +-- | 'Region' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'rEndpoint' @::@ 'Maybe' 'Text' +-- +-- * 'rRegionName' @::@ 'Maybe' 'Text' +-- +region :: Region +region = Region + { _rRegionName = Nothing + , _rEndpoint = Nothing + } + +-- | The region service endpoint. +rEndpoint :: Lens' Region (Maybe Text) +rEndpoint = lens _rEndpoint (\s a -> s { _rEndpoint = a }) + +-- | The name of the region. +rRegionName :: Lens' Region (Maybe Text) +rRegionName = lens _rRegionName (\s a -> s { _rRegionName = a }) + +instance FromXML Region where + parseXML x = Region + <$> x .@? "regionEndpoint" + <*> x .@? "regionName" + +instance ToQuery Region where + toQuery Region{..} = mconcat + [ "regionEndpoint" =? _rEndpoint + , "regionName" =? _rRegionName + ] + +newtype PropagatingVgw = PropagatingVgw + { _pvGatewayId :: Maybe Text + } deriving (Eq, Ord, Show, Monoid) + +-- | 'PropagatingVgw' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'pvGatewayId' @::@ 'Maybe' 'Text' +-- +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 ToQuery PropagatingVgw where + toQuery PropagatingVgw{..} = mconcat + [ "gatewayId" =? _pvGatewayId + ] + +data OfferingTypeValues + = HeavyUtilization -- ^ Heavy Utilization + | LightUtilization -- ^ Light Utilization + | MediumUtilization -- ^ Medium Utilization + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable OfferingTypeValues + +instance FromText OfferingTypeValues where + parser = takeText >>= \case + "Heavy Utilization" -> pure HeavyUtilization + "Light Utilization" -> pure LightUtilization + "Medium Utilization" -> pure MediumUtilization + e -> fail $ + "Failure parsing OfferingTypeValues from " ++ show e + +instance ToText OfferingTypeValues where + toText = \case + HeavyUtilization -> "Heavy Utilization" + LightUtilization -> "Light Utilization" + MediumUtilization -> "Medium Utilization" + +instance ToByteString OfferingTypeValues +instance ToHeader OfferingTypeValues +instance ToQuery OfferingTypeValues + +instance FromXML OfferingTypeValues where + parseXML = parseXMLText "OfferingTypeValues" + +data VpnGateway = VpnGateway + { _vgAvailabilityZone :: Maybe Text + , _vgState :: Maybe VpnState + , _vgTags :: List "item" Tag + , _vgType :: Maybe GatewayType + , _vgVpcAttachments :: List "item" VpcAttachment + , _vgVpnGatewayId :: Maybe Text + } deriving (Eq, Show) + +-- | 'VpnGateway' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'vgAvailabilityZone' @::@ 'Maybe' 'Text' +-- +-- * 'vgState' @::@ 'Maybe' 'VpnState' +-- +-- * 'vgTags' @::@ ['Tag'] +-- +-- * 'vgType' @::@ 'Maybe' 'GatewayType' +-- +-- * 'vgVpcAttachments' @::@ ['VpcAttachment'] +-- +-- * 'vgVpnGatewayId' @::@ 'Maybe' 'Text' +-- +vpnGateway :: VpnGateway +vpnGateway = VpnGateway + { _vgVpnGatewayId = Nothing + , _vgState = Nothing + , _vgType = Nothing + , _vgAvailabilityZone = Nothing + , _vgVpcAttachments = mempty + , _vgTags = mempty + } + +-- | The Availability Zone where the virtual private gateway was created. +vgAvailabilityZone :: Lens' VpnGateway (Maybe Text) +vgAvailabilityZone = + lens _vgAvailabilityZone (\s a -> s { _vgAvailabilityZone = a }) + +-- | The current state of the virtual private gateway. +vgState :: Lens' VpnGateway (Maybe VpnState) +vgState = lens _vgState (\s a -> s { _vgState = a }) + +-- | Any tags assigned to the virtual private gateway. +vgTags :: Lens' VpnGateway [Tag] +vgTags = lens _vgTags (\s a -> s { _vgTags = a }) . _List + +-- | The type of VPN connection the virtual private gateway supports. +vgType :: Lens' VpnGateway (Maybe GatewayType) +vgType = lens _vgType (\s a -> s { _vgType = a }) + +-- | Any VPCs attached to the virtual private gateway. +vgVpcAttachments :: Lens' VpnGateway [VpcAttachment] +vgVpcAttachments = lens _vgVpcAttachments (\s a -> s { _vgVpcAttachments = a }) . _List + +-- | The ID of the virtual private gateway. +vgVpnGatewayId :: Lens' VpnGateway (Maybe Text) +vgVpnGatewayId = lens _vgVpnGatewayId (\s a -> s { _vgVpnGatewayId = a }) + +instance FromXML VpnGateway where + parseXML x = VpnGateway + <$> x .@? "availabilityZone" + <*> x .@? "state" + <*> x .@ "tagSet" + <*> x .@? "type" + <*> x .@ "attachments" + <*> x .@? "vpnGatewayId" + +instance ToQuery VpnGateway where + toQuery VpnGateway{..} = mconcat + [ "availabilityZone" =? _vgAvailabilityZone + , "state" =? _vgState + , "tagSet" =? _vgTags + , "type" =? _vgType + , "attachments" =? _vgVpcAttachments + , "vpnGatewayId" =? _vgVpnGatewayId + ] + +data Filter = Filter + { _fName :: Text + , _fValues :: List "item" Text + } deriving (Eq, Ord, Show) + +-- | 'Filter' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'fName' @::@ 'Text' +-- +-- * 'fValues' @::@ ['Text'] +-- +filter' :: Text -- ^ 'fName' + -> Filter +filter' p1 = Filter + { _fName = p1 + , _fValues = mempty + } + +-- | The name of the filter. +fName :: Lens' Filter Text +fName = lens _fName (\s a -> s { _fName = a }) + +-- | One or more filter values. +fValues :: Lens' Filter [Text] +fValues = lens _fValues (\s a -> s { _fValues = a }) . _List + +instance FromXML Filter where + parseXML x = Filter + <$> x .@ "Name" + <*> x .@ "Value" + +instance ToQuery Filter where + toQuery Filter{..} = mconcat + [ "Name" =? _fName + , "Value" =? _fValues + ] + +data VolumeType + = Gp2 -- ^ gp2 + | Io1 -- ^ io1 + | Standard -- ^ standard + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable VolumeType + +instance FromText VolumeType where + parser = takeText >>= \case + "gp2" -> pure Gp2 + "io1" -> pure Io1 + "standard" -> pure Standard + e -> fail $ + "Failure parsing VolumeType from " ++ show e + +instance ToText VolumeType where + toText = \case + Gp2 -> "gp2" + Io1 -> "io1" + Standard -> "standard" + +instance ToByteString VolumeType +instance ToHeader VolumeType +instance ToQuery VolumeType + +instance FromXML VolumeType where + parseXML = parseXMLText "VolumeType" + +data InstanceStateChange = InstanceStateChange + { _iscCurrentState :: Maybe InstanceState + , _iscInstanceId :: Maybe Text + , _iscPreviousState :: Maybe InstanceState + } deriving (Eq, Show) + +-- | 'InstanceStateChange' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'iscCurrentState' @::@ 'Maybe' 'InstanceState' +-- +-- * 'iscInstanceId' @::@ 'Maybe' 'Text' +-- +-- * 'iscPreviousState' @::@ 'Maybe' 'InstanceState' +-- +instanceStateChange :: InstanceStateChange +instanceStateChange = InstanceStateChange + { _iscInstanceId = Nothing + , _iscCurrentState = Nothing + , _iscPreviousState = Nothing + } + +-- | The current state of the instance. +iscCurrentState :: Lens' InstanceStateChange (Maybe InstanceState) +iscCurrentState = lens _iscCurrentState (\s a -> s { _iscCurrentState = a }) + +-- | The ID of the instance. +iscInstanceId :: Lens' InstanceStateChange (Maybe Text) +iscInstanceId = lens _iscInstanceId (\s a -> s { _iscInstanceId = 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 .@? "currentState" + <*> x .@? "instanceId" + <*> x .@? "previousState" + +instance ToQuery InstanceStateChange where + toQuery InstanceStateChange{..} = mconcat + [ "currentState" =? _iscCurrentState + , "instanceId" =? _iscInstanceId + , "previousState" =? _iscPreviousState + ] + +data NetworkAcl = NetworkAcl + { _naAssociations :: List "item" NetworkAclAssociation + , _naEntries :: List "item" NetworkAclEntry + , _naIsDefault :: Maybe Bool + , _naNetworkAclId :: Maybe Text + , _naTags :: List "item" Tag + , _naVpcId :: Maybe Text + } deriving (Eq, Show) + +-- | 'NetworkAcl' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'naAssociations' @::@ ['NetworkAclAssociation'] +-- +-- * 'naEntries' @::@ ['NetworkAclEntry'] +-- +-- * 'naIsDefault' @::@ 'Maybe' 'Bool' +-- +-- * 'naNetworkAclId' @::@ 'Maybe' 'Text' +-- +-- * 'naTags' @::@ ['Tag'] +-- +-- * 'naVpcId' @::@ 'Maybe' 'Text' +-- +networkAcl :: NetworkAcl +networkAcl = NetworkAcl + { _naNetworkAclId = Nothing + , _naVpcId = Nothing + , _naIsDefault = Nothing + , _naEntries = mempty + , _naAssociations = mempty + , _naTags = mempty + } + +-- | Any associations between the network ACL and one or more subnets +naAssociations :: Lens' NetworkAcl [NetworkAclAssociation] +naAssociations = lens _naAssociations (\s a -> s { _naAssociations = a }) . _List + +-- | One or more entries (rules) in the network ACL. +naEntries :: Lens' NetworkAcl [NetworkAclEntry] +naEntries = lens _naEntries (\s a -> s { _naEntries = a }) . _List + +-- | Indicates whether this is the default network ACL for the VPC. +naIsDefault :: Lens' NetworkAcl (Maybe Bool) +naIsDefault = lens _naIsDefault (\s a -> s { _naIsDefault = a }) + +-- | The ID of the network ACL. +naNetworkAclId :: Lens' NetworkAcl (Maybe Text) +naNetworkAclId = lens _naNetworkAclId (\s a -> s { _naNetworkAclId = a }) + +-- | Any tags assigned to the network ACL. +naTags :: Lens' NetworkAcl [Tag] +naTags = lens _naTags (\s a -> s { _naTags = a }) . _List + +-- | The ID of the VPC for the network ACL. +naVpcId :: Lens' NetworkAcl (Maybe Text) +naVpcId = lens _naVpcId (\s a -> s { _naVpcId = a }) + +instance FromXML NetworkAcl where + parseXML x = NetworkAcl + <$> x .@ "associationSet" + <*> x .@ "entrySet" + <*> x .@? "default" + <*> x .@? "networkAclId" + <*> x .@ "tagSet" + <*> x .@? "vpcId" + +instance ToQuery NetworkAcl where + toQuery NetworkAcl{..} = mconcat + [ "associationSet" =? _naAssociations + , "entrySet" =? _naEntries + , "default" =? _naIsDefault + , "networkAclId" =? _naNetworkAclId + , "tagSet" =? _naTags + , "vpcId" =? _naVpcId + ] + +data ImageState + = ISAvailable -- ^ available + | ISDeregistered -- ^ deregistered + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable ImageState + +instance FromText ImageState where + parser = takeText >>= \case + "available" -> pure ISAvailable + "deregistered" -> pure ISDeregistered + e -> fail $ + "Failure parsing ImageState from " ++ show e + +instance ToText ImageState where + toText = \case + ISAvailable -> "available" + ISDeregistered -> "deregistered" + +instance ToByteString ImageState +instance ToHeader ImageState +instance ToQuery ImageState + +instance FromXML ImageState where + parseXML = parseXMLText "ImageState" + +data GatewayType + = Ipsec1 -- ^ ipsec.1 + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable GatewayType + +instance FromText GatewayType where + parser = takeText >>= \case + "ipsec.1" -> pure Ipsec1 + e -> fail $ + "Failure parsing GatewayType from " ++ show e + +instance ToText GatewayType where + toText Ipsec1 = "ipsec.1" + +instance ToByteString GatewayType +instance ToHeader GatewayType +instance ToQuery GatewayType + +instance FromXML GatewayType where + parseXML = parseXMLText "GatewayType" + +data InstanceNetworkInterfaceAttachment = InstanceNetworkInterfaceAttachment + { _iniaAttachTime :: Maybe ISO8601 + , _iniaAttachmentId :: Maybe Text + , _iniaDeleteOnTermination :: Maybe Bool + , _iniaDeviceIndex :: Maybe Int + , _iniaStatus :: Maybe AttachmentStatus + } deriving (Eq, Show) + +-- | 'InstanceNetworkInterfaceAttachment' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'iniaAttachTime' @::@ 'Maybe' 'UTCTime' +-- +-- * 'iniaAttachmentId' @::@ 'Maybe' 'Text' +-- +-- * 'iniaDeleteOnTermination' @::@ 'Maybe' 'Bool' +-- +-- * 'iniaDeviceIndex' @::@ 'Maybe' 'Int' +-- +-- * 'iniaStatus' @::@ 'Maybe' 'AttachmentStatus' +-- +instanceNetworkInterfaceAttachment :: InstanceNetworkInterfaceAttachment +instanceNetworkInterfaceAttachment = InstanceNetworkInterfaceAttachment + { _iniaAttachmentId = Nothing + , _iniaDeviceIndex = Nothing + , _iniaStatus = Nothing + , _iniaAttachTime = Nothing + , _iniaDeleteOnTermination = Nothing + } + +-- | The time stamp when the attachment initiated. +iniaAttachTime :: Lens' InstanceNetworkInterfaceAttachment (Maybe UTCTime) +iniaAttachTime = lens _iniaAttachTime (\s a -> s { _iniaAttachTime = a }) . mapping _Time + +-- | The ID of the network interface attachment. +iniaAttachmentId :: Lens' InstanceNetworkInterfaceAttachment (Maybe Text) +iniaAttachmentId = lens _iniaAttachmentId (\s a -> s { _iniaAttachmentId = 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 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 }) + +-- | The attachment state. +iniaStatus :: Lens' InstanceNetworkInterfaceAttachment (Maybe AttachmentStatus) +iniaStatus = lens _iniaStatus (\s a -> s { _iniaStatus = a }) + +instance FromXML InstanceNetworkInterfaceAttachment where + parseXML x = InstanceNetworkInterfaceAttachment + <$> x .@? "attachTime" + <*> x .@? "attachmentId" + <*> x .@? "deleteOnTermination" + <*> x .@? "deviceIndex" + <*> x .@? "status" + +instance ToQuery InstanceNetworkInterfaceAttachment where + toQuery InstanceNetworkInterfaceAttachment{..} = mconcat + [ "attachTime" =? _iniaAttachTime + , "attachmentId" =? _iniaAttachmentId + , "deleteOnTermination" =? _iniaDeleteOnTermination + , "deviceIndex" =? _iniaDeviceIndex + , "status" =? _iniaStatus + ] + +newtype AttributeBooleanValue = AttributeBooleanValue + { _abvValue :: Maybe Bool + } deriving (Eq, Ord, Show) + +-- | 'AttributeBooleanValue' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'abvValue' @::@ 'Maybe' 'Bool' +-- +attributeBooleanValue :: AttributeBooleanValue +attributeBooleanValue = AttributeBooleanValue + { _abvValue = Nothing + } + +abvValue :: Lens' AttributeBooleanValue (Maybe Bool) +abvValue = lens _abvValue (\s a -> s { _abvValue = a }) + +instance FromXML AttributeBooleanValue where + parseXML x = AttributeBooleanValue + <$> x .@? "value" + +instance ToQuery AttributeBooleanValue where + toQuery AttributeBooleanValue{..} = mconcat + [ "value" =? _abvValue + ] + +data RecurringCharge = RecurringCharge + { _rcAmount :: Maybe Double + , _rcFrequency :: Maybe RecurringChargeFrequency + } deriving (Eq, Show) + +-- | 'RecurringCharge' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'rcAmount' @::@ 'Maybe' 'Double' +-- +-- * 'rcFrequency' @::@ 'Maybe' 'RecurringChargeFrequency' +-- +recurringCharge :: RecurringCharge +recurringCharge = RecurringCharge + { _rcFrequency = Nothing + , _rcAmount = 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 ToQuery RecurringCharge where + toQuery RecurringCharge{..} = mconcat + [ "amount" =? _rcAmount + , "frequency" =? _rcFrequency + ] + +data NewDhcpConfiguration = NewDhcpConfiguration + { _ndcKey :: Maybe Text + , _ndcValues :: List "item" Text + } deriving (Eq, Ord, Show) + +-- | 'NewDhcpConfiguration' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'ndcKey' @::@ 'Maybe' 'Text' +-- +-- * 'ndcValues' @::@ ['Text'] +-- +newDhcpConfiguration :: NewDhcpConfiguration +newDhcpConfiguration = NewDhcpConfiguration + { _ndcKey = Nothing + , _ndcValues = mempty + } + +ndcKey :: Lens' NewDhcpConfiguration (Maybe Text) +ndcKey = lens _ndcKey (\s a -> s { _ndcKey = a }) + +ndcValues :: Lens' NewDhcpConfiguration [Text] +ndcValues = lens _ndcValues (\s a -> s { _ndcValues = a }) . _List + +instance FromXML NewDhcpConfiguration where + parseXML x = NewDhcpConfiguration + <$> x .@? "key" + <*> x .@ "Value" + +instance ToQuery NewDhcpConfiguration where + toQuery NewDhcpConfiguration{..} = mconcat + [ "key" =? _ndcKey + , "Value" =? _ndcValues + ] + +data StateReason = StateReason + { _srCode :: Maybe Text + , _srMessage :: Maybe Text + } deriving (Eq, Ord, Show) + +-- | 'StateReason' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'srCode' @::@ 'Maybe' 'Text' +-- +-- * 'srMessage' @::@ 'Maybe' 'Text' +-- +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.SpotInstanceTermination': A Spot Instance was terminated due to an +-- increase in the market price. +-- +-- 'Server.InternalError': An internal error occurred during instance launch, +-- resulting in termination. +-- +-- 'Server.InsufficientInstanceCapacity': There was insufficient instance +-- capacity to satisfy the launch request. +-- +-- '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.UserInitiatedShutdown': The instance was shut down using the Amazon +-- EC2 API. +-- +-- 'Client.VolumeLimitExceeded': The volume limit was exceeded. +-- +-- '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 ToQuery StateReason where + toQuery StateReason{..} = mconcat + [ "code" =? _srCode + , "message" =? _srMessage + ] + +data MonitoringState + = MSDisabled -- ^ disabled + | MSEnabled -- ^ enabled + | MSPending -- ^ pending + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable MonitoringState + +instance FromText MonitoringState where + parser = takeText >>= \case + "disabled" -> pure MSDisabled + "enabled" -> pure MSEnabled + "pending" -> pure MSPending + e -> fail $ + "Failure parsing MonitoringState from " ++ show e + +instance ToText MonitoringState where + toText = \case + MSDisabled -> "disabled" + MSEnabled -> "enabled" + MSPending -> "pending" + +instance ToByteString MonitoringState +instance ToHeader MonitoringState +instance ToQuery MonitoringState + +instance FromXML MonitoringState where + parseXML = parseXMLText "MonitoringState" + +newtype ReservedInstancesId = ReservedInstancesId + { _riiReservedInstancesId :: Maybe Text + } deriving (Eq, Ord, Show, Monoid) + +-- | 'ReservedInstancesId' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'riiReservedInstancesId' @::@ 'Maybe' 'Text' +-- +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 ToQuery ReservedInstancesId where + toQuery ReservedInstancesId{..} = mconcat + [ "reservedInstancesId" =? _riiReservedInstancesId + ] + +data StatusName + = Reachability -- ^ reachability + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable StatusName + +instance FromText StatusName where + parser = takeText >>= \case + "reachability" -> pure Reachability + e -> fail $ + "Failure parsing StatusName from " ++ show e + +instance ToText StatusName where + toText Reachability = "reachability" + +instance ToByteString StatusName +instance ToHeader StatusName +instance ToQuery StatusName + +instance FromXML StatusName where + parseXML = parseXMLText "StatusName" + +data InternetGateway = InternetGateway + { _igAttachments :: List "item" InternetGatewayAttachment + , _igInternetGatewayId :: Text + , _igTags :: List "item" Tag + } deriving (Eq, Show) + +-- | 'InternetGateway' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'igAttachments' @::@ ['InternetGatewayAttachment'] +-- +-- * 'igInternetGatewayId' @::@ 'Text' +-- +-- * 'igTags' @::@ ['Tag'] +-- +internetGateway :: Text -- ^ 'igInternetGatewayId' + -> InternetGateway +internetGateway p1 = InternetGateway + { _igInternetGatewayId = p1 + , _igAttachments = mempty + , _igTags = mempty + } + +-- | Any VPCs attached to the Internet gateway. +igAttachments :: Lens' InternetGateway [InternetGatewayAttachment] +igAttachments = lens _igAttachments (\s a -> s { _igAttachments = a }) . _List + +-- | The ID of the Internet gateway. +igInternetGatewayId :: Lens' InternetGateway Text +igInternetGatewayId = + lens _igInternetGatewayId (\s a -> s { _igInternetGatewayId = a }) + +-- | Any tags assigned to the Internet gateway. +igTags :: Lens' InternetGateway [Tag] +igTags = lens _igTags (\s a -> s { _igTags = a }) . _List + +instance FromXML InternetGateway where + parseXML x = InternetGateway + <$> x .@ "attachmentSet" + <*> x .@ "internetGatewayId" + <*> x .@ "tagSet" + +instance ToQuery InternetGateway where + toQuery InternetGateway{..} = mconcat + [ "attachmentSet" =? _igAttachments + , "internetGatewayId" =? _igInternetGatewayId + , "tagSet" =? _igTags + ] + +data VolumeStatusName + = IoEnabled -- ^ io-enabled + | IoPerformance -- ^ io-performance + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable VolumeStatusName + +instance FromText VolumeStatusName where + parser = takeText >>= \case + "io-enabled" -> pure IoEnabled + "io-performance" -> pure IoPerformance + e -> fail $ + "Failure parsing VolumeStatusName from " ++ show e + +instance ToText VolumeStatusName where + toText = \case + IoEnabled -> "io-enabled" + IoPerformance -> "io-performance" + +instance ToByteString VolumeStatusName +instance ToHeader VolumeStatusName +instance ToQuery VolumeStatusName + +instance FromXML VolumeStatusName where + parseXML = parseXMLText "VolumeStatusName" + +data VolumeAttributeName + = AutoEnableIO -- ^ autoEnableIO + | ProductCodes -- ^ productCodes + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable VolumeAttributeName + +instance FromText VolumeAttributeName where + parser = takeText >>= \case + "autoEnableIO" -> pure AutoEnableIO + "productCodes" -> pure ProductCodes + e -> fail $ + "Failure parsing VolumeAttributeName from " ++ show e + +instance ToText VolumeAttributeName where + toText = \case + AutoEnableIO -> "autoEnableIO" + ProductCodes -> "productCodes" + +instance ToByteString VolumeAttributeName +instance ToHeader VolumeAttributeName +instance ToQuery VolumeAttributeName + +instance FromXML VolumeAttributeName where + parseXML = parseXMLText "VolumeAttributeName" + +data ImportInstanceTaskDetails = ImportInstanceTaskDetails + { _iitdDescription :: Maybe Text + , _iitdInstanceId :: Maybe Text + , _iitdPlatform :: Maybe PlatformValues + , _iitdVolumes :: List "item" ImportInstanceVolumeDetailItem + } deriving (Eq, Show) + +-- | 'ImportInstanceTaskDetails' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'iitdDescription' @::@ 'Maybe' 'Text' +-- +-- * 'iitdInstanceId' @::@ 'Maybe' 'Text' +-- +-- * 'iitdPlatform' @::@ 'Maybe' 'PlatformValues' +-- +-- * 'iitdVolumes' @::@ ['ImportInstanceVolumeDetailItem'] +-- +importInstanceTaskDetails :: ImportInstanceTaskDetails +importInstanceTaskDetails = ImportInstanceTaskDetails + { _iitdVolumes = mempty + , _iitdInstanceId = Nothing + , _iitdPlatform = Nothing + , _iitdDescription = Nothing + } + +iitdDescription :: Lens' ImportInstanceTaskDetails (Maybe Text) +iitdDescription = lens _iitdDescription (\s a -> s { _iitdDescription = a }) + +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 }) + +iitdVolumes :: Lens' ImportInstanceTaskDetails [ImportInstanceVolumeDetailItem] +iitdVolumes = lens _iitdVolumes (\s a -> s { _iitdVolumes = a }) . _List + +instance FromXML ImportInstanceTaskDetails where + parseXML x = ImportInstanceTaskDetails + <$> x .@? "description" + <*> x .@? "instanceId" + <*> x .@? "platform" + <*> x .@ "volumes" + +instance ToQuery ImportInstanceTaskDetails where + toQuery ImportInstanceTaskDetails{..} = mconcat + [ "description" =? _iitdDescription + , "instanceId" =? _iitdInstanceId + , "platform" =? _iitdPlatform + , "volumes" =? _iitdVolumes + ] + +data PlacementGroup = PlacementGroup + { _pgGroupName :: Maybe Text + , _pgState :: Maybe PlacementGroupState + , _pgStrategy :: Maybe PlacementStrategy + } deriving (Eq, Show) + +-- | 'PlacementGroup' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'pgGroupName' @::@ 'Maybe' 'Text' +-- +-- * 'pgState' @::@ 'Maybe' 'PlacementGroupState' +-- +-- * 'pgStrategy' @::@ 'Maybe' 'PlacementStrategy' +-- +placementGroup :: PlacementGroup +placementGroup = PlacementGroup + { _pgGroupName = Nothing + , _pgStrategy = Nothing + , _pgState = Nothing + } + +-- | The name of the placement group. +pgGroupName :: Lens' PlacementGroup (Maybe Text) +pgGroupName = lens _pgGroupName (\s a -> s { _pgGroupName = a }) + +-- | 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 }) + +instance FromXML PlacementGroup where + parseXML x = PlacementGroup + <$> x .@? "groupName" + <*> x .@? "state" + <*> x .@? "strategy" + +instance ToQuery PlacementGroup where + toQuery PlacementGroup{..} = mconcat + [ "groupName" =? _pgGroupName + , "state" =? _pgState + , "strategy" =? _pgStrategy + ] + +data ProductCode = ProductCode + { _pcProductCodeId :: Maybe Text + , _pcProductCodeType :: Maybe ProductCodeValues + } deriving (Eq, Show) + +-- | 'ProductCode' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'pcProductCodeId' @::@ 'Maybe' 'Text' +-- +-- * 'pcProductCodeType' @::@ 'Maybe' 'ProductCodeValues' +-- +productCode :: ProductCode +productCode = ProductCode + { _pcProductCodeId = Nothing + , _pcProductCodeType = Nothing + } + +-- | The product code. +pcProductCodeId :: Lens' ProductCode (Maybe Text) +pcProductCodeId = lens _pcProductCodeId (\s a -> s { _pcProductCodeId = a }) + +-- | The type of product code. +pcProductCodeType :: Lens' ProductCode (Maybe ProductCodeValues) +pcProductCodeType = + lens _pcProductCodeType (\s a -> s { _pcProductCodeType = a }) + +instance FromXML ProductCode where + parseXML x = ProductCode + <$> x .@? "productCode" + <*> x .@? "type" + +instance ToQuery ProductCode where + toQuery ProductCode{..} = mconcat + [ "productCode" =? _pcProductCodeId + , "type" =? _pcProductCodeType + ] + +data ListingStatus + = ListingStatusActive -- ^ active + | ListingStatusCancelled -- ^ cancelled + | ListingStatusClosed -- ^ closed + | ListingStatusPending -- ^ pending + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable ListingStatus + +instance FromText ListingStatus where + parser = takeText >>= \case + "active" -> pure ListingStatusActive + "cancelled" -> pure ListingStatusCancelled + "closed" -> pure ListingStatusClosed + "pending" -> pure ListingStatusPending + e -> fail $ + "Failure parsing ListingStatus from " ++ show e + +instance ToText ListingStatus where + toText = \case + ListingStatusActive -> "active" + ListingStatusCancelled -> "cancelled" + ListingStatusClosed -> "closed" + ListingStatusPending -> "pending" + +instance ToByteString ListingStatus +instance ToHeader ListingStatus +instance ToQuery ListingStatus + +instance FromXML ListingStatus where + parseXML = parseXMLText "ListingStatus" + +newtype IpRange = IpRange + { _irCidrIp :: Text + } deriving (Eq, Ord, Show, Monoid, IsString) + +-- | 'IpRange' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'irCidrIp' @::@ 'Text' +-- +ipRange :: Text -- ^ 'irCidrIp' + -> IpRange +ipRange p1 = IpRange + { _irCidrIp = p1 + } + +-- | The CIDR range. You can either specify a CIDR range or a source security +-- group, not both. +irCidrIp :: Lens' IpRange Text +irCidrIp = lens _irCidrIp (\s a -> s { _irCidrIp = a }) + +instance FromXML IpRange where + parseXML x = IpRange + <$> x .@ "cidrIp" + +instance ToQuery IpRange where + toQuery IpRange{..} = mconcat + [ "cidrIp" =? _irCidrIp + ] + +data VolumeStatusInfoStatus + = VSISImpaired -- ^ impaired + | VSISInsufficientData -- ^ insufficient-data + | VSISOk -- ^ ok + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable VolumeStatusInfoStatus + +instance FromText VolumeStatusInfoStatus where + parser = takeText >>= \case + "impaired" -> pure VSISImpaired + "insufficient-data" -> pure VSISInsufficientData + "ok" -> pure VSISOk + e -> fail $ + "Failure parsing VolumeStatusInfoStatus from " ++ show e + +instance ToText VolumeStatusInfoStatus where + toText = \case + VSISImpaired -> "impaired" + VSISInsufficientData -> "insufficient-data" + VSISOk -> "ok" + +instance ToByteString VolumeStatusInfoStatus +instance ToHeader VolumeStatusInfoStatus +instance ToQuery VolumeStatusInfoStatus + +instance FromXML VolumeStatusInfoStatus where + parseXML = parseXMLText "VolumeStatusInfoStatus" + +newtype AccountAttributeValue = AccountAttributeValue + { _aavAttributeValue :: Maybe Text + } deriving (Eq, Ord, Show, Monoid) + +-- | 'AccountAttributeValue' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'aavAttributeValue' @::@ 'Maybe' 'Text' +-- +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 ToQuery AccountAttributeValue where + toQuery AccountAttributeValue{..} = mconcat + [ "attributeValue" =? _aavAttributeValue + ] + +data RIProductDescription + = RIPDLinuxUNIX -- ^ Linux/UNIX + | RIPDLinuxUNIXAmazonVPC -- ^ Linux/UNIX (Amazon VPC) + | RIPDWindows -- ^ Windows + | RIPDWindowsAmazonVPC -- ^ Windows (Amazon VPC) + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable RIProductDescription + +instance FromText RIProductDescription where + parser = takeText >>= \case + "Linux/UNIX" -> pure RIPDLinuxUNIX + "Linux/UNIX (Amazon VPC)" -> pure RIPDLinuxUNIXAmazonVPC + "Windows" -> pure RIPDWindows + "Windows (Amazon VPC)" -> pure RIPDWindowsAmazonVPC + e -> fail $ + "Failure parsing RIProductDescription from " ++ show e + +instance ToText RIProductDescription where + toText = \case + RIPDLinuxUNIX -> "Linux/UNIX" + RIPDLinuxUNIXAmazonVPC -> "Linux/UNIX (Amazon VPC)" + RIPDWindows -> "Windows" + RIPDWindowsAmazonVPC -> "Windows (Amazon VPC)" + +instance ToByteString RIProductDescription +instance ToHeader RIProductDescription +instance ToQuery RIProductDescription + +instance FromXML RIProductDescription where + parseXML = parseXMLText "RIProductDescription" + +data ReservedInstancesOffering = ReservedInstancesOffering + { _rioAvailabilityZone :: Maybe Text + , _rioCurrencyCode :: Maybe CurrencyCodeValues + , _rioDuration :: Maybe Integer + , _rioFixedPrice :: Maybe Double + , _rioInstanceTenancy :: Maybe Tenancy + , _rioInstanceType :: Maybe InstanceType + , _rioMarketplace :: Maybe Bool + , _rioOfferingType :: Maybe OfferingTypeValues + , _rioPricingDetails :: List "item" PricingDetail + , _rioProductDescription :: Maybe RIProductDescription + , _rioRecurringCharges :: List "item" RecurringCharge + , _rioReservedInstancesOfferingId :: Maybe Text + , _rioUsagePrice :: Maybe Double + } deriving (Eq, Show) + +-- | 'ReservedInstancesOffering' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'rioAvailabilityZone' @::@ 'Maybe' 'Text' +-- +-- * 'rioCurrencyCode' @::@ 'Maybe' 'CurrencyCodeValues' +-- +-- * 'rioDuration' @::@ 'Maybe' 'Integer' +-- +-- * 'rioFixedPrice' @::@ 'Maybe' 'Double' +-- +-- * 'rioInstanceTenancy' @::@ 'Maybe' 'Tenancy' +-- +-- * 'rioInstanceType' @::@ 'Maybe' 'InstanceType' +-- +-- * 'rioMarketplace' @::@ 'Maybe' 'Bool' +-- +-- * 'rioOfferingType' @::@ 'Maybe' 'OfferingTypeValues' +-- +-- * 'rioPricingDetails' @::@ ['PricingDetail'] +-- +-- * 'rioProductDescription' @::@ 'Maybe' 'RIProductDescription' +-- +-- * 'rioRecurringCharges' @::@ ['RecurringCharge'] +-- +-- * 'rioReservedInstancesOfferingId' @::@ 'Maybe' 'Text' +-- +-- * 'rioUsagePrice' @::@ 'Maybe' 'Double' +-- +reservedInstancesOffering :: ReservedInstancesOffering +reservedInstancesOffering = ReservedInstancesOffering + { _rioReservedInstancesOfferingId = Nothing + , _rioInstanceType = Nothing + , _rioAvailabilityZone = Nothing + , _rioDuration = Nothing + , _rioUsagePrice = Nothing + , _rioFixedPrice = Nothing + , _rioProductDescription = Nothing + , _rioInstanceTenancy = Nothing + , _rioCurrencyCode = Nothing + , _rioOfferingType = Nothing + , _rioRecurringCharges = mempty + , _rioMarketplace = Nothing + , _rioPricingDetails = mempty + } + +-- | 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 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 duration of the Reserved Instance, in seconds. +rioDuration :: Lens' ReservedInstancesOffering (Maybe Integer) +rioDuration = lens _rioDuration (\s a -> s { _rioDuration = 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 reserved instance. +rioInstanceTenancy :: Lens' ReservedInstancesOffering (Maybe Tenancy) +rioInstanceTenancy = + lens _rioInstanceTenancy (\s a -> s { _rioInstanceTenancy = 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 }) + +-- | 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 Reserved Instance offering type. +rioOfferingType :: Lens' ReservedInstancesOffering (Maybe OfferingTypeValues) +rioOfferingType = lens _rioOfferingType (\s a -> s { _rioOfferingType = a }) + +-- | The pricing details of the Reserved Instance offering. +rioPricingDetails :: Lens' ReservedInstancesOffering [PricingDetail] +rioPricingDetails = + lens _rioPricingDetails (\s a -> s { _rioPricingDetails = a }) + . _List + +-- | The Reserved Instance description. +rioProductDescription :: Lens' ReservedInstancesOffering (Maybe RIProductDescription) +rioProductDescription = + lens _rioProductDescription (\s a -> s { _rioProductDescription = a }) + +-- | The recurring charge tag assigned to the resource. +rioRecurringCharges :: Lens' ReservedInstancesOffering [RecurringCharge] +rioRecurringCharges = + lens _rioRecurringCharges (\s a -> s { _rioRecurringCharges = a }) + . _List + +-- | The ID of the Reserved Instance offering. +rioReservedInstancesOfferingId :: Lens' ReservedInstancesOffering (Maybe Text) +rioReservedInstancesOfferingId = + lens _rioReservedInstancesOfferingId + (\s a -> s { _rioReservedInstancesOfferingId = a }) + +-- | The usage price of the Reserved Instance, per hour. +rioUsagePrice :: Lens' ReservedInstancesOffering (Maybe Double) +rioUsagePrice = lens _rioUsagePrice (\s a -> s { _rioUsagePrice = a }) + +instance FromXML ReservedInstancesOffering where + parseXML x = ReservedInstancesOffering + <$> x .@? "availabilityZone" + <*> x .@? "currencyCode" + <*> x .@? "duration" + <*> x .@? "fixedPrice" + <*> x .@? "instanceTenancy" + <*> x .@? "instanceType" + <*> x .@? "marketplace" + <*> x .@? "offeringType" + <*> x .@ "pricingDetailsSet" + <*> x .@? "productDescription" + <*> x .@ "recurringCharges" + <*> x .@? "reservedInstancesOfferingId" + <*> x .@? "usagePrice" + +instance ToQuery ReservedInstancesOffering where + toQuery ReservedInstancesOffering{..} = mconcat + [ "availabilityZone" =? _rioAvailabilityZone + , "currencyCode" =? _rioCurrencyCode + , "duration" =? _rioDuration + , "fixedPrice" =? _rioFixedPrice + , "instanceTenancy" =? _rioInstanceTenancy + , "instanceType" =? _rioInstanceType + , "marketplace" =? _rioMarketplace + , "offeringType" =? _rioOfferingType + , "pricingDetailsSet" =? _rioPricingDetails + , "productDescription" =? _rioProductDescription + , "recurringCharges" =? _rioRecurringCharges + , "reservedInstancesOfferingId" =? _rioReservedInstancesOfferingId + , "usagePrice" =? _rioUsagePrice + ] + +data ReservedInstances = ReservedInstances + { _ri1AvailabilityZone :: Maybe Text + , _ri1CurrencyCode :: Maybe CurrencyCodeValues + , _ri1Duration :: Maybe Integer + , _ri1End :: Maybe ISO8601 + , _ri1FixedPrice :: Maybe Double + , _ri1InstanceCount :: Maybe Int + , _ri1InstanceTenancy :: Maybe Tenancy + , _ri1InstanceType :: Maybe InstanceType + , _ri1OfferingType :: Maybe OfferingTypeValues + , _ri1ProductDescription :: Maybe RIProductDescription + , _ri1RecurringCharges :: List "item" RecurringCharge + , _ri1ReservedInstancesId :: Maybe Text + , _ri1Start :: Maybe ISO8601 + , _ri1State :: Maybe ReservedInstanceState + , _ri1Tags :: List "item" Tag + , _ri1UsagePrice :: Maybe Double + } deriving (Eq, Show) + +-- | 'ReservedInstances' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'ri1AvailabilityZone' @::@ 'Maybe' 'Text' +-- +-- * 'ri1CurrencyCode' @::@ 'Maybe' 'CurrencyCodeValues' +-- +-- * 'ri1Duration' @::@ 'Maybe' 'Integer' +-- +-- * 'ri1End' @::@ 'Maybe' 'UTCTime' +-- +-- * 'ri1FixedPrice' @::@ 'Maybe' 'Double' +-- +-- * 'ri1InstanceCount' @::@ 'Maybe' 'Int' +-- +-- * 'ri1InstanceTenancy' @::@ 'Maybe' 'Tenancy' +-- +-- * 'ri1InstanceType' @::@ 'Maybe' 'InstanceType' +-- +-- * 'ri1OfferingType' @::@ 'Maybe' 'OfferingTypeValues' +-- +-- * 'ri1ProductDescription' @::@ 'Maybe' 'RIProductDescription' +-- +-- * 'ri1RecurringCharges' @::@ ['RecurringCharge'] +-- +-- * 'ri1ReservedInstancesId' @::@ 'Maybe' 'Text' +-- +-- * 'ri1Start' @::@ 'Maybe' 'UTCTime' +-- +-- * 'ri1State' @::@ 'Maybe' 'ReservedInstanceState' +-- +-- * 'ri1Tags' @::@ ['Tag'] +-- +-- * 'ri1UsagePrice' @::@ 'Maybe' 'Double' +-- +reservedInstances :: ReservedInstances +reservedInstances = ReservedInstances + { _ri1ReservedInstancesId = Nothing + , _ri1InstanceType = Nothing + , _ri1AvailabilityZone = Nothing + , _ri1Start = Nothing + , _ri1End = Nothing + , _ri1Duration = Nothing + , _ri1UsagePrice = Nothing + , _ri1FixedPrice = Nothing + , _ri1InstanceCount = Nothing + , _ri1ProductDescription = Nothing + , _ri1State = Nothing + , _ri1Tags = mempty + , _ri1InstanceTenancy = Nothing + , _ri1CurrencyCode = Nothing + , _ri1OfferingType = Nothing + , _ri1RecurringCharges = mempty + } + +-- | The Availability Zone in which the Reserved Instance can be used. +ri1AvailabilityZone :: Lens' ReservedInstances (Maybe Text) +ri1AvailabilityZone = + lens _ri1AvailabilityZone (\s a -> s { _ri1AvailabilityZone = 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'. +ri1CurrencyCode :: Lens' ReservedInstances (Maybe CurrencyCodeValues) +ri1CurrencyCode = lens _ri1CurrencyCode (\s a -> s { _ri1CurrencyCode = a }) + +-- | The duration of the Reserved Instance, in seconds. +ri1Duration :: Lens' ReservedInstances (Maybe Integer) +ri1Duration = lens _ri1Duration (\s a -> s { _ri1Duration = a }) + +-- | The time when the Reserved Instance expires. +ri1End :: Lens' ReservedInstances (Maybe UTCTime) +ri1End = lens _ri1End (\s a -> s { _ri1End = a }) . mapping _Time + +-- | The purchase price of the Reserved Instance. +ri1FixedPrice :: Lens' ReservedInstances (Maybe Double) +ri1FixedPrice = lens _ri1FixedPrice (\s a -> s { _ri1FixedPrice = a }) + +-- | The number of Reserved Instances purchased. +ri1InstanceCount :: Lens' ReservedInstances (Maybe Int) +ri1InstanceCount = lens _ri1InstanceCount (\s a -> s { _ri1InstanceCount = a }) + +-- | The tenancy of the reserved instance. +ri1InstanceTenancy :: Lens' ReservedInstances (Maybe Tenancy) +ri1InstanceTenancy = + lens _ri1InstanceTenancy (\s a -> s { _ri1InstanceTenancy = a }) + +-- | The instance type on which the Reserved Instance can be used. +ri1InstanceType :: Lens' ReservedInstances (Maybe InstanceType) +ri1InstanceType = lens _ri1InstanceType (\s a -> s { _ri1InstanceType = a }) + +-- | The Reserved Instance offering type. +ri1OfferingType :: Lens' ReservedInstances (Maybe OfferingTypeValues) +ri1OfferingType = lens _ri1OfferingType (\s a -> s { _ri1OfferingType = a }) + +-- | The Reserved Instance description. +ri1ProductDescription :: Lens' ReservedInstances (Maybe RIProductDescription) +ri1ProductDescription = + lens _ri1ProductDescription (\s a -> s { _ri1ProductDescription = a }) + +-- | The recurring charge tag assigned to the resource. +ri1RecurringCharges :: Lens' ReservedInstances [RecurringCharge] +ri1RecurringCharges = + lens _ri1RecurringCharges (\s a -> s { _ri1RecurringCharges = a }) + . _List + +-- | The ID of the Reserved Instance. +ri1ReservedInstancesId :: Lens' ReservedInstances (Maybe Text) +ri1ReservedInstancesId = + lens _ri1ReservedInstancesId (\s a -> s { _ri1ReservedInstancesId = a }) + +-- | The date and time the Reserved Instance started. +ri1Start :: Lens' ReservedInstances (Maybe UTCTime) +ri1Start = lens _ri1Start (\s a -> s { _ri1Start = a }) . mapping _Time + +-- | The state of the Reserved Instance purchase. +ri1State :: Lens' ReservedInstances (Maybe ReservedInstanceState) +ri1State = lens _ri1State (\s a -> s { _ri1State = a }) + +-- | Any tags assigned to the resource. +ri1Tags :: Lens' ReservedInstances [Tag] +ri1Tags = lens _ri1Tags (\s a -> s { _ri1Tags = a }) . _List + +-- | The usage price of the Reserved Instance, per hour. +ri1UsagePrice :: Lens' ReservedInstances (Maybe Double) +ri1UsagePrice = lens _ri1UsagePrice (\s a -> s { _ri1UsagePrice = a }) + +instance FromXML ReservedInstances where + parseXML x = ReservedInstances + <$> x .@? "availabilityZone" + <*> x .@? "currencyCode" + <*> x .@? "duration" + <*> x .@? "end" + <*> x .@? "fixedPrice" + <*> x .@? "instanceCount" + <*> x .@? "instanceTenancy" + <*> x .@? "instanceType" + <*> x .@? "offeringType" + <*> x .@? "productDescription" + <*> x .@ "recurringCharges" + <*> x .@? "reservedInstancesId" + <*> x .@? "start" + <*> x .@? "state" + <*> x .@ "tagSet" + <*> x .@? "usagePrice" + +instance ToQuery ReservedInstances where + toQuery ReservedInstances{..} = mconcat + [ "availabilityZone" =? _ri1AvailabilityZone + , "currencyCode" =? _ri1CurrencyCode + , "duration" =? _ri1Duration + , "end" =? _ri1End + , "fixedPrice" =? _ri1FixedPrice + , "instanceCount" =? _ri1InstanceCount + , "instanceTenancy" =? _ri1InstanceTenancy + , "instanceType" =? _ri1InstanceType + , "offeringType" =? _ri1OfferingType + , "productDescription" =? _ri1ProductDescription + , "recurringCharges" =? _ri1RecurringCharges + , "reservedInstancesId" =? _ri1ReservedInstancesId + , "start" =? _ri1Start + , "state" =? _ri1State + , "tagSet" =? _ri1Tags + , "usagePrice" =? _ri1UsagePrice + ] + +data DatafeedSubscriptionState + = DSSActive -- ^ Active + | DSSInactive -- ^ Inactive + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable DatafeedSubscriptionState + +instance FromText DatafeedSubscriptionState where + parser = takeText >>= \case + "Active" -> pure DSSActive + "Inactive" -> pure DSSInactive + e -> fail $ + "Failure parsing DatafeedSubscriptionState from " ++ show e + +instance ToText DatafeedSubscriptionState where + toText = \case + DSSActive -> "Active" + DSSInactive -> "Inactive" + +instance ToByteString DatafeedSubscriptionState +instance ToHeader DatafeedSubscriptionState +instance ToQuery DatafeedSubscriptionState + +instance FromXML DatafeedSubscriptionState where + parseXML = parseXMLText "DatafeedSubscriptionState" + +data ExportTaskState + = ETSActive -- ^ active + | ETSCancelled -- ^ cancelled + | ETSCancelling -- ^ cancelling + | ETSCompleted -- ^ completed + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable ExportTaskState + +instance FromText ExportTaskState where + parser = takeText >>= \case + "active" -> pure ETSActive + "cancelled" -> pure ETSCancelled + "cancelling" -> pure ETSCancelling + "completed" -> pure ETSCompleted + e -> fail $ + "Failure parsing ExportTaskState from " ++ show e + +instance ToText ExportTaskState where + toText = \case + ETSActive -> "active" + ETSCancelled -> "cancelled" + ETSCancelling -> "cancelling" + ETSCompleted -> "completed" + +instance ToByteString ExportTaskState +instance ToHeader ExportTaskState +instance ToQuery ExportTaskState + +instance FromXML ExportTaskState where + parseXML = parseXMLText "ExportTaskState" + +data ProductCodeValues + = Devpay -- ^ devpay + | Marketplace -- ^ marketplace + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable ProductCodeValues + +instance FromText ProductCodeValues where + parser = takeText >>= \case + "devpay" -> pure Devpay + "marketplace" -> pure Marketplace + e -> fail $ + "Failure parsing ProductCodeValues from " ++ show e + +instance ToText ProductCodeValues where + toText = \case + Devpay -> "devpay" + Marketplace -> "marketplace" + +instance ToByteString ProductCodeValues +instance ToHeader ProductCodeValues +instance ToQuery ProductCodeValues + +instance FromXML ProductCodeValues where + parseXML = parseXMLText "ProductCodeValues" + +data VpnConnection = VpnConnection + { _vcCustomerGatewayConfiguration :: Maybe Text + , _vcCustomerGatewayId :: Maybe Text + , _vcOptions :: Maybe VpnConnectionOptions + , _vcRoutes :: List "item" VpnStaticRoute + , _vcState :: Maybe VpnState + , _vcTags :: List "item" Tag + , _vcType :: Maybe GatewayType + , _vcVgwTelemetry :: List "item" VgwTelemetry + , _vcVpnConnectionId :: Maybe Text + , _vcVpnGatewayId :: Maybe Text + } deriving (Eq, Show) + +-- | 'VpnConnection' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'vcCustomerGatewayConfiguration' @::@ 'Maybe' 'Text' +-- +-- * 'vcCustomerGatewayId' @::@ 'Maybe' 'Text' +-- +-- * 'vcOptions' @::@ 'Maybe' 'VpnConnectionOptions' +-- +-- * 'vcRoutes' @::@ ['VpnStaticRoute'] +-- +-- * 'vcState' @::@ 'Maybe' 'VpnState' +-- +-- * 'vcTags' @::@ ['Tag'] +-- +-- * 'vcType' @::@ 'Maybe' 'GatewayType' +-- +-- * 'vcVgwTelemetry' @::@ ['VgwTelemetry'] +-- +-- * 'vcVpnConnectionId' @::@ 'Maybe' 'Text' +-- +-- * 'vcVpnGatewayId' @::@ 'Maybe' 'Text' +-- +vpnConnection :: VpnConnection +vpnConnection = VpnConnection + { _vcVpnConnectionId = Nothing + , _vcState = Nothing + , _vcCustomerGatewayConfiguration = Nothing + , _vcType = Nothing + , _vcCustomerGatewayId = Nothing + , _vcVpnGatewayId = Nothing + , _vcTags = mempty + , _vcVgwTelemetry = mempty + , _vcOptions = Nothing + , _vcRoutes = mempty + } + +-- | 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 ID of the customer gateway at your end of the VPN connection. +vcCustomerGatewayId :: Lens' VpnConnection (Maybe Text) +vcCustomerGatewayId = + lens _vcCustomerGatewayId (\s a -> s { _vcCustomerGatewayId = a }) + +-- | The VPN connection options. +vcOptions :: Lens' VpnConnection (Maybe VpnConnectionOptions) +vcOptions = lens _vcOptions (\s a -> s { _vcOptions = a }) + +-- | The static routes associated with the VPN connection. +vcRoutes :: Lens' VpnConnection [VpnStaticRoute] +vcRoutes = lens _vcRoutes (\s a -> s { _vcRoutes = a }) . _List + +-- | The current state of the VPN connection. +vcState :: Lens' VpnConnection (Maybe VpnState) +vcState = lens _vcState (\s a -> s { _vcState = a }) + +-- | Any tags assigned to the VPN connection. +vcTags :: Lens' VpnConnection [Tag] +vcTags = lens _vcTags (\s a -> s { _vcTags = a }) . _List + +-- | The type of VPN connection. +vcType :: Lens' VpnConnection (Maybe GatewayType) +vcType = lens _vcType (\s a -> s { _vcType = a }) + +-- | Information about the VPN tunnel. +vcVgwTelemetry :: Lens' VpnConnection [VgwTelemetry] +vcVgwTelemetry = lens _vcVgwTelemetry (\s a -> s { _vcVgwTelemetry = a }) . _List + +-- | The ID of the VPN connection. +vcVpnConnectionId :: Lens' VpnConnection (Maybe Text) +vcVpnConnectionId = + lens _vcVpnConnectionId (\s a -> s { _vcVpnConnectionId = a }) + +-- | 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 }) + +instance FromXML VpnConnection where + parseXML x = VpnConnection + <$> x .@? "customerGatewayConfiguration" + <*> x .@? "customerGatewayId" + <*> x .@? "options" + <*> x .@ "routes" + <*> x .@? "state" + <*> x .@ "tagSet" + <*> x .@? "type" + <*> x .@ "vgwTelemetry" + <*> x .@? "vpnConnectionId" + <*> x .@? "vpnGatewayId" + +instance ToQuery VpnConnection where + toQuery VpnConnection{..} = mconcat + [ "customerGatewayConfiguration" =? _vcCustomerGatewayConfiguration + , "customerGatewayId" =? _vcCustomerGatewayId + , "options" =? _vcOptions + , "routes" =? _vcRoutes + , "state" =? _vcState + , "tagSet" =? _vcTags + , "type" =? _vcType + , "vgwTelemetry" =? _vcVgwTelemetry + , "vpnConnectionId" =? _vcVpnConnectionId + , "vpnGatewayId" =? _vcVpnGatewayId + ] + +data InstanceState = InstanceState + { _isCode :: Int + , _isName :: InstanceStateName + } deriving (Eq, Show) + +-- | 'InstanceState' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'isCode' @::@ 'Int' +-- +-- * 'isName' @::@ 'InstanceStateName' +-- +instanceState :: Int -- ^ 'isCode' + -> InstanceStateName -- ^ 'isName' + -> InstanceState +instanceState p1 p2 = InstanceState + { _isCode = p1 + , _isName = p2 + } + +-- | 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 }) + +-- | The current state of the instance. +isName :: Lens' InstanceState InstanceStateName +isName = lens _isName (\s a -> s { _isName = a }) + +instance FromXML InstanceState where + parseXML x = InstanceState + <$> x .@ "code" + <*> x .@ "name" + +instance ToQuery InstanceState where + toQuery InstanceState{..} = mconcat + [ "code" =? _isCode + , "name" =? _isName + ] + +data Placement = Placement + { _pAvailabilityZone :: Maybe Text + , _pGroupName :: Maybe Text + , _pTenancy :: Maybe Tenancy + } deriving (Eq, Show) + +-- | 'Placement' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'pAvailabilityZone' @::@ 'Maybe' 'Text' +-- +-- * 'pGroupName' @::@ 'Maybe' 'Text' +-- +-- * 'pTenancy' @::@ 'Maybe' 'Tenancy' +-- +placement :: Placement +placement = Placement + { _pAvailabilityZone = Nothing + , _pGroupName = Nothing + , _pTenancy = Nothing + } + +-- | The Availability Zone of the instance. +pAvailabilityZone :: Lens' Placement (Maybe Text) +pAvailabilityZone = + lens _pAvailabilityZone (\s a -> s { _pAvailabilityZone = 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 }) + +-- | 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. +pTenancy :: Lens' Placement (Maybe Tenancy) +pTenancy = lens _pTenancy (\s a -> s { _pTenancy = a }) + +instance FromXML Placement where + parseXML x = Placement + <$> x .@? "availabilityZone" + <*> x .@? "groupName" + <*> x .@? "tenancy" + +instance ToQuery Placement where + toQuery Placement{..} = mconcat + [ "availabilityZone" =? _pAvailabilityZone + , "groupName" =? _pGroupName + , "tenancy" =? _pTenancy + ] + +data EventCode + = InstanceReboot -- ^ instance-reboot + | InstanceRetirement -- ^ instance-retirement + | InstanceStop -- ^ instance-stop + | SystemMaintenance -- ^ system-maintenance + | SystemReboot -- ^ system-reboot + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable EventCode + +instance FromText EventCode where + parser = takeText >>= \case + "instance-reboot" -> pure InstanceReboot + "instance-retirement" -> pure InstanceRetirement + "instance-stop" -> pure InstanceStop + "system-maintenance" -> pure SystemMaintenance + "system-reboot" -> pure SystemReboot + e -> fail $ + "Failure parsing EventCode from " ++ show e + +instance ToText EventCode where + toText = \case + InstanceReboot -> "instance-reboot" + InstanceRetirement -> "instance-retirement" + InstanceStop -> "instance-stop" + SystemMaintenance -> "system-maintenance" + SystemReboot -> "system-reboot" + +instance ToByteString EventCode +instance ToHeader EventCode +instance ToQuery EventCode + +instance FromXML EventCode where + parseXML = parseXMLText "EventCode" + +data SpotInstanceType + = OneTime -- ^ one-time + | Persistent -- ^ persistent + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable SpotInstanceType + +instance FromText SpotInstanceType where + parser = takeText >>= \case + "one-time" -> pure OneTime + "persistent" -> pure Persistent + e -> fail $ + "Failure parsing SpotInstanceType from " ++ show e + +instance ToText SpotInstanceType where + toText = \case + OneTime -> "one-time" + Persistent -> "persistent" + +instance ToByteString SpotInstanceType +instance ToHeader SpotInstanceType +instance ToQuery SpotInstanceType + +instance FromXML SpotInstanceType where + parseXML = parseXMLText "SpotInstanceType" + +data VpcPeeringConnection = VpcPeeringConnection + { _vpc1AccepterVpcInfo :: Maybe VpcPeeringConnectionVpcInfo + , _vpc1ExpirationTime :: Maybe ISO8601 + , _vpc1RequesterVpcInfo :: Maybe VpcPeeringConnectionVpcInfo + , _vpc1Status :: Maybe VpcPeeringConnectionStateReason + , _vpc1Tags :: List "item" Tag + , _vpc1VpcPeeringConnectionId :: Maybe Text + } deriving (Eq, Show) + +-- | 'VpcPeeringConnection' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'vpc1AccepterVpcInfo' @::@ 'Maybe' 'VpcPeeringConnectionVpcInfo' +-- +-- * 'vpc1ExpirationTime' @::@ 'Maybe' 'UTCTime' +-- +-- * 'vpc1RequesterVpcInfo' @::@ 'Maybe' 'VpcPeeringConnectionVpcInfo' +-- +-- * 'vpc1Status' @::@ 'Maybe' 'VpcPeeringConnectionStateReason' +-- +-- * 'vpc1Tags' @::@ ['Tag'] +-- +-- * 'vpc1VpcPeeringConnectionId' @::@ 'Maybe' 'Text' +-- +vpcPeeringConnection :: VpcPeeringConnection +vpcPeeringConnection = VpcPeeringConnection + { _vpc1AccepterVpcInfo = Nothing + , _vpc1ExpirationTime = Nothing + , _vpc1RequesterVpcInfo = Nothing + , _vpc1Status = Nothing + , _vpc1Tags = mempty + , _vpc1VpcPeeringConnectionId = Nothing + } + +-- | The information of the peer VPC. +vpc1AccepterVpcInfo :: Lens' VpcPeeringConnection (Maybe VpcPeeringConnectionVpcInfo) +vpc1AccepterVpcInfo = + lens _vpc1AccepterVpcInfo (\s a -> s { _vpc1AccepterVpcInfo = a }) + +-- | The time that an unaccepted VPC peering connection will expire. +vpc1ExpirationTime :: Lens' VpcPeeringConnection (Maybe UTCTime) +vpc1ExpirationTime = + lens _vpc1ExpirationTime (\s a -> s { _vpc1ExpirationTime = a }) + . mapping _Time + +-- | The information of the requester VPC. +vpc1RequesterVpcInfo :: Lens' VpcPeeringConnection (Maybe VpcPeeringConnectionVpcInfo) +vpc1RequesterVpcInfo = + lens _vpc1RequesterVpcInfo (\s a -> s { _vpc1RequesterVpcInfo = a }) + +-- | The status of the VPC peering connection. +vpc1Status :: Lens' VpcPeeringConnection (Maybe VpcPeeringConnectionStateReason) +vpc1Status = lens _vpc1Status (\s a -> s { _vpc1Status = a }) + +-- | Any tags assigned to the resource. +vpc1Tags :: Lens' VpcPeeringConnection [Tag] +vpc1Tags = lens _vpc1Tags (\s a -> s { _vpc1Tags = a }) . _List + +-- | The ID of the VPC peering connection. +vpc1VpcPeeringConnectionId :: Lens' VpcPeeringConnection (Maybe Text) +vpc1VpcPeeringConnectionId = + lens _vpc1VpcPeeringConnectionId + (\s a -> s { _vpc1VpcPeeringConnectionId = a }) + +instance FromXML VpcPeeringConnection where + parseXML x = VpcPeeringConnection + <$> x .@? "accepterVpcInfo" + <*> x .@? "expirationTime" + <*> x .@? "requesterVpcInfo" + <*> x .@? "status" + <*> x .@ "tagSet" + <*> x .@? "vpcPeeringConnectionId" + +instance ToQuery VpcPeeringConnection where + toQuery VpcPeeringConnection{..} = mconcat + [ "accepterVpcInfo" =? _vpc1AccepterVpcInfo + , "expirationTime" =? _vpc1ExpirationTime + , "requesterVpcInfo" =? _vpc1RequesterVpcInfo + , "status" =? _vpc1Status + , "tagSet" =? _vpc1Tags + , "vpcPeeringConnectionId" =? _vpc1VpcPeeringConnectionId + ] + +data S3Storage = S3Storage + { _ssAWSAccessKeyId :: Maybe Text + , _ssBucket :: Maybe Text + , _ssPrefix :: Maybe Text + , _ssUploadPolicy :: Maybe Base64 + , _ssUploadPolicySignature :: Maybe Text + } deriving (Eq, Show) + +-- | 'S3Storage' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'ssAWSAccessKeyId' @::@ 'Maybe' 'Text' +-- +-- * 'ssBucket' @::@ 'Maybe' 'Text' +-- +-- * 'ssPrefix' @::@ 'Maybe' 'Text' +-- +-- * 'ssUploadPolicy' @::@ 'Maybe' 'Base64' +-- +-- * 'ssUploadPolicySignature' @::@ 'Maybe' 'Text' +-- +s3Storage :: S3Storage +s3Storage = S3Storage + { _ssBucket = Nothing + , _ssPrefix = Nothing + , _ssAWSAccessKeyId = Nothing + , _ssUploadPolicy = Nothing + , _ssUploadPolicySignature = Nothing + } + +-- | 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 }) + +-- | 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 beginning of the file name of the AMI. +ssPrefix :: Lens' S3Storage (Maybe Text) +ssPrefix = lens _ssPrefix (\s a -> s { _ssPrefix = a }) + +-- | A Base64-encoded Amazon S3 upload policy that gives Amazon EC2 permission to +-- upload items into Amazon S3 on your behalf. +ssUploadPolicy :: Lens' S3Storage (Maybe Base64) +ssUploadPolicy = lens _ssUploadPolicy (\s a -> s { _ssUploadPolicy = a }) + +-- | The signature of the Base64 encoded JSON document. +ssUploadPolicySignature :: Lens' S3Storage (Maybe Text) +ssUploadPolicySignature = + lens _ssUploadPolicySignature (\s a -> s { _ssUploadPolicySignature = a }) + +instance FromXML S3Storage where + parseXML x = S3Storage + <$> x .@? "AWSAccessKeyId" + <*> x .@? "bucket" + <*> x .@? "prefix" + <*> x .@? "uploadPolicy" + <*> x .@? "uploadPolicySignature" + +instance ToQuery S3Storage where + toQuery S3Storage{..} = mconcat + [ "AWSAccessKeyId" =? _ssAWSAccessKeyId + , "bucket" =? _ssBucket + , "prefix" =? _ssPrefix + , "uploadPolicy" =? _ssUploadPolicy + , "uploadPolicySignature" =? _ssUploadPolicySignature + ] + +data VgwTelemetry = VgwTelemetry + { _vtAcceptedRouteCount :: Maybe Int + , _vtLastStatusChange :: Maybe ISO8601 + , _vtOutsideIpAddress :: Maybe Text + , _vtStatus :: Maybe TelemetryStatus + , _vtStatusMessage :: Maybe Text + } deriving (Eq, Show) + +-- | 'VgwTelemetry' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'vtAcceptedRouteCount' @::@ 'Maybe' 'Int' +-- +-- * 'vtLastStatusChange' @::@ 'Maybe' 'UTCTime' +-- +-- * 'vtOutsideIpAddress' @::@ 'Maybe' 'Text' +-- +-- * 'vtStatus' @::@ 'Maybe' 'TelemetryStatus' +-- +-- * 'vtStatusMessage' @::@ 'Maybe' 'Text' +-- +vgwTelemetry :: VgwTelemetry +vgwTelemetry = VgwTelemetry + { _vtOutsideIpAddress = Nothing + , _vtStatus = Nothing + , _vtLastStatusChange = Nothing + , _vtStatusMessage = Nothing + , _vtAcceptedRouteCount = Nothing + } + +-- | The number of accepted routes. +vtAcceptedRouteCount :: Lens' VgwTelemetry (Maybe Int) +vtAcceptedRouteCount = + lens _vtAcceptedRouteCount (\s a -> s { _vtAcceptedRouteCount = 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 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 status of the VPN tunnel. +vtStatus :: Lens' VgwTelemetry (Maybe TelemetryStatus) +vtStatus = lens _vtStatus (\s a -> s { _vtStatus = 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 .@? "acceptedRouteCount" + <*> x .@? "lastStatusChange" + <*> x .@? "outsideIpAddress" + <*> x .@? "status" + <*> x .@? "statusMessage" + +instance ToQuery VgwTelemetry where + toQuery VgwTelemetry{..} = mconcat + [ "acceptedRouteCount" =? _vtAcceptedRouteCount + , "lastStatusChange" =? _vtLastStatusChange + , "outsideIpAddress" =? _vtOutsideIpAddress + , "status" =? _vtStatus + , "statusMessage" =? _vtStatusMessage + ] + +data VpnStaticRoute = VpnStaticRoute + { _vsrDestinationCidrBlock :: Maybe Text + , _vsrSource :: Maybe VpnStaticRouteSource + , _vsrState :: Maybe VpnState + } deriving (Eq, Show) + +-- | 'VpnStaticRoute' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'vsrDestinationCidrBlock' @::@ 'Maybe' 'Text' +-- +-- * 'vsrSource' @::@ 'Maybe' 'VpnStaticRouteSource' +-- +-- * 'vsrState' @::@ 'Maybe' 'VpnState' +-- +vpnStaticRoute :: VpnStaticRoute +vpnStaticRoute = VpnStaticRoute + { _vsrDestinationCidrBlock = Nothing + , _vsrSource = Nothing + , _vsrState = Nothing + } + +-- | 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 }) + +-- | Indicates how the routes were provided. +vsrSource :: Lens' VpnStaticRoute (Maybe VpnStaticRouteSource) +vsrSource = lens _vsrSource (\s a -> s { _vsrSource = a }) + +-- | The current state of the static route. +vsrState :: Lens' VpnStaticRoute (Maybe VpnState) +vsrState = lens _vsrState (\s a -> s { _vsrState = a }) + +instance FromXML VpnStaticRoute where + parseXML x = VpnStaticRoute + <$> x .@? "destinationCidrBlock" + <*> x .@? "source" + <*> x .@? "state" + +instance ToQuery VpnStaticRoute where + toQuery VpnStaticRoute{..} = mconcat + [ "destinationCidrBlock" =? _vsrDestinationCidrBlock + , "source" =? _vsrSource + , "state" =? _vsrState + ] + +data InstanceStateName + = ISNPending -- ^ pending + | ISNRunning -- ^ running + | ISNShuttingDown -- ^ shutting-down + | ISNStopped -- ^ stopped + | ISNStopping -- ^ stopping + | ISNTerminated -- ^ terminated + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable InstanceStateName + +instance FromText InstanceStateName where + parser = takeText >>= \case + "pending" -> pure ISNPending + "running" -> pure ISNRunning + "shutting-down" -> pure ISNShuttingDown + "stopped" -> pure ISNStopped + "stopping" -> pure ISNStopping + "terminated" -> pure ISNTerminated + e -> fail $ + "Failure parsing InstanceStateName from " ++ show e + +instance ToText InstanceStateName where + toText = \case + ISNPending -> "pending" + ISNRunning -> "running" + ISNShuttingDown -> "shutting-down" + ISNStopped -> "stopped" + ISNStopping -> "stopping" + ISNTerminated -> "terminated" + +instance ToByteString InstanceStateName +instance ToHeader InstanceStateName +instance ToQuery InstanceStateName + +instance FromXML InstanceStateName where + parseXML = parseXMLText "InstanceStateName" + +data Instance = Instance + { _i1AmiLaunchIndex :: Maybe Int + , _i1Architecture :: Maybe ArchitectureValues + , _i1BlockDeviceMappings :: List "item" InstanceBlockDeviceMapping + , _i1ClientToken :: Maybe Text + , _i1EbsOptimized :: Maybe Bool + , _i1Hypervisor :: Maybe HypervisorType + , _i1IamInstanceProfile :: Maybe IamInstanceProfile + , _i1ImageId :: Maybe Text + , _i1InstanceId :: Maybe Text + , _i1InstanceLifecycle :: Maybe InstanceLifecycleType + , _i1InstanceType :: Maybe InstanceType + , _i1KernelId :: Maybe Text + , _i1KeyName :: Maybe Text + , _i1LaunchTime :: Maybe ISO8601 + , _i1Monitoring :: Maybe Monitoring + , _i1NetworkInterfaces :: List "item" InstanceNetworkInterface + , _i1Placement :: Maybe Placement + , _i1Platform :: Maybe PlatformValues + , _i1PrivateDnsName :: Maybe Text + , _i1PrivateIpAddress :: Maybe Text + , _i1ProductCodes :: List "item" ProductCode + , _i1PublicDnsName :: Maybe Text + , _i1PublicIpAddress :: Maybe Text + , _i1RamdiskId :: Maybe Text + , _i1RootDeviceName :: Maybe Text + , _i1RootDeviceType :: Maybe DeviceType + , _i1SecurityGroups :: List "item" GroupIdentifier + , _i1SourceDestCheck :: Maybe Bool + , _i1SpotInstanceRequestId :: Maybe Text + , _i1SriovNetSupport :: Maybe Text + , _i1State :: Maybe InstanceState + , _i1StateReason :: Maybe StateReason + , _i1StateTransitionReason :: Maybe Text + , _i1SubnetId :: Maybe Text + , _i1Tags :: List "item" Tag + , _i1VirtualizationType :: Maybe VirtualizationType + , _i1VpcId :: Maybe Text + } deriving (Eq, Show) + +-- | 'Instance' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'i1AmiLaunchIndex' @::@ 'Maybe' 'Int' +-- +-- * 'i1Architecture' @::@ 'Maybe' 'ArchitectureValues' +-- +-- * 'i1BlockDeviceMappings' @::@ ['InstanceBlockDeviceMapping'] +-- +-- * 'i1ClientToken' @::@ 'Maybe' 'Text' +-- +-- * 'i1EbsOptimized' @::@ 'Maybe' 'Bool' +-- +-- * 'i1Hypervisor' @::@ 'Maybe' 'HypervisorType' +-- +-- * 'i1IamInstanceProfile' @::@ 'Maybe' 'IamInstanceProfile' +-- +-- * 'i1ImageId' @::@ 'Maybe' 'Text' +-- +-- * 'i1InstanceId' @::@ 'Maybe' 'Text' +-- +-- * 'i1InstanceLifecycle' @::@ 'Maybe' 'InstanceLifecycleType' +-- +-- * 'i1InstanceType' @::@ 'Maybe' 'InstanceType' +-- +-- * 'i1KernelId' @::@ 'Maybe' 'Text' +-- +-- * 'i1KeyName' @::@ 'Maybe' 'Text' +-- +-- * 'i1LaunchTime' @::@ 'Maybe' 'UTCTime' +-- +-- * 'i1Monitoring' @::@ 'Maybe' 'Monitoring' +-- +-- * 'i1NetworkInterfaces' @::@ ['InstanceNetworkInterface'] +-- +-- * 'i1Placement' @::@ 'Maybe' 'Placement' +-- +-- * 'i1Platform' @::@ 'Maybe' 'PlatformValues' +-- +-- * 'i1PrivateDnsName' @::@ 'Maybe' 'Text' +-- +-- * 'i1PrivateIpAddress' @::@ 'Maybe' 'Text' +-- +-- * 'i1ProductCodes' @::@ ['ProductCode'] +-- +-- * 'i1PublicDnsName' @::@ 'Maybe' 'Text' +-- +-- * 'i1PublicIpAddress' @::@ 'Maybe' 'Text' +-- +-- * 'i1RamdiskId' @::@ 'Maybe' 'Text' +-- +-- * 'i1RootDeviceName' @::@ 'Maybe' 'Text' +-- +-- * 'i1RootDeviceType' @::@ 'Maybe' 'DeviceType' +-- +-- * 'i1SecurityGroups' @::@ ['GroupIdentifier'] +-- +-- * 'i1SourceDestCheck' @::@ 'Maybe' 'Bool' +-- +-- * 'i1SpotInstanceRequestId' @::@ 'Maybe' 'Text' +-- +-- * 'i1SriovNetSupport' @::@ 'Maybe' 'Text' +-- +-- * 'i1State' @::@ 'Maybe' 'InstanceState' +-- +-- * 'i1StateReason' @::@ 'Maybe' 'StateReason' +-- +-- * 'i1StateTransitionReason' @::@ 'Maybe' 'Text' +-- +-- * 'i1SubnetId' @::@ 'Maybe' 'Text' +-- +-- * 'i1Tags' @::@ ['Tag'] +-- +-- * 'i1VirtualizationType' @::@ 'Maybe' 'VirtualizationType' +-- +-- * 'i1VpcId' @::@ 'Maybe' 'Text' +-- +instance' :: Instance +instance' = Instance + { _i1InstanceId = Nothing + , _i1ImageId = Nothing + , _i1State = Nothing + , _i1PrivateDnsName = Nothing + , _i1PublicDnsName = Nothing + , _i1StateTransitionReason = Nothing + , _i1KeyName = Nothing + , _i1AmiLaunchIndex = Nothing + , _i1ProductCodes = mempty + , _i1InstanceType = Nothing + , _i1LaunchTime = Nothing + , _i1Placement = Nothing + , _i1KernelId = Nothing + , _i1RamdiskId = Nothing + , _i1Platform = Nothing + , _i1Monitoring = Nothing + , _i1SubnetId = Nothing + , _i1VpcId = Nothing + , _i1PrivateIpAddress = Nothing + , _i1PublicIpAddress = Nothing + , _i1StateReason = Nothing + , _i1Architecture = Nothing + , _i1RootDeviceType = Nothing + , _i1RootDeviceName = Nothing + , _i1BlockDeviceMappings = mempty + , _i1VirtualizationType = Nothing + , _i1InstanceLifecycle = Nothing + , _i1SpotInstanceRequestId = Nothing + , _i1ClientToken = Nothing + , _i1Tags = mempty + , _i1SecurityGroups = mempty + , _i1SourceDestCheck = Nothing + , _i1Hypervisor = Nothing + , _i1NetworkInterfaces = mempty + , _i1IamInstanceProfile = Nothing + , _i1EbsOptimized = Nothing + , _i1SriovNetSupport = Nothing + } + +-- | The AMI launch index, which can be used to find this instance in the launch +-- group. +i1AmiLaunchIndex :: Lens' Instance (Maybe Int) +i1AmiLaunchIndex = lens _i1AmiLaunchIndex (\s a -> s { _i1AmiLaunchIndex = a }) + +-- | The architecture of the image. +i1Architecture :: Lens' Instance (Maybe ArchitectureValues) +i1Architecture = lens _i1Architecture (\s a -> s { _i1Architecture = a }) + +-- | Any block device mapping entries for the instance. +i1BlockDeviceMappings :: Lens' Instance [InstanceBlockDeviceMapping] +i1BlockDeviceMappings = + lens _i1BlockDeviceMappings (\s a -> s { _i1BlockDeviceMappings = a }) + . _List + +-- | The idempotency token you provided when you launched the instance. +i1ClientToken :: Lens' Instance (Maybe Text) +i1ClientToken = lens _i1ClientToken (\s a -> s { _i1ClientToken = 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 I/O performance. This optimization isn't available +-- with all instance types. Additional usage charges apply when using an EBS +-- Optimized instance. +i1EbsOptimized :: Lens' Instance (Maybe Bool) +i1EbsOptimized = lens _i1EbsOptimized (\s a -> s { _i1EbsOptimized = a }) + +-- | The hypervisor type of the instance. +i1Hypervisor :: Lens' Instance (Maybe HypervisorType) +i1Hypervisor = lens _i1Hypervisor (\s a -> s { _i1Hypervisor = a }) + +-- | The IAM instance profile associated with the instance. +i1IamInstanceProfile :: Lens' Instance (Maybe IamInstanceProfile) +i1IamInstanceProfile = + lens _i1IamInstanceProfile (\s a -> s { _i1IamInstanceProfile = a }) + +-- | The ID of the AMI used to launch the instance. +i1ImageId :: Lens' Instance (Maybe Text) +i1ImageId = lens _i1ImageId (\s a -> s { _i1ImageId = a }) + +-- | The ID of the instance. +i1InstanceId :: Lens' Instance (Maybe Text) +i1InstanceId = lens _i1InstanceId (\s a -> s { _i1InstanceId = a }) + +-- | Indicates whether this is a Spot Instance. +i1InstanceLifecycle :: Lens' Instance (Maybe InstanceLifecycleType) +i1InstanceLifecycle = + lens _i1InstanceLifecycle (\s a -> s { _i1InstanceLifecycle = a }) + +-- | The instance type. +i1InstanceType :: Lens' Instance (Maybe InstanceType) +i1InstanceType = lens _i1InstanceType (\s a -> s { _i1InstanceType = a }) + +-- | The kernel associated with this instance. +i1KernelId :: Lens' Instance (Maybe Text) +i1KernelId = lens _i1KernelId (\s a -> s { _i1KernelId = a }) + +-- | The name of the key pair, if this instance was launched with an associated +-- key pair. +i1KeyName :: Lens' Instance (Maybe Text) +i1KeyName = lens _i1KeyName (\s a -> s { _i1KeyName = a }) + +-- | The time the instance was launched. +i1LaunchTime :: Lens' Instance (Maybe UTCTime) +i1LaunchTime = lens _i1LaunchTime (\s a -> s { _i1LaunchTime = a }) . mapping _Time + +-- | The monitoring information for the instance. +i1Monitoring :: Lens' Instance (Maybe Monitoring) +i1Monitoring = lens _i1Monitoring (\s a -> s { _i1Monitoring = a }) + +-- | [EC2-VPC] One or more network interfaces for the instance. +i1NetworkInterfaces :: Lens' Instance [InstanceNetworkInterface] +i1NetworkInterfaces = + lens _i1NetworkInterfaces (\s a -> s { _i1NetworkInterfaces = a }) + . _List + +-- | The location where the instance launched. +i1Placement :: Lens' Instance (Maybe Placement) +i1Placement = lens _i1Placement (\s a -> s { _i1Placement = a }) + +-- | The value is 'Windows' for Windows instances; otherwise blank. +i1Platform :: Lens' Instance (Maybe PlatformValues) +i1Platform = lens _i1Platform (\s a -> s { _i1Platform = a }) + +-- | The private DNS name assigned to the instance. This DNS name can only be used +-- inside the Amazon EC2 network. This name is not available until the instance +-- enters the 'running' state. +i1PrivateDnsName :: Lens' Instance (Maybe Text) +i1PrivateDnsName = lens _i1PrivateDnsName (\s a -> s { _i1PrivateDnsName = a }) + +-- | The private IP address assigned to the instance. +i1PrivateIpAddress :: Lens' Instance (Maybe Text) +i1PrivateIpAddress = + lens _i1PrivateIpAddress (\s a -> s { _i1PrivateIpAddress = a }) + +-- | The product codes attached to this instance. +i1ProductCodes :: Lens' Instance [ProductCode] +i1ProductCodes = lens _i1ProductCodes (\s a -> s { _i1ProductCodes = a }) . _List + +-- | The public DNS name assigned to the instance. This name is not available +-- until the instance enters the 'running' state. +i1PublicDnsName :: Lens' Instance (Maybe Text) +i1PublicDnsName = lens _i1PublicDnsName (\s a -> s { _i1PublicDnsName = a }) + +-- | The public IP address assigned to the instance. +i1PublicIpAddress :: Lens' Instance (Maybe Text) +i1PublicIpAddress = + lens _i1PublicIpAddress (\s a -> s { _i1PublicIpAddress = a }) + +-- | The RAM disk associated with this instance. +i1RamdiskId :: Lens' Instance (Maybe Text) +i1RamdiskId = lens _i1RamdiskId (\s a -> s { _i1RamdiskId = a }) + +-- | The root device name (for example, '/dev/sda1'). +i1RootDeviceName :: Lens' Instance (Maybe Text) +i1RootDeviceName = lens _i1RootDeviceName (\s a -> s { _i1RootDeviceName = a }) + +-- | The root device type used by the AMI. The AMI can use an Amazon EBS volume or +-- an instance store volume. +i1RootDeviceType :: Lens' Instance (Maybe DeviceType) +i1RootDeviceType = lens _i1RootDeviceType (\s a -> s { _i1RootDeviceType = a }) + +-- | One or more security groups for the instance. +i1SecurityGroups :: Lens' Instance [GroupIdentifier] +i1SecurityGroups = lens _i1SecurityGroups (\s a -> s { _i1SecurityGroups = a }) . _List + +-- | Specifies whether to enable an instance launched in a VPC to perform NAT. +-- This controls whether source/destination checking is enabled on the instance. +-- A value of 'true' means checking is enabled, and 'false' means checking is +-- disabled. The value must be 'false' for the instance to perform NAT. For more +-- information, see in the /Amazon Virtual Private Cloud User Guide/. +i1SourceDestCheck :: Lens' Instance (Maybe Bool) +i1SourceDestCheck = + lens _i1SourceDestCheck (\s a -> s { _i1SourceDestCheck = a }) + +-- | The ID of the Spot Instance request. +i1SpotInstanceRequestId :: Lens' Instance (Maybe Text) +i1SpotInstanceRequestId = + lens _i1SpotInstanceRequestId (\s a -> s { _i1SpotInstanceRequestId = a }) + +-- | Specifies whether enhanced networking is enabled. +i1SriovNetSupport :: Lens' Instance (Maybe Text) +i1SriovNetSupport = + lens _i1SriovNetSupport (\s a -> s { _i1SriovNetSupport = a }) + +-- | The current state of the instance. +i1State :: Lens' Instance (Maybe InstanceState) +i1State = lens _i1State (\s a -> s { _i1State = a }) + +-- | The reason for the most recent state transition. +i1StateReason :: Lens' Instance (Maybe StateReason) +i1StateReason = lens _i1StateReason (\s a -> s { _i1StateReason = a }) + +-- | The reason for the most recent state transition. This might be an empty +-- string. +i1StateTransitionReason :: Lens' Instance (Maybe Text) +i1StateTransitionReason = + lens _i1StateTransitionReason (\s a -> s { _i1StateTransitionReason = a }) + +-- | The ID of the subnet in which the instance is running. +i1SubnetId :: Lens' Instance (Maybe Text) +i1SubnetId = lens _i1SubnetId (\s a -> s { _i1SubnetId = a }) + +-- | Any tags assigned to the instance. +i1Tags :: Lens' Instance [Tag] +i1Tags = lens _i1Tags (\s a -> s { _i1Tags = a }) . _List + +-- | The virtualization type of the instance. +i1VirtualizationType :: Lens' Instance (Maybe VirtualizationType) +i1VirtualizationType = + lens _i1VirtualizationType (\s a -> s { _i1VirtualizationType = a }) + +-- | The ID of the VPC in which the instance is running. +i1VpcId :: Lens' Instance (Maybe Text) +i1VpcId = lens _i1VpcId (\s a -> s { _i1VpcId = a }) + +instance FromXML Instance where + parseXML x = Instance + <$> x .@? "amiLaunchIndex" + <*> x .@? "architecture" + <*> x .@ "blockDeviceMapping" + <*> x .@? "clientToken" + <*> x .@? "ebsOptimized" + <*> x .@? "hypervisor" + <*> x .@? "iamInstanceProfile" + <*> x .@? "imageId" + <*> x .@? "instanceId" + <*> x .@? "instanceLifecycle" + <*> x .@? "instanceType" + <*> x .@? "kernelId" + <*> x .@? "keyName" + <*> x .@? "launchTime" + <*> x .@? "monitoring" + <*> x .@ "networkInterfaceSet" + <*> x .@? "placement" + <*> x .@? "platform" + <*> x .@? "privateDnsName" + <*> x .@? "privateIpAddress" + <*> x .@ "productCodes" + <*> x .@? "dnsName" + <*> x .@? "ipAddress" + <*> x .@? "ramdiskId" + <*> x .@? "rootDeviceName" + <*> x .@? "rootDeviceType" + <*> x .@ "groupSet" + <*> x .@? "sourceDestCheck" + <*> x .@? "spotInstanceRequestId" + <*> x .@? "sriovNetSupport" + <*> x .@? "instanceState" + <*> x .@? "stateReason" + <*> x .@? "reason" + <*> x .@? "subnetId" + <*> x .@ "tagSet" + <*> x .@? "virtualizationType" + <*> x .@? "vpcId" + +instance ToQuery Instance where + toQuery Instance{..} = mconcat + [ "amiLaunchIndex" =? _i1AmiLaunchIndex + , "architecture" =? _i1Architecture + , "blockDeviceMapping" =? _i1BlockDeviceMappings + , "clientToken" =? _i1ClientToken + , "ebsOptimized" =? _i1EbsOptimized + , "hypervisor" =? _i1Hypervisor + , "iamInstanceProfile" =? _i1IamInstanceProfile + , "imageId" =? _i1ImageId + , "instanceId" =? _i1InstanceId + , "instanceLifecycle" =? _i1InstanceLifecycle + , "instanceType" =? _i1InstanceType + , "kernelId" =? _i1KernelId + , "keyName" =? _i1KeyName + , "launchTime" =? _i1LaunchTime + , "monitoring" =? _i1Monitoring + , "networkInterfaceSet" =? _i1NetworkInterfaces + , "placement" =? _i1Placement + , "platform" =? _i1Platform + , "privateDnsName" =? _i1PrivateDnsName + , "privateIpAddress" =? _i1PrivateIpAddress + , "productCodes" =? _i1ProductCodes + , "dnsName" =? _i1PublicDnsName + , "ipAddress" =? _i1PublicIpAddress + , "ramdiskId" =? _i1RamdiskId + , "rootDeviceName" =? _i1RootDeviceName + , "rootDeviceType" =? _i1RootDeviceType + , "groupSet" =? _i1SecurityGroups + , "sourceDestCheck" =? _i1SourceDestCheck + , "spotInstanceRequestId" =? _i1SpotInstanceRequestId + , "sriovNetSupport" =? _i1SriovNetSupport + , "instanceState" =? _i1State + , "stateReason" =? _i1StateReason + , "reason" =? _i1StateTransitionReason + , "subnetId" =? _i1SubnetId + , "tagSet" =? _i1Tags + , "virtualizationType" =? _i1VirtualizationType + , "vpcId" =? _i1VpcId + ] + +data ExportTask = ExportTask + { _etDescription :: Maybe Text + , _etExportTaskId :: Maybe Text + , _etExportToS3Task :: Maybe ExportToS3Task + , _etInstanceExportDetails :: Maybe InstanceExportDetails + , _etState :: Maybe ExportTaskState + , _etStatusMessage :: Maybe Text + } deriving (Eq, Show) + +-- | 'ExportTask' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'etDescription' @::@ 'Maybe' 'Text' +-- +-- * 'etExportTaskId' @::@ 'Maybe' 'Text' +-- +-- * 'etExportToS3Task' @::@ 'Maybe' 'ExportToS3Task' +-- +-- * 'etInstanceExportDetails' @::@ 'Maybe' 'InstanceExportDetails' +-- +-- * 'etState' @::@ 'Maybe' 'ExportTaskState' +-- +-- * 'etStatusMessage' @::@ 'Maybe' 'Text' +-- +exportTask :: ExportTask +exportTask = ExportTask + { _etExportTaskId = Nothing + , _etDescription = Nothing + , _etState = Nothing + , _etStatusMessage = Nothing + , _etInstanceExportDetails = Nothing + , _etExportToS3Task = Nothing + } + +-- | A description of the resource being exported. +etDescription :: Lens' ExportTask (Maybe Text) +etDescription = lens _etDescription (\s a -> s { _etDescription = a }) + +-- | The ID of the export task. +etExportTaskId :: Lens' ExportTask (Maybe Text) +etExportTaskId = lens _etExportTaskId (\s a -> s { _etExportTaskId = a }) + +etExportToS3Task :: Lens' ExportTask (Maybe ExportToS3Task) +etExportToS3Task = lens _etExportToS3Task (\s a -> s { _etExportToS3Task = a }) + +-- | The instance being exported. +etInstanceExportDetails :: Lens' ExportTask (Maybe InstanceExportDetails) +etInstanceExportDetails = + lens _etInstanceExportDetails (\s a -> s { _etInstanceExportDetails = a }) + +-- | The state of the conversion task. +etState :: Lens' ExportTask (Maybe ExportTaskState) +etState = lens _etState (\s a -> s { _etState = a }) + +-- | The status message related to the export task. +etStatusMessage :: Lens' ExportTask (Maybe 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 ToQuery ExportTask where + toQuery ExportTask{..} = mconcat + [ "description" =? _etDescription + , "exportTaskId" =? _etExportTaskId + , "exportToS3" =? _etExportToS3Task + , "instanceExport" =? _etInstanceExportDetails + , "state" =? _etState + , "statusMessage" =? _etStatusMessage + ] + +data ResetImageAttributeName + = RIANLaunchPermission -- ^ launchPermission + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable ResetImageAttributeName + +instance FromText ResetImageAttributeName where + parser = takeText >>= \case + "launchPermission" -> pure RIANLaunchPermission + e -> fail $ + "Failure parsing ResetImageAttributeName from " ++ show e + +instance ToText ResetImageAttributeName where + toText RIANLaunchPermission = "launchPermission" + +instance ToByteString ResetImageAttributeName +instance ToHeader ResetImageAttributeName +instance ToQuery ResetImageAttributeName + +instance FromXML ResetImageAttributeName where + parseXML = parseXMLText "ResetImageAttributeName" + +data RequestSpotLaunchSpecification = RequestSpotLaunchSpecification + { _rslsAddressingType :: Maybe Text + , _rslsBlockDeviceMappings :: List "item" BlockDeviceMapping + , _rslsEbsOptimized :: Maybe Bool + , _rslsIamInstanceProfile :: Maybe IamInstanceProfileSpecification + , _rslsImageId :: Maybe Text + , _rslsInstanceType :: Maybe InstanceType + , _rslsKernelId :: Maybe Text + , _rslsKeyName :: Maybe Text + , _rslsMonitoring :: Maybe RunInstancesMonitoringEnabled + , _rslsNetworkInterfaces :: List "item" InstanceNetworkInterfaceSpecification + , _rslsPlacement :: Maybe SpotPlacement + , _rslsRamdiskId :: Maybe Text + , _rslsSecurityGroupIds :: List "item" Text + , _rslsSecurityGroups :: List "item" Text + , _rslsSubnetId :: Maybe Text + , _rslsUserData :: Maybe Text + } deriving (Eq, Show) + +-- | 'RequestSpotLaunchSpecification' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'rslsAddressingType' @::@ 'Maybe' 'Text' +-- +-- * 'rslsBlockDeviceMappings' @::@ ['BlockDeviceMapping'] +-- +-- * 'rslsEbsOptimized' @::@ 'Maybe' 'Bool' +-- +-- * 'rslsIamInstanceProfile' @::@ 'Maybe' 'IamInstanceProfileSpecification' +-- +-- * 'rslsImageId' @::@ 'Maybe' 'Text' +-- +-- * 'rslsInstanceType' @::@ 'Maybe' 'InstanceType' +-- +-- * 'rslsKernelId' @::@ 'Maybe' 'Text' +-- +-- * 'rslsKeyName' @::@ 'Maybe' 'Text' +-- +-- * 'rslsMonitoring' @::@ 'Maybe' 'RunInstancesMonitoringEnabled' +-- +-- * 'rslsNetworkInterfaces' @::@ ['InstanceNetworkInterfaceSpecification'] +-- +-- * 'rslsPlacement' @::@ 'Maybe' 'SpotPlacement' +-- +-- * 'rslsRamdiskId' @::@ 'Maybe' 'Text' +-- +-- * 'rslsSecurityGroupIds' @::@ ['Text'] +-- +-- * 'rslsSecurityGroups' @::@ ['Text'] +-- +-- * 'rslsSubnetId' @::@ 'Maybe' 'Text' +-- +-- * 'rslsUserData' @::@ 'Maybe' 'Text' +-- +requestSpotLaunchSpecification :: RequestSpotLaunchSpecification +requestSpotLaunchSpecification = RequestSpotLaunchSpecification + { _rslsImageId = Nothing + , _rslsKeyName = Nothing + , _rslsSecurityGroups = mempty + , _rslsUserData = Nothing + , _rslsAddressingType = Nothing + , _rslsInstanceType = Nothing + , _rslsPlacement = Nothing + , _rslsKernelId = Nothing + , _rslsRamdiskId = Nothing + , _rslsBlockDeviceMappings = mempty + , _rslsSubnetId = Nothing + , _rslsNetworkInterfaces = mempty + , _rslsIamInstanceProfile = Nothing + , _rslsEbsOptimized = Nothing + , _rslsMonitoring = Nothing + , _rslsSecurityGroupIds = mempty + } + +-- | Deprecated. +rslsAddressingType :: Lens' RequestSpotLaunchSpecification (Maybe Text) +rslsAddressingType = + lens _rslsAddressingType (\s a -> s { _rslsAddressingType = a }) + +-- | One or more block device mapping entries. +rslsBlockDeviceMappings :: Lens' RequestSpotLaunchSpecification [BlockDeviceMapping] +rslsBlockDeviceMappings = + lens _rslsBlockDeviceMappings (\s a -> s { _rslsBlockDeviceMappings = a }) + . _List + +-- | 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 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 }) + +-- | The instance type. +-- +-- Default: 'm1.small' +rslsInstanceType :: Lens' RequestSpotLaunchSpecification (Maybe InstanceType) +rslsInstanceType = lens _rslsInstanceType (\s a -> s { _rslsInstanceType = a }) + +-- | The ID of the kernel. +rslsKernelId :: Lens' RequestSpotLaunchSpecification (Maybe Text) +rslsKernelId = lens _rslsKernelId (\s a -> s { _rslsKernelId = a }) + +-- | The name of the key pair. +rslsKeyName :: Lens' RequestSpotLaunchSpecification (Maybe Text) +rslsKeyName = lens _rslsKeyName (\s a -> s { _rslsKeyName = a }) + +rslsMonitoring :: Lens' RequestSpotLaunchSpecification (Maybe RunInstancesMonitoringEnabled) +rslsMonitoring = lens _rslsMonitoring (\s a -> s { _rslsMonitoring = a }) + +-- | One or more network interfaces. +rslsNetworkInterfaces :: Lens' RequestSpotLaunchSpecification [InstanceNetworkInterfaceSpecification] +rslsNetworkInterfaces = + lens _rslsNetworkInterfaces (\s a -> s { _rslsNetworkInterfaces = a }) + . _List + +-- | The placement information for the instance. +rslsPlacement :: Lens' RequestSpotLaunchSpecification (Maybe SpotPlacement) +rslsPlacement = lens _rslsPlacement (\s a -> s { _rslsPlacement = a }) + +-- | The ID of the RAM disk. +rslsRamdiskId :: Lens' RequestSpotLaunchSpecification (Maybe Text) +rslsRamdiskId = lens _rslsRamdiskId (\s a -> s { _rslsRamdiskId = a }) + +rslsSecurityGroupIds :: Lens' RequestSpotLaunchSpecification [Text] +rslsSecurityGroupIds = + lens _rslsSecurityGroupIds (\s a -> s { _rslsSecurityGroupIds = a }) + . _List + +rslsSecurityGroups :: Lens' RequestSpotLaunchSpecification [Text] +rslsSecurityGroups = + lens _rslsSecurityGroups (\s a -> s { _rslsSecurityGroups = a }) + . _List + +-- | The ID of the subnet in which to launch the Spot Instance. +rslsSubnetId :: Lens' RequestSpotLaunchSpecification (Maybe Text) +rslsSubnetId = lens _rslsSubnetId (\s a -> s { _rslsSubnetId = a }) + +-- | The Base64-encoded MIME user data to make available to the instances. +rslsUserData :: Lens' RequestSpotLaunchSpecification (Maybe Text) +rslsUserData = lens _rslsUserData (\s a -> s { _rslsUserData = a }) + +instance FromXML RequestSpotLaunchSpecification where + parseXML x = RequestSpotLaunchSpecification + <$> x .@? "addressingType" + <*> x .@ "blockDeviceMapping" + <*> x .@? "ebsOptimized" + <*> x .@? "iamInstanceProfile" + <*> x .@? "imageId" + <*> x .@? "instanceType" + <*> x .@? "kernelId" + <*> x .@? "keyName" + <*> x .@? "monitoring" + <*> x .@ "NetworkInterface" + <*> x .@? "placement" + <*> x .@? "ramdiskId" + <*> x .@ "SecurityGroupId" + <*> x .@ "SecurityGroup" + <*> x .@? "subnetId" + <*> x .@? "userData" + +instance ToQuery RequestSpotLaunchSpecification where + toQuery RequestSpotLaunchSpecification{..} = mconcat + [ "addressingType" =? _rslsAddressingType + , "blockDeviceMapping" =? _rslsBlockDeviceMappings + , "ebsOptimized" =? _rslsEbsOptimized + , "iamInstanceProfile" =? _rslsIamInstanceProfile + , "imageId" =? _rslsImageId + , "instanceType" =? _rslsInstanceType + , "kernelId" =? _rslsKernelId + , "keyName" =? _rslsKeyName + , "monitoring" =? _rslsMonitoring + , "NetworkInterface" =? _rslsNetworkInterfaces + , "placement" =? _rslsPlacement + , "ramdiskId" =? _rslsRamdiskId + , "SecurityGroupId" =? _rslsSecurityGroupIds + , "SecurityGroup" =? _rslsSecurityGroups + , "subnetId" =? _rslsSubnetId + , "userData" =? _rslsUserData + ] + +newtype VolumeDetail = VolumeDetail + { _vdSize :: Integer + } deriving (Eq, Ord, Show, Enum, Num, Integral, Real) + +-- | 'VolumeDetail' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'vdSize' @::@ 'Integer' +-- +volumeDetail :: Integer -- ^ 'vdSize' + -> VolumeDetail +volumeDetail p1 = VolumeDetail + { _vdSize = p1 + } + +-- | The size of the volume, in GiB. +vdSize :: Lens' VolumeDetail Integer +vdSize = lens _vdSize (\s a -> s { _vdSize = a }) + +instance FromXML VolumeDetail where + parseXML x = VolumeDetail + <$> x .@ "size" + +instance ToQuery VolumeDetail where + toQuery VolumeDetail{..} = mconcat + [ "size" =? _vdSize + ] + +data PricingDetail = PricingDetail + { _pdCount :: Maybe Int + , _pdPrice :: Maybe Double + } deriving (Eq, Ord, Show) + +-- | 'PricingDetail' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'pdCount' @::@ 'Maybe' 'Int' +-- +-- * 'pdPrice' @::@ 'Maybe' 'Double' +-- +pricingDetail :: PricingDetail +pricingDetail = PricingDetail + { _pdPrice = Nothing + , _pdCount = Nothing + } + +-- | The number of instances 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 ToQuery PricingDetail where + toQuery PricingDetail{..} = mconcat + [ "count" =? _pdCount + , "price" =? _pdPrice + ] + +data NetworkInterfacePrivateIpAddress = NetworkInterfacePrivateIpAddress + { _nipiaAssociation :: Maybe NetworkInterfaceAssociation + , _nipiaPrimary :: Maybe Bool + , _nipiaPrivateDnsName :: Maybe Text + , _nipiaPrivateIpAddress :: Maybe Text + } deriving (Eq, Show) + +-- | 'NetworkInterfacePrivateIpAddress' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'nipiaAssociation' @::@ 'Maybe' 'NetworkInterfaceAssociation' +-- +-- * 'nipiaPrimary' @::@ 'Maybe' 'Bool' +-- +-- * 'nipiaPrivateDnsName' @::@ 'Maybe' 'Text' +-- +-- * 'nipiaPrivateIpAddress' @::@ 'Maybe' 'Text' +-- +networkInterfacePrivateIpAddress :: NetworkInterfacePrivateIpAddress +networkInterfacePrivateIpAddress = NetworkInterfacePrivateIpAddress + { _nipiaPrivateIpAddress = Nothing + , _nipiaPrivateDnsName = Nothing + , _nipiaPrimary = Nothing + , _nipiaAssociation = Nothing + } + +-- | The association information for an Elastic IP address associated with the +-- network interface. +nipiaAssociation :: Lens' NetworkInterfacePrivateIpAddress (Maybe NetworkInterfaceAssociation) +nipiaAssociation = lens _nipiaAssociation (\s a -> s { _nipiaAssociation = a }) + +-- | Indicates whether this IP address is the primary private IP address of the +-- network interface. +nipiaPrimary :: Lens' NetworkInterfacePrivateIpAddress (Maybe Bool) +nipiaPrimary = lens _nipiaPrimary (\s a -> s { _nipiaPrimary = a }) + +-- | The private DNS name. +nipiaPrivateDnsName :: Lens' NetworkInterfacePrivateIpAddress (Maybe Text) +nipiaPrivateDnsName = + lens _nipiaPrivateDnsName (\s a -> s { _nipiaPrivateDnsName = a }) + +-- | The private IP address. +nipiaPrivateIpAddress :: Lens' NetworkInterfacePrivateIpAddress (Maybe Text) +nipiaPrivateIpAddress = + lens _nipiaPrivateIpAddress (\s a -> s { _nipiaPrivateIpAddress = a }) + +instance FromXML NetworkInterfacePrivateIpAddress where + parseXML x = NetworkInterfacePrivateIpAddress + <$> x .@? "association" + <*> x .@? "primary" + <*> x .@? "privateDnsName" + <*> x .@? "privateIpAddress" + +instance ToQuery NetworkInterfacePrivateIpAddress where + toQuery NetworkInterfacePrivateIpAddress{..} = mconcat + [ "association" =? _nipiaAssociation + , "primary" =? _nipiaPrimary + , "privateDnsName" =? _nipiaPrivateDnsName + , "privateIpAddress" =? _nipiaPrivateIpAddress + ] + +data DiskImageFormat + = Raw -- ^ RAW + | Vhd -- ^ VHD + | Vmdk -- ^ VMDK + deriving (Eq, Ord, Show, Generic, Enum) + +instance Hashable DiskImageFormat + +instance FromText DiskImageFormat where + parser = takeText >>= \case + "RAW" -> pure Raw + "VHD" -> pure Vhd + "VMDK" -> pure Vmdk + e -> fail $ + "Failure parsing DiskImageFormat from " ++ show e + +instance ToText DiskImageFormat where + toText = \case + Raw -> "RAW" + Vhd -> "VHD" + Vmdk -> "VMDK" + +instance ToByteString DiskImageFormat +instance ToHeader DiskImageFormat +instance ToQuery DiskImageFormat + +instance FromXML DiskImageFormat where + parseXML = parseXMLText "DiskImageFormat" data BundleTaskError = BundleTaskError { _bteCode :: Maybe Text 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 @@ -20,8 +20,7 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Unassigns one or more secondary private IP addresses from a network --- interface. +-- | Unassigns one or more secondary private IP addresses from a network interface. -- -- module Network.AWS.EC2.UnassignPrivateIpAddresses @@ -70,9 +69,9 @@ 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. +-- | 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 }) 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 @@ -21,8 +21,7 @@ -- Portability : non-portable (GHC extensions) -- | Disables monitoring for a running instance. For more information about --- monitoring instances, see Monitoring Your Instances and Volumes in the --- Amazon Elastic Compute Cloud User Guide. +-- monitoring instances, see in the /AmazonElastic Compute Cloud User Guide/. -- -- module Network.AWS.EC2.UnmonitorInstances 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 @@ -60,3 +60,4 @@ -- -- request ID -- +