{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.EC2.DescribeInstances
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Describes the specified instances or all instances.
--
-- If you specify instance IDs, the output includes information for only
-- the specified instances. If you specify filters, the output includes
-- information for only those instances that meet the filter criteria. If
-- you do not specify instance IDs or filters, the output includes
-- information for all instances, which can affect performance. We
-- recommend that you use pagination to ensure that the operation returns
-- quickly and successfully.
--
-- 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 output.
--
-- Recently terminated instances might appear in the returned results. This
-- interval is usually less than one hour.
--
-- If you describe instances in the rare case where an Availability Zone is
-- experiencing a service disruption and you specify instance IDs that are
-- in the affected zone, or do not specify any instance IDs at all, the
-- call fails. If you describe instances and specify only instance IDs that
-- are in an unaffected zone, the call works normally.
--
-- This operation returns paginated results.
module Amazonka.EC2.DescribeInstances
  ( -- * Creating a Request
    DescribeInstances (..),
    newDescribeInstances,

    -- * Request Lenses
    describeInstances_dryRun,
    describeInstances_filters,
    describeInstances_instanceIds,
    describeInstances_maxResults,
    describeInstances_nextToken,

    -- * Destructuring the Response
    DescribeInstancesResponse (..),
    newDescribeInstancesResponse,

    -- * Response Lenses
    describeInstancesResponse_nextToken,
    describeInstancesResponse_reservations,
    describeInstancesResponse_httpStatus,
  )
where

import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.EC2.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response

-- | /See:/ 'newDescribeInstances' smart constructor.
data DescribeInstances = DescribeInstances'
  { -- | Checks whether you have the required permissions for the action, without
    -- actually making the request, and provides an error response. If you have
    -- the required permissions, the error response is @DryRunOperation@.
    -- Otherwise, it is @UnauthorizedOperation@.
    DescribeInstances -> Maybe Bool
dryRun :: Prelude.Maybe Prelude.Bool,
    -- | The filters.
    --
    -- -   @affinity@ - The affinity setting for an instance running on a
    --     Dedicated Host (@default@ | @host@).
    --
    -- -   @architecture@ - The instance architecture (@i386@ | @x86_64@ |
    --     @arm64@).
    --
    -- -   @availability-zone@ - The Availability Zone of the instance.
    --
    -- -   @block-device-mapping.attach-time@ - The attach time for an EBS
    --     volume mapped to the instance, for example,
    --     @2010-09-15T17:15:20.000Z@.
    --
    -- -   @block-device-mapping.delete-on-termination@ - A Boolean that
    --     indicates whether the EBS volume is deleted on instance termination.
    --
    -- -   @block-device-mapping.device-name@ - The device name specified in
    --     the block device mapping (for example, @\/dev\/sdh@ or @xvdh@).
    --
    -- -   @block-device-mapping.status@ - The status for the EBS volume
    --     (@attaching@ | @attached@ | @detaching@ | @detached@).
    --
    -- -   @block-device-mapping.volume-id@ - The volume ID of the EBS volume.
    --
    -- -   @capacity-reservation-id@ - The ID of the Capacity Reservation into
    --     which the instance was launched.
    --
    -- -   @client-token@ - The idempotency token you provided when you
    --     launched the instance.
    --
    -- -   @dns-name@ - The public DNS name of the instance.
    --
    -- -   @group-id@ - The ID of the security group for the instance.
    --     EC2-Classic only.
    --
    -- -   @group-name@ - The name of the security group for the instance.
    --     EC2-Classic only.
    --
    -- -   @hibernation-options.configured@ - A Boolean that indicates whether
    --     the instance is enabled for hibernation. A value of @true@ means
    --     that the instance is enabled for hibernation.
    --
    -- -   @host-id@ - The ID of the Dedicated Host on which the instance is
    --     running, if applicable.
    --
    -- -   @hypervisor@ - The hypervisor type of the instance (@ovm@ | @xen@).
    --     The value @xen@ is used for both Xen and Nitro hypervisors.
    --
    -- -   @iam-instance-profile.arn@ - The instance profile associated with
    --     the instance. Specified as an ARN.
    --
    -- -   @image-id@ - The ID of the image used to launch the instance.
    --
    -- -   @instance-id@ - The ID of the instance.
    --
    -- -   @instance-lifecycle@ - Indicates whether this is a Spot Instance or
    --     a Scheduled Instance (@spot@ | @scheduled@).
    --
    -- -   @instance-state-code@ - The state of the instance, as a 16-bit
    --     unsigned integer. The high byte is used for internal purposes and
    --     should be ignored. The low byte is set based on the state
    --     represented. The valid values are: 0 (pending), 16 (running), 32
    --     (shutting-down), 48 (terminated), 64 (stopping), and 80 (stopped).
    --
    -- -   @instance-state-name@ - The state of the instance (@pending@ |
    --     @running@ | @shutting-down@ | @terminated@ | @stopping@ |
    --     @stopped@).
    --
    -- -   @instance-type@ - The type of instance (for example, @t2.micro@).
    --
    -- -   @instance.group-id@ - The ID of the security group for the instance.
    --
    -- -   @instance.group-name@ - The name of the security group for the
    --     instance.
    --
    -- -   @ip-address@ - The public IPv4 address of the instance.
    --
    -- -   @kernel-id@ - The kernel ID.
    --
    -- -   @key-name@ - The name of the key pair used when the instance was
    --     launched.
    --
    -- -   @launch-index@ - When launching multiple instances, this is the
    --     index for the instance in the launch group (for example, 0, 1, 2,
    --     and so on).
    --
    -- -   @launch-time@ - The time when the instance was launched, in the ISO
    --     8601 format in the UTC time zone (YYYY-MM-DDThh:mm:ss.sssZ), for
    --     example, @2021-09-29T11:04:43.305Z@. You can use a wildcard (@*@),
    --     for example, @2021-09-29T*@, which matches an entire day.
    --
    -- -   @metadata-options.http-tokens@ - The metadata request authorization
    --     state (@optional@ | @required@)
    --
    -- -   @metadata-options.http-put-response-hop-limit@ - The http metadata
    --     request put response hop limit (integer, possible values @1@ to
    --     @64@)
    --
    -- -   @metadata-options.http-endpoint@ - Enable or disable metadata access
    --     on http endpoint (@enabled@ | @disabled@)
    --
    -- -   @monitoring-state@ - Indicates whether detailed monitoring is
    --     enabled (@disabled@ | @enabled@).
    --
    -- -   @network-interface.addresses.private-ip-address@ - The private IPv4
    --     address associated with the network interface.
    --
    -- -   @network-interface.addresses.primary@ - Specifies whether the IPv4
    --     address of the network interface is the primary private IPv4
    --     address.
    --
    -- -   @network-interface.addresses.association.public-ip@ - The ID of the
    --     association of an Elastic IP address (IPv4) with a network
    --     interface.
    --
    -- -   @network-interface.addresses.association.ip-owner-id@ - The owner ID
    --     of the private IPv4 address associated with the network interface.
    --
    -- -   @network-interface.association.public-ip@ - The address of the
    --     Elastic IP address (IPv4) bound to the network interface.
    --
    -- -   @network-interface.association.ip-owner-id@ - The owner of the
    --     Elastic IP address (IPv4) associated with the network interface.
    --
    -- -   @network-interface.association.allocation-id@ - The allocation ID
    --     returned when you allocated the Elastic IP address (IPv4) for your
    --     network interface.
    --
    -- -   @network-interface.association.association-id@ - The association ID
    --     returned when the network interface was associated with an IPv4
    --     address.
    --
    -- -   @network-interface.attachment.attachment-id@ - The ID of the
    --     interface attachment.
    --
    -- -   @network-interface.attachment.instance-id@ - The ID of the instance
    --     to which the network interface is attached.
    --
    -- -   @network-interface.attachment.instance-owner-id@ - The owner ID of
    --     the instance to which the network interface is attached.
    --
    -- -   @network-interface.attachment.device-index@ - The device index to
    --     which the network interface is attached.
    --
    -- -   @network-interface.attachment.status@ - The status of the attachment
    --     (@attaching@ | @attached@ | @detaching@ | @detached@).
    --
    -- -   @network-interface.attachment.attach-time@ - The time that the
    --     network interface was attached to an instance.
    --
    -- -   @network-interface.attachment.delete-on-termination@ - Specifies
    --     whether the attachment is deleted when an instance is terminated.
    --
    -- -   @network-interface.availability-zone@ - The Availability Zone for
    --     the network interface.
    --
    -- -   @network-interface.description@ - The description of the network
    --     interface.
    --
    -- -   @network-interface.group-id@ - The ID of a security group associated
    --     with the network interface.
    --
    -- -   @network-interface.group-name@ - The name of a security group
    --     associated with the network interface.
    --
    -- -   @network-interface.ipv6-addresses.ipv6-address@ - The IPv6 address
    --     associated with the network interface.
    --
    -- -   @network-interface.mac-address@ - The MAC address of the network
    --     interface.
    --
    -- -   @network-interface.network-interface-id@ - The ID of the network
    --     interface.
    --
    -- -   @network-interface.owner-id@ - The ID of the owner of the network
    --     interface.
    --
    -- -   @network-interface.private-dns-name@ - The private DNS name of the
    --     network interface.
    --
    -- -   @network-interface.requester-id@ - The requester ID for the network
    --     interface.
    --
    -- -   @network-interface.requester-managed@ - Indicates whether the
    --     network interface is being managed by Amazon Web Services.
    --
    -- -   @network-interface.status@ - The status of the network interface
    --     (@available@) | @in-use@).
    --
    -- -   @network-interface.source-dest-check@ - Whether the network
    --     interface performs source\/destination checking. A value of @true@
    --     means that checking is enabled, and @false@ means that checking is
    --     disabled. The value must be @false@ for the network interface to
    --     perform network address translation (NAT) in your VPC.
    --
    -- -   @network-interface.subnet-id@ - The ID of the subnet for the network
    --     interface.
    --
    -- -   @network-interface.vpc-id@ - The ID of the VPC for the network
    --     interface.
    --
    -- -   @outpost-arn@ - The Amazon Resource Name (ARN) of the Outpost.
    --
    -- -   @owner-id@ - The Amazon Web Services account ID of the instance
    --     owner.
    --
    -- -   @placement-group-name@ - The name of the placement group for the
    --     instance.
    --
    -- -   @placement-partition-number@ - The partition in which the instance
    --     is located.
    --
    -- -   @platform@ - The platform. To list only Windows instances, use
    --     @windows@.
    --
    -- -   @private-dns-name@ - The private IPv4 DNS name of the instance.
    --
    -- -   @private-ip-address@ - The private IPv4 address of the instance.
    --
    -- -   @product-code@ - The product code associated with the AMI used to
    --     launch the instance.
    --
    -- -   @product-code.type@ - The type of product code (@devpay@ |
    --     @marketplace@).
    --
    -- -   @ramdisk-id@ - The RAM disk ID.
    --
    -- -   @reason@ - The reason for the current state of the instance (for
    --     example, shows \"User Initiated [date]\" when you stop or terminate
    --     the instance). Similar to the state-reason-code filter.
    --
    -- -   @requester-id@ - The ID of the entity that launched the instance on
    --     your behalf (for example, Amazon Web Services Management Console,
    --     Auto Scaling, and so on).
    --
    -- -   @reservation-id@ - The ID of the instance\'s reservation. A
    --     reservation ID is created any time you launch an instance. A
    --     reservation ID has a one-to-one relationship with an instance launch
    --     request, but can be associated with more than one instance if you
    --     launch multiple instances using the same launch request. For
    --     example, if you launch one instance, you get one reservation ID. If
    --     you launch ten instances using the same launch request, you also get
    --     one reservation ID.
    --
    -- -   @root-device-name@ - The device name of the root device volume (for
    --     example, @\/dev\/sda1@).
    --
    -- -   @root-device-type@ - The type of the root device volume (@ebs@ |
    --     @instance-store@).
    --
    -- -   @source-dest-check@ - Indicates whether the instance performs
    --     source\/destination checking. A value of @true@ means that checking
    --     is enabled, and @false@ means that checking is disabled. The value
    --     must be @false@ for the instance to perform network address
    --     translation (NAT) in your VPC.
    --
    -- -   @spot-instance-request-id@ - The ID of the Spot Instance request.
    --
    -- -   @state-reason-code@ - The reason code for the state change.
    --
    -- -   @state-reason-message@ - A message that describes the state change.
    --
    -- -   @subnet-id@ - The ID of the subnet for the instance.
    --
    -- -   @tag:\<key>@ - The key\/value combination of a tag assigned to the
    --     resource. Use the tag key in the filter name and the tag value as
    --     the filter value. For example, to find all resources that have a tag
    --     with the key @Owner@ and the value @TeamA@, specify @tag:Owner@ for
    --     the filter name and @TeamA@ for the filter value.
    --
    -- -   @tag-key@ - The key of a tag assigned to the resource. Use this
    --     filter to find all resources that have a tag with a specific key,
    --     regardless of the tag value.
    --
    -- -   @tenancy@ - The tenancy of an instance (@dedicated@ | @default@ |
    --     @host@).
    --
    -- -   @virtualization-type@ - The virtualization type of the instance
    --     (@paravirtual@ | @hvm@).
    --
    -- -   @vpc-id@ - The ID of the VPC that the instance is running in.
    DescribeInstances -> Maybe [Filter]
filters :: Prelude.Maybe [Filter],
    -- | The instance IDs.
    --
    -- Default: Describes all your instances.
    DescribeInstances -> Maybe [Text]
instanceIds :: Prelude.Maybe [Prelude.Text],
    -- | The maximum number of results to return in a single call. To retrieve
    -- the remaining results, make another call with the returned @NextToken@
    -- value. This value can be between 5 and 1000. You cannot specify this
    -- parameter and the instance IDs parameter in the same call.
    DescribeInstances -> Maybe Int
maxResults :: Prelude.Maybe Prelude.Int,
    -- | The token to request the next page of results.
    DescribeInstances -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text
  }
  deriving (DescribeInstances -> DescribeInstances -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeInstances -> DescribeInstances -> Bool
$c/= :: DescribeInstances -> DescribeInstances -> Bool
== :: DescribeInstances -> DescribeInstances -> Bool
$c== :: DescribeInstances -> DescribeInstances -> Bool
Prelude.Eq, ReadPrec [DescribeInstances]
ReadPrec DescribeInstances
Int -> ReadS DescribeInstances
ReadS [DescribeInstances]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeInstances]
$creadListPrec :: ReadPrec [DescribeInstances]
readPrec :: ReadPrec DescribeInstances
$creadPrec :: ReadPrec DescribeInstances
readList :: ReadS [DescribeInstances]
$creadList :: ReadS [DescribeInstances]
readsPrec :: Int -> ReadS DescribeInstances
$creadsPrec :: Int -> ReadS DescribeInstances
Prelude.Read, Int -> DescribeInstances -> ShowS
[DescribeInstances] -> ShowS
DescribeInstances -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeInstances] -> ShowS
$cshowList :: [DescribeInstances] -> ShowS
show :: DescribeInstances -> String
$cshow :: DescribeInstances -> String
showsPrec :: Int -> DescribeInstances -> ShowS
$cshowsPrec :: Int -> DescribeInstances -> ShowS
Prelude.Show, forall x. Rep DescribeInstances x -> DescribeInstances
forall x. DescribeInstances -> Rep DescribeInstances x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeInstances x -> DescribeInstances
$cfrom :: forall x. DescribeInstances -> Rep DescribeInstances x
Prelude.Generic)

-- |
-- Create a value of 'DescribeInstances' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'dryRun', 'describeInstances_dryRun' - Checks whether you have the required permissions for the action, without
-- actually making the request, and provides an error response. If you have
-- the required permissions, the error response is @DryRunOperation@.
-- Otherwise, it is @UnauthorizedOperation@.
--
-- 'filters', 'describeInstances_filters' - The filters.
--
-- -   @affinity@ - The affinity setting for an instance running on a
--     Dedicated Host (@default@ | @host@).
--
-- -   @architecture@ - The instance architecture (@i386@ | @x86_64@ |
--     @arm64@).
--
-- -   @availability-zone@ - The Availability Zone of the instance.
--
-- -   @block-device-mapping.attach-time@ - The attach time for an EBS
--     volume mapped to the instance, for example,
--     @2010-09-15T17:15:20.000Z@.
--
-- -   @block-device-mapping.delete-on-termination@ - A Boolean that
--     indicates whether the EBS volume is deleted on instance termination.
--
-- -   @block-device-mapping.device-name@ - The device name specified in
--     the block device mapping (for example, @\/dev\/sdh@ or @xvdh@).
--
-- -   @block-device-mapping.status@ - The status for the EBS volume
--     (@attaching@ | @attached@ | @detaching@ | @detached@).
--
-- -   @block-device-mapping.volume-id@ - The volume ID of the EBS volume.
--
-- -   @capacity-reservation-id@ - The ID of the Capacity Reservation into
--     which the instance was launched.
--
-- -   @client-token@ - The idempotency token you provided when you
--     launched the instance.
--
-- -   @dns-name@ - The public DNS name of the instance.
--
-- -   @group-id@ - The ID of the security group for the instance.
--     EC2-Classic only.
--
-- -   @group-name@ - The name of the security group for the instance.
--     EC2-Classic only.
--
-- -   @hibernation-options.configured@ - A Boolean that indicates whether
--     the instance is enabled for hibernation. A value of @true@ means
--     that the instance is enabled for hibernation.
--
-- -   @host-id@ - The ID of the Dedicated Host on which the instance is
--     running, if applicable.
--
-- -   @hypervisor@ - The hypervisor type of the instance (@ovm@ | @xen@).
--     The value @xen@ is used for both Xen and Nitro hypervisors.
--
-- -   @iam-instance-profile.arn@ - The instance profile associated with
--     the instance. Specified as an ARN.
--
-- -   @image-id@ - The ID of the image used to launch the instance.
--
-- -   @instance-id@ - The ID of the instance.
--
-- -   @instance-lifecycle@ - Indicates whether this is a Spot Instance or
--     a Scheduled Instance (@spot@ | @scheduled@).
--
-- -   @instance-state-code@ - The state of the instance, as a 16-bit
--     unsigned integer. The high byte is used for internal purposes and
--     should be ignored. The low byte is set based on the state
--     represented. The valid values are: 0 (pending), 16 (running), 32
--     (shutting-down), 48 (terminated), 64 (stopping), and 80 (stopped).
--
-- -   @instance-state-name@ - The state of the instance (@pending@ |
--     @running@ | @shutting-down@ | @terminated@ | @stopping@ |
--     @stopped@).
--
-- -   @instance-type@ - The type of instance (for example, @t2.micro@).
--
-- -   @instance.group-id@ - The ID of the security group for the instance.
--
-- -   @instance.group-name@ - The name of the security group for the
--     instance.
--
-- -   @ip-address@ - The public IPv4 address of the instance.
--
-- -   @kernel-id@ - The kernel ID.
--
-- -   @key-name@ - The name of the key pair used when the instance was
--     launched.
--
-- -   @launch-index@ - When launching multiple instances, this is the
--     index for the instance in the launch group (for example, 0, 1, 2,
--     and so on).
--
-- -   @launch-time@ - The time when the instance was launched, in the ISO
--     8601 format in the UTC time zone (YYYY-MM-DDThh:mm:ss.sssZ), for
--     example, @2021-09-29T11:04:43.305Z@. You can use a wildcard (@*@),
--     for example, @2021-09-29T*@, which matches an entire day.
--
-- -   @metadata-options.http-tokens@ - The metadata request authorization
--     state (@optional@ | @required@)
--
-- -   @metadata-options.http-put-response-hop-limit@ - The http metadata
--     request put response hop limit (integer, possible values @1@ to
--     @64@)
--
-- -   @metadata-options.http-endpoint@ - Enable or disable metadata access
--     on http endpoint (@enabled@ | @disabled@)
--
-- -   @monitoring-state@ - Indicates whether detailed monitoring is
--     enabled (@disabled@ | @enabled@).
--
-- -   @network-interface.addresses.private-ip-address@ - The private IPv4
--     address associated with the network interface.
--
-- -   @network-interface.addresses.primary@ - Specifies whether the IPv4
--     address of the network interface is the primary private IPv4
--     address.
--
-- -   @network-interface.addresses.association.public-ip@ - The ID of the
--     association of an Elastic IP address (IPv4) with a network
--     interface.
--
-- -   @network-interface.addresses.association.ip-owner-id@ - The owner ID
--     of the private IPv4 address associated with the network interface.
--
-- -   @network-interface.association.public-ip@ - The address of the
--     Elastic IP address (IPv4) bound to the network interface.
--
-- -   @network-interface.association.ip-owner-id@ - The owner of the
--     Elastic IP address (IPv4) associated with the network interface.
--
-- -   @network-interface.association.allocation-id@ - The allocation ID
--     returned when you allocated the Elastic IP address (IPv4) for your
--     network interface.
--
-- -   @network-interface.association.association-id@ - The association ID
--     returned when the network interface was associated with an IPv4
--     address.
--
-- -   @network-interface.attachment.attachment-id@ - The ID of the
--     interface attachment.
--
-- -   @network-interface.attachment.instance-id@ - The ID of the instance
--     to which the network interface is attached.
--
-- -   @network-interface.attachment.instance-owner-id@ - The owner ID of
--     the instance to which the network interface is attached.
--
-- -   @network-interface.attachment.device-index@ - The device index to
--     which the network interface is attached.
--
-- -   @network-interface.attachment.status@ - The status of the attachment
--     (@attaching@ | @attached@ | @detaching@ | @detached@).
--
-- -   @network-interface.attachment.attach-time@ - The time that the
--     network interface was attached to an instance.
--
-- -   @network-interface.attachment.delete-on-termination@ - Specifies
--     whether the attachment is deleted when an instance is terminated.
--
-- -   @network-interface.availability-zone@ - The Availability Zone for
--     the network interface.
--
-- -   @network-interface.description@ - The description of the network
--     interface.
--
-- -   @network-interface.group-id@ - The ID of a security group associated
--     with the network interface.
--
-- -   @network-interface.group-name@ - The name of a security group
--     associated with the network interface.
--
-- -   @network-interface.ipv6-addresses.ipv6-address@ - The IPv6 address
--     associated with the network interface.
--
-- -   @network-interface.mac-address@ - The MAC address of the network
--     interface.
--
-- -   @network-interface.network-interface-id@ - The ID of the network
--     interface.
--
-- -   @network-interface.owner-id@ - The ID of the owner of the network
--     interface.
--
-- -   @network-interface.private-dns-name@ - The private DNS name of the
--     network interface.
--
-- -   @network-interface.requester-id@ - The requester ID for the network
--     interface.
--
-- -   @network-interface.requester-managed@ - Indicates whether the
--     network interface is being managed by Amazon Web Services.
--
-- -   @network-interface.status@ - The status of the network interface
--     (@available@) | @in-use@).
--
-- -   @network-interface.source-dest-check@ - Whether the network
--     interface performs source\/destination checking. A value of @true@
--     means that checking is enabled, and @false@ means that checking is
--     disabled. The value must be @false@ for the network interface to
--     perform network address translation (NAT) in your VPC.
--
-- -   @network-interface.subnet-id@ - The ID of the subnet for the network
--     interface.
--
-- -   @network-interface.vpc-id@ - The ID of the VPC for the network
--     interface.
--
-- -   @outpost-arn@ - The Amazon Resource Name (ARN) of the Outpost.
--
-- -   @owner-id@ - The Amazon Web Services account ID of the instance
--     owner.
--
-- -   @placement-group-name@ - The name of the placement group for the
--     instance.
--
-- -   @placement-partition-number@ - The partition in which the instance
--     is located.
--
-- -   @platform@ - The platform. To list only Windows instances, use
--     @windows@.
--
-- -   @private-dns-name@ - The private IPv4 DNS name of the instance.
--
-- -   @private-ip-address@ - The private IPv4 address of the instance.
--
-- -   @product-code@ - The product code associated with the AMI used to
--     launch the instance.
--
-- -   @product-code.type@ - The type of product code (@devpay@ |
--     @marketplace@).
--
-- -   @ramdisk-id@ - The RAM disk ID.
--
-- -   @reason@ - The reason for the current state of the instance (for
--     example, shows \"User Initiated [date]\" when you stop or terminate
--     the instance). Similar to the state-reason-code filter.
--
-- -   @requester-id@ - The ID of the entity that launched the instance on
--     your behalf (for example, Amazon Web Services Management Console,
--     Auto Scaling, and so on).
--
-- -   @reservation-id@ - The ID of the instance\'s reservation. A
--     reservation ID is created any time you launch an instance. A
--     reservation ID has a one-to-one relationship with an instance launch
--     request, but can be associated with more than one instance if you
--     launch multiple instances using the same launch request. For
--     example, if you launch one instance, you get one reservation ID. If
--     you launch ten instances using the same launch request, you also get
--     one reservation ID.
--
-- -   @root-device-name@ - The device name of the root device volume (for
--     example, @\/dev\/sda1@).
--
-- -   @root-device-type@ - The type of the root device volume (@ebs@ |
--     @instance-store@).
--
-- -   @source-dest-check@ - Indicates whether the instance performs
--     source\/destination checking. A value of @true@ means that checking
--     is enabled, and @false@ means that checking is disabled. The value
--     must be @false@ for the instance to perform network address
--     translation (NAT) in your VPC.
--
-- -   @spot-instance-request-id@ - The ID of the Spot Instance request.
--
-- -   @state-reason-code@ - The reason code for the state change.
--
-- -   @state-reason-message@ - A message that describes the state change.
--
-- -   @subnet-id@ - The ID of the subnet for the instance.
--
-- -   @tag:\<key>@ - The key\/value combination of a tag assigned to the
--     resource. Use the tag key in the filter name and the tag value as
--     the filter value. For example, to find all resources that have a tag
--     with the key @Owner@ and the value @TeamA@, specify @tag:Owner@ for
--     the filter name and @TeamA@ for the filter value.
--
-- -   @tag-key@ - The key of a tag assigned to the resource. Use this
--     filter to find all resources that have a tag with a specific key,
--     regardless of the tag value.
--
-- -   @tenancy@ - The tenancy of an instance (@dedicated@ | @default@ |
--     @host@).
--
-- -   @virtualization-type@ - The virtualization type of the instance
--     (@paravirtual@ | @hvm@).
--
-- -   @vpc-id@ - The ID of the VPC that the instance is running in.
--
-- 'instanceIds', 'describeInstances_instanceIds' - The instance IDs.
--
-- Default: Describes all your instances.
--
-- 'maxResults', 'describeInstances_maxResults' - The maximum number of results to return in a single call. To retrieve
-- the remaining results, make another call with the returned @NextToken@
-- value. This value can be between 5 and 1000. You cannot specify this
-- parameter and the instance IDs parameter in the same call.
--
-- 'nextToken', 'describeInstances_nextToken' - The token to request the next page of results.
newDescribeInstances ::
  DescribeInstances
newDescribeInstances :: DescribeInstances
newDescribeInstances =
  DescribeInstances'
    { $sel:dryRun:DescribeInstances' :: Maybe Bool
dryRun = forall a. Maybe a
Prelude.Nothing,
      $sel:filters:DescribeInstances' :: Maybe [Filter]
filters = forall a. Maybe a
Prelude.Nothing,
      $sel:instanceIds:DescribeInstances' :: Maybe [Text]
instanceIds = forall a. Maybe a
Prelude.Nothing,
      $sel:maxResults:DescribeInstances' :: Maybe Int
maxResults = forall a. Maybe a
Prelude.Nothing,
      $sel:nextToken:DescribeInstances' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing
    }

-- | Checks whether you have the required permissions for the action, without
-- actually making the request, and provides an error response. If you have
-- the required permissions, the error response is @DryRunOperation@.
-- Otherwise, it is @UnauthorizedOperation@.
describeInstances_dryRun :: Lens.Lens' DescribeInstances (Prelude.Maybe Prelude.Bool)
describeInstances_dryRun :: Lens' DescribeInstances (Maybe Bool)
describeInstances_dryRun = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstances' {Maybe Bool
dryRun :: Maybe Bool
$sel:dryRun:DescribeInstances' :: DescribeInstances -> Maybe Bool
dryRun} -> Maybe Bool
dryRun) (\s :: DescribeInstances
s@DescribeInstances' {} Maybe Bool
a -> DescribeInstances
s {$sel:dryRun:DescribeInstances' :: Maybe Bool
dryRun = Maybe Bool
a} :: DescribeInstances)

-- | The filters.
--
-- -   @affinity@ - The affinity setting for an instance running on a
--     Dedicated Host (@default@ | @host@).
--
-- -   @architecture@ - The instance architecture (@i386@ | @x86_64@ |
--     @arm64@).
--
-- -   @availability-zone@ - The Availability Zone of the instance.
--
-- -   @block-device-mapping.attach-time@ - The attach time for an EBS
--     volume mapped to the instance, for example,
--     @2010-09-15T17:15:20.000Z@.
--
-- -   @block-device-mapping.delete-on-termination@ - A Boolean that
--     indicates whether the EBS volume is deleted on instance termination.
--
-- -   @block-device-mapping.device-name@ - The device name specified in
--     the block device mapping (for example, @\/dev\/sdh@ or @xvdh@).
--
-- -   @block-device-mapping.status@ - The status for the EBS volume
--     (@attaching@ | @attached@ | @detaching@ | @detached@).
--
-- -   @block-device-mapping.volume-id@ - The volume ID of the EBS volume.
--
-- -   @capacity-reservation-id@ - The ID of the Capacity Reservation into
--     which the instance was launched.
--
-- -   @client-token@ - The idempotency token you provided when you
--     launched the instance.
--
-- -   @dns-name@ - The public DNS name of the instance.
--
-- -   @group-id@ - The ID of the security group for the instance.
--     EC2-Classic only.
--
-- -   @group-name@ - The name of the security group for the instance.
--     EC2-Classic only.
--
-- -   @hibernation-options.configured@ - A Boolean that indicates whether
--     the instance is enabled for hibernation. A value of @true@ means
--     that the instance is enabled for hibernation.
--
-- -   @host-id@ - The ID of the Dedicated Host on which the instance is
--     running, if applicable.
--
-- -   @hypervisor@ - The hypervisor type of the instance (@ovm@ | @xen@).
--     The value @xen@ is used for both Xen and Nitro hypervisors.
--
-- -   @iam-instance-profile.arn@ - The instance profile associated with
--     the instance. Specified as an ARN.
--
-- -   @image-id@ - The ID of the image used to launch the instance.
--
-- -   @instance-id@ - The ID of the instance.
--
-- -   @instance-lifecycle@ - Indicates whether this is a Spot Instance or
--     a Scheduled Instance (@spot@ | @scheduled@).
--
-- -   @instance-state-code@ - The state of the instance, as a 16-bit
--     unsigned integer. The high byte is used for internal purposes and
--     should be ignored. The low byte is set based on the state
--     represented. The valid values are: 0 (pending), 16 (running), 32
--     (shutting-down), 48 (terminated), 64 (stopping), and 80 (stopped).
--
-- -   @instance-state-name@ - The state of the instance (@pending@ |
--     @running@ | @shutting-down@ | @terminated@ | @stopping@ |
--     @stopped@).
--
-- -   @instance-type@ - The type of instance (for example, @t2.micro@).
--
-- -   @instance.group-id@ - The ID of the security group for the instance.
--
-- -   @instance.group-name@ - The name of the security group for the
--     instance.
--
-- -   @ip-address@ - The public IPv4 address of the instance.
--
-- -   @kernel-id@ - The kernel ID.
--
-- -   @key-name@ - The name of the key pair used when the instance was
--     launched.
--
-- -   @launch-index@ - When launching multiple instances, this is the
--     index for the instance in the launch group (for example, 0, 1, 2,
--     and so on).
--
-- -   @launch-time@ - The time when the instance was launched, in the ISO
--     8601 format in the UTC time zone (YYYY-MM-DDThh:mm:ss.sssZ), for
--     example, @2021-09-29T11:04:43.305Z@. You can use a wildcard (@*@),
--     for example, @2021-09-29T*@, which matches an entire day.
--
-- -   @metadata-options.http-tokens@ - The metadata request authorization
--     state (@optional@ | @required@)
--
-- -   @metadata-options.http-put-response-hop-limit@ - The http metadata
--     request put response hop limit (integer, possible values @1@ to
--     @64@)
--
-- -   @metadata-options.http-endpoint@ - Enable or disable metadata access
--     on http endpoint (@enabled@ | @disabled@)
--
-- -   @monitoring-state@ - Indicates whether detailed monitoring is
--     enabled (@disabled@ | @enabled@).
--
-- -   @network-interface.addresses.private-ip-address@ - The private IPv4
--     address associated with the network interface.
--
-- -   @network-interface.addresses.primary@ - Specifies whether the IPv4
--     address of the network interface is the primary private IPv4
--     address.
--
-- -   @network-interface.addresses.association.public-ip@ - The ID of the
--     association of an Elastic IP address (IPv4) with a network
--     interface.
--
-- -   @network-interface.addresses.association.ip-owner-id@ - The owner ID
--     of the private IPv4 address associated with the network interface.
--
-- -   @network-interface.association.public-ip@ - The address of the
--     Elastic IP address (IPv4) bound to the network interface.
--
-- -   @network-interface.association.ip-owner-id@ - The owner of the
--     Elastic IP address (IPv4) associated with the network interface.
--
-- -   @network-interface.association.allocation-id@ - The allocation ID
--     returned when you allocated the Elastic IP address (IPv4) for your
--     network interface.
--
-- -   @network-interface.association.association-id@ - The association ID
--     returned when the network interface was associated with an IPv4
--     address.
--
-- -   @network-interface.attachment.attachment-id@ - The ID of the
--     interface attachment.
--
-- -   @network-interface.attachment.instance-id@ - The ID of the instance
--     to which the network interface is attached.
--
-- -   @network-interface.attachment.instance-owner-id@ - The owner ID of
--     the instance to which the network interface is attached.
--
-- -   @network-interface.attachment.device-index@ - The device index to
--     which the network interface is attached.
--
-- -   @network-interface.attachment.status@ - The status of the attachment
--     (@attaching@ | @attached@ | @detaching@ | @detached@).
--
-- -   @network-interface.attachment.attach-time@ - The time that the
--     network interface was attached to an instance.
--
-- -   @network-interface.attachment.delete-on-termination@ - Specifies
--     whether the attachment is deleted when an instance is terminated.
--
-- -   @network-interface.availability-zone@ - The Availability Zone for
--     the network interface.
--
-- -   @network-interface.description@ - The description of the network
--     interface.
--
-- -   @network-interface.group-id@ - The ID of a security group associated
--     with the network interface.
--
-- -   @network-interface.group-name@ - The name of a security group
--     associated with the network interface.
--
-- -   @network-interface.ipv6-addresses.ipv6-address@ - The IPv6 address
--     associated with the network interface.
--
-- -   @network-interface.mac-address@ - The MAC address of the network
--     interface.
--
-- -   @network-interface.network-interface-id@ - The ID of the network
--     interface.
--
-- -   @network-interface.owner-id@ - The ID of the owner of the network
--     interface.
--
-- -   @network-interface.private-dns-name@ - The private DNS name of the
--     network interface.
--
-- -   @network-interface.requester-id@ - The requester ID for the network
--     interface.
--
-- -   @network-interface.requester-managed@ - Indicates whether the
--     network interface is being managed by Amazon Web Services.
--
-- -   @network-interface.status@ - The status of the network interface
--     (@available@) | @in-use@).
--
-- -   @network-interface.source-dest-check@ - Whether the network
--     interface performs source\/destination checking. A value of @true@
--     means that checking is enabled, and @false@ means that checking is
--     disabled. The value must be @false@ for the network interface to
--     perform network address translation (NAT) in your VPC.
--
-- -   @network-interface.subnet-id@ - The ID of the subnet for the network
--     interface.
--
-- -   @network-interface.vpc-id@ - The ID of the VPC for the network
--     interface.
--
-- -   @outpost-arn@ - The Amazon Resource Name (ARN) of the Outpost.
--
-- -   @owner-id@ - The Amazon Web Services account ID of the instance
--     owner.
--
-- -   @placement-group-name@ - The name of the placement group for the
--     instance.
--
-- -   @placement-partition-number@ - The partition in which the instance
--     is located.
--
-- -   @platform@ - The platform. To list only Windows instances, use
--     @windows@.
--
-- -   @private-dns-name@ - The private IPv4 DNS name of the instance.
--
-- -   @private-ip-address@ - The private IPv4 address of the instance.
--
-- -   @product-code@ - The product code associated with the AMI used to
--     launch the instance.
--
-- -   @product-code.type@ - The type of product code (@devpay@ |
--     @marketplace@).
--
-- -   @ramdisk-id@ - The RAM disk ID.
--
-- -   @reason@ - The reason for the current state of the instance (for
--     example, shows \"User Initiated [date]\" when you stop or terminate
--     the instance). Similar to the state-reason-code filter.
--
-- -   @requester-id@ - The ID of the entity that launched the instance on
--     your behalf (for example, Amazon Web Services Management Console,
--     Auto Scaling, and so on).
--
-- -   @reservation-id@ - The ID of the instance\'s reservation. A
--     reservation ID is created any time you launch an instance. A
--     reservation ID has a one-to-one relationship with an instance launch
--     request, but can be associated with more than one instance if you
--     launch multiple instances using the same launch request. For
--     example, if you launch one instance, you get one reservation ID. If
--     you launch ten instances using the same launch request, you also get
--     one reservation ID.
--
-- -   @root-device-name@ - The device name of the root device volume (for
--     example, @\/dev\/sda1@).
--
-- -   @root-device-type@ - The type of the root device volume (@ebs@ |
--     @instance-store@).
--
-- -   @source-dest-check@ - Indicates whether the instance performs
--     source\/destination checking. A value of @true@ means that checking
--     is enabled, and @false@ means that checking is disabled. The value
--     must be @false@ for the instance to perform network address
--     translation (NAT) in your VPC.
--
-- -   @spot-instance-request-id@ - The ID of the Spot Instance request.
--
-- -   @state-reason-code@ - The reason code for the state change.
--
-- -   @state-reason-message@ - A message that describes the state change.
--
-- -   @subnet-id@ - The ID of the subnet for the instance.
--
-- -   @tag:\<key>@ - The key\/value combination of a tag assigned to the
--     resource. Use the tag key in the filter name and the tag value as
--     the filter value. For example, to find all resources that have a tag
--     with the key @Owner@ and the value @TeamA@, specify @tag:Owner@ for
--     the filter name and @TeamA@ for the filter value.
--
-- -   @tag-key@ - The key of a tag assigned to the resource. Use this
--     filter to find all resources that have a tag with a specific key,
--     regardless of the tag value.
--
-- -   @tenancy@ - The tenancy of an instance (@dedicated@ | @default@ |
--     @host@).
--
-- -   @virtualization-type@ - The virtualization type of the instance
--     (@paravirtual@ | @hvm@).
--
-- -   @vpc-id@ - The ID of the VPC that the instance is running in.
describeInstances_filters :: Lens.Lens' DescribeInstances (Prelude.Maybe [Filter])
describeInstances_filters :: Lens' DescribeInstances (Maybe [Filter])
describeInstances_filters = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstances' {Maybe [Filter]
filters :: Maybe [Filter]
$sel:filters:DescribeInstances' :: DescribeInstances -> Maybe [Filter]
filters} -> Maybe [Filter]
filters) (\s :: DescribeInstances
s@DescribeInstances' {} Maybe [Filter]
a -> DescribeInstances
s {$sel:filters:DescribeInstances' :: Maybe [Filter]
filters = Maybe [Filter]
a} :: DescribeInstances) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | The instance IDs.
--
-- Default: Describes all your instances.
describeInstances_instanceIds :: Lens.Lens' DescribeInstances (Prelude.Maybe [Prelude.Text])
describeInstances_instanceIds :: Lens' DescribeInstances (Maybe [Text])
describeInstances_instanceIds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstances' {Maybe [Text]
instanceIds :: Maybe [Text]
$sel:instanceIds:DescribeInstances' :: DescribeInstances -> Maybe [Text]
instanceIds} -> Maybe [Text]
instanceIds) (\s :: DescribeInstances
s@DescribeInstances' {} Maybe [Text]
a -> DescribeInstances
s {$sel:instanceIds:DescribeInstances' :: Maybe [Text]
instanceIds = Maybe [Text]
a} :: DescribeInstances) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | The maximum number of results to return in a single call. To retrieve
-- the remaining results, make another call with the returned @NextToken@
-- value. This value can be between 5 and 1000. You cannot specify this
-- parameter and the instance IDs parameter in the same call.
describeInstances_maxResults :: Lens.Lens' DescribeInstances (Prelude.Maybe Prelude.Int)
describeInstances_maxResults :: Lens' DescribeInstances (Maybe Int)
describeInstances_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstances' {Maybe Int
maxResults :: Maybe Int
$sel:maxResults:DescribeInstances' :: DescribeInstances -> Maybe Int
maxResults} -> Maybe Int
maxResults) (\s :: DescribeInstances
s@DescribeInstances' {} Maybe Int
a -> DescribeInstances
s {$sel:maxResults:DescribeInstances' :: Maybe Int
maxResults = Maybe Int
a} :: DescribeInstances)

-- | The token to request the next page of results.
describeInstances_nextToken :: Lens.Lens' DescribeInstances (Prelude.Maybe Prelude.Text)
describeInstances_nextToken :: Lens' DescribeInstances (Maybe Text)
describeInstances_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstances' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeInstances' :: DescribeInstances -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeInstances
s@DescribeInstances' {} Maybe Text
a -> DescribeInstances
s {$sel:nextToken:DescribeInstances' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeInstances)

instance Core.AWSPager DescribeInstances where
  page :: DescribeInstances
-> AWSResponse DescribeInstances -> Maybe DescribeInstances
page DescribeInstances
rq AWSResponse DescribeInstances
rs
    | forall a. AWSTruncated a => a -> Bool
Core.stop
        ( AWSResponse DescribeInstances
rs
            forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeInstancesResponse (Maybe Text)
describeInstancesResponse_nextToken
            forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
        ) =
        forall a. Maybe a
Prelude.Nothing
    | forall a. AWSTruncated a => a -> Bool
Core.stop
        ( AWSResponse DescribeInstances
rs
            forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeInstancesResponse (Maybe [Reservation])
describeInstancesResponse_reservations
            forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
        ) =
        forall a. Maybe a
Prelude.Nothing
    | Bool
Prelude.otherwise =
        forall a. a -> Maybe a
Prelude.Just
          forall a b. (a -> b) -> a -> b
Prelude.$ DescribeInstances
rq
          forall a b. a -> (a -> b) -> b
Prelude.& Lens' DescribeInstances (Maybe Text)
describeInstances_nextToken
          forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse DescribeInstances
rs
          forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeInstancesResponse (Maybe Text)
describeInstancesResponse_nextToken
          forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just

instance Core.AWSRequest DescribeInstances where
  type
    AWSResponse DescribeInstances =
      DescribeInstancesResponse
  request :: (Service -> Service)
-> DescribeInstances -> Request DescribeInstances
request Service -> Service
overrides =
    forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
  response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DescribeInstances
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse DescribeInstances)))
response =
    forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXML
      ( \Int
s ResponseHeaders
h [Node]
x ->
          Maybe Text
-> Maybe [Reservation] -> Int -> DescribeInstancesResponse
DescribeInstancesResponse'
            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"nextToken")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( [Node]
x
                            forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"reservationSet"
                            forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
                            forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
Prelude.>>= forall (f :: * -> *) a b.
Applicative f =>
([a] -> f b) -> [a] -> f (Maybe b)
Core.may (forall a. FromXML a => Text -> [Node] -> Either String [a]
Data.parseXMLList Text
"item")
                        )
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
      )

instance Prelude.Hashable DescribeInstances where
  hashWithSalt :: Int -> DescribeInstances -> Int
hashWithSalt Int
_salt DescribeInstances' {Maybe Bool
Maybe Int
Maybe [Text]
Maybe [Filter]
Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Int
instanceIds :: Maybe [Text]
filters :: Maybe [Filter]
dryRun :: Maybe Bool
$sel:nextToken:DescribeInstances' :: DescribeInstances -> Maybe Text
$sel:maxResults:DescribeInstances' :: DescribeInstances -> Maybe Int
$sel:instanceIds:DescribeInstances' :: DescribeInstances -> Maybe [Text]
$sel:filters:DescribeInstances' :: DescribeInstances -> Maybe [Filter]
$sel:dryRun:DescribeInstances' :: DescribeInstances -> Maybe Bool
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
dryRun
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Filter]
filters
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
instanceIds
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
maxResults
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken

instance Prelude.NFData DescribeInstances where
  rnf :: DescribeInstances -> ()
rnf DescribeInstances' {Maybe Bool
Maybe Int
Maybe [Text]
Maybe [Filter]
Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Int
instanceIds :: Maybe [Text]
filters :: Maybe [Filter]
dryRun :: Maybe Bool
$sel:nextToken:DescribeInstances' :: DescribeInstances -> Maybe Text
$sel:maxResults:DescribeInstances' :: DescribeInstances -> Maybe Int
$sel:instanceIds:DescribeInstances' :: DescribeInstances -> Maybe [Text]
$sel:filters:DescribeInstances' :: DescribeInstances -> Maybe [Filter]
$sel:dryRun:DescribeInstances' :: DescribeInstances -> Maybe Bool
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
dryRun
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Filter]
filters
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
instanceIds
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
maxResults
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken

instance Data.ToHeaders DescribeInstances where
  toHeaders :: DescribeInstances -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty

instance Data.ToPath DescribeInstances where
  toPath :: DescribeInstances -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"

instance Data.ToQuery DescribeInstances where
  toQuery :: DescribeInstances -> QueryString
toQuery DescribeInstances' {Maybe Bool
Maybe Int
Maybe [Text]
Maybe [Filter]
Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Int
instanceIds :: Maybe [Text]
filters :: Maybe [Filter]
dryRun :: Maybe Bool
$sel:nextToken:DescribeInstances' :: DescribeInstances -> Maybe Text
$sel:maxResults:DescribeInstances' :: DescribeInstances -> Maybe Int
$sel:instanceIds:DescribeInstances' :: DescribeInstances -> Maybe [Text]
$sel:filters:DescribeInstances' :: DescribeInstances -> Maybe [Filter]
$sel:dryRun:DescribeInstances' :: DescribeInstances -> Maybe Bool
..} =
    forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ ByteString
"Action"
          forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"DescribeInstances" :: Prelude.ByteString),
        ByteString
"Version"
          forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2016-11-15" :: Prelude.ByteString),
        ByteString
"DryRun" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
dryRun,
        forall a. ToQuery a => a -> QueryString
Data.toQuery
          (forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"Filter" forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Filter]
filters),
        forall a. ToQuery a => a -> QueryString
Data.toQuery
          ( forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"InstanceId"
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
instanceIds
          ),
        ByteString
"MaxResults" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
maxResults,
        ByteString
"NextToken" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
nextToken
      ]

-- | /See:/ 'newDescribeInstancesResponse' smart constructor.
data DescribeInstancesResponse = DescribeInstancesResponse'
  { -- | The token to use to retrieve the next page of results. This value is
    -- @null@ when there are no more results to return.
    DescribeInstancesResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
    -- | Information about the reservations.
    DescribeInstancesResponse -> Maybe [Reservation]
reservations :: Prelude.Maybe [Reservation],
    -- | The response's http status code.
    DescribeInstancesResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (DescribeInstancesResponse -> DescribeInstancesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeInstancesResponse -> DescribeInstancesResponse -> Bool
$c/= :: DescribeInstancesResponse -> DescribeInstancesResponse -> Bool
== :: DescribeInstancesResponse -> DescribeInstancesResponse -> Bool
$c== :: DescribeInstancesResponse -> DescribeInstancesResponse -> Bool
Prelude.Eq, ReadPrec [DescribeInstancesResponse]
ReadPrec DescribeInstancesResponse
Int -> ReadS DescribeInstancesResponse
ReadS [DescribeInstancesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeInstancesResponse]
$creadListPrec :: ReadPrec [DescribeInstancesResponse]
readPrec :: ReadPrec DescribeInstancesResponse
$creadPrec :: ReadPrec DescribeInstancesResponse
readList :: ReadS [DescribeInstancesResponse]
$creadList :: ReadS [DescribeInstancesResponse]
readsPrec :: Int -> ReadS DescribeInstancesResponse
$creadsPrec :: Int -> ReadS DescribeInstancesResponse
Prelude.Read, Int -> DescribeInstancesResponse -> ShowS
[DescribeInstancesResponse] -> ShowS
DescribeInstancesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeInstancesResponse] -> ShowS
$cshowList :: [DescribeInstancesResponse] -> ShowS
show :: DescribeInstancesResponse -> String
$cshow :: DescribeInstancesResponse -> String
showsPrec :: Int -> DescribeInstancesResponse -> ShowS
$cshowsPrec :: Int -> DescribeInstancesResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeInstancesResponse x -> DescribeInstancesResponse
forall x.
DescribeInstancesResponse -> Rep DescribeInstancesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeInstancesResponse x -> DescribeInstancesResponse
$cfrom :: forall x.
DescribeInstancesResponse -> Rep DescribeInstancesResponse x
Prelude.Generic)

-- |
-- Create a value of 'DescribeInstancesResponse' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'nextToken', 'describeInstancesResponse_nextToken' - The token to use to retrieve the next page of results. This value is
-- @null@ when there are no more results to return.
--
-- 'reservations', 'describeInstancesResponse_reservations' - Information about the reservations.
--
-- 'httpStatus', 'describeInstancesResponse_httpStatus' - The response's http status code.
newDescribeInstancesResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  DescribeInstancesResponse
newDescribeInstancesResponse :: Int -> DescribeInstancesResponse
newDescribeInstancesResponse Int
pHttpStatus_ =
  DescribeInstancesResponse'
    { $sel:nextToken:DescribeInstancesResponse' :: Maybe Text
nextToken =
        forall a. Maybe a
Prelude.Nothing,
      $sel:reservations:DescribeInstancesResponse' :: Maybe [Reservation]
reservations = forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:DescribeInstancesResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | The token to use to retrieve the next page of results. This value is
-- @null@ when there are no more results to return.
describeInstancesResponse_nextToken :: Lens.Lens' DescribeInstancesResponse (Prelude.Maybe Prelude.Text)
describeInstancesResponse_nextToken :: Lens' DescribeInstancesResponse (Maybe Text)
describeInstancesResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstancesResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeInstancesResponse' :: DescribeInstancesResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeInstancesResponse
s@DescribeInstancesResponse' {} Maybe Text
a -> DescribeInstancesResponse
s {$sel:nextToken:DescribeInstancesResponse' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeInstancesResponse)

-- | Information about the reservations.
describeInstancesResponse_reservations :: Lens.Lens' DescribeInstancesResponse (Prelude.Maybe [Reservation])
describeInstancesResponse_reservations :: Lens' DescribeInstancesResponse (Maybe [Reservation])
describeInstancesResponse_reservations = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstancesResponse' {Maybe [Reservation]
reservations :: Maybe [Reservation]
$sel:reservations:DescribeInstancesResponse' :: DescribeInstancesResponse -> Maybe [Reservation]
reservations} -> Maybe [Reservation]
reservations) (\s :: DescribeInstancesResponse
s@DescribeInstancesResponse' {} Maybe [Reservation]
a -> DescribeInstancesResponse
s {$sel:reservations:DescribeInstancesResponse' :: Maybe [Reservation]
reservations = Maybe [Reservation]
a} :: DescribeInstancesResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | The response's http status code.
describeInstancesResponse_httpStatus :: Lens.Lens' DescribeInstancesResponse Prelude.Int
describeInstancesResponse_httpStatus :: Lens' DescribeInstancesResponse Int
describeInstancesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstancesResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeInstancesResponse' :: DescribeInstancesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeInstancesResponse
s@DescribeInstancesResponse' {} Int
a -> DescribeInstancesResponse
s {$sel:httpStatus:DescribeInstancesResponse' :: Int
httpStatus = Int
a} :: DescribeInstancesResponse)

instance Prelude.NFData DescribeInstancesResponse where
  rnf :: DescribeInstancesResponse -> ()
rnf DescribeInstancesResponse' {Int
Maybe [Reservation]
Maybe Text
httpStatus :: Int
reservations :: Maybe [Reservation]
nextToken :: Maybe Text
$sel:httpStatus:DescribeInstancesResponse' :: DescribeInstancesResponse -> Int
$sel:reservations:DescribeInstancesResponse' :: DescribeInstancesResponse -> Maybe [Reservation]
$sel:nextToken:DescribeInstancesResponse' :: DescribeInstancesResponse -> Maybe Text
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Reservation]
reservations
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus