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

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

-- |
-- Module      : Amazonka.Batch.Types.ComputeResource
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
module Amazonka.Batch.Types.ComputeResource where

import Amazonka.Batch.Types.CRAllocationStrategy
import Amazonka.Batch.Types.CRType
import Amazonka.Batch.Types.Ec2Configuration
import Amazonka.Batch.Types.LaunchTemplateSpecification
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude

-- | An object that represents an Batch compute resource. For more
-- information, see
-- <https://docs.aws.amazon.com/batch/latest/userguide/compute_environments.html Compute environments>
-- in the /Batch User Guide/.
--
-- /See:/ 'newComputeResource' smart constructor.
data ComputeResource = ComputeResource'
  { -- | The allocation strategy to use for the compute resource if not enough
    -- instances of the best fitting instance type can be allocated. This might
    -- be because of availability of the instance type in the Region or
    -- <https://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-resource-limits.html Amazon EC2 service limits>.
    -- For more information, see
    -- <https://docs.aws.amazon.com/batch/latest/userguide/allocation-strategies.html Allocation strategies>
    -- in the /Batch User Guide/.
    --
    -- This parameter isn\'t applicable to jobs that are running on Fargate
    -- resources. Don\'t specify it.
    --
    -- [BEST_FIT (default)]
    --     Batch selects an instance type that best fits the needs of the jobs
    --     with a preference for the lowest-cost instance type. If additional
    --     instances of the selected instance type aren\'t available, Batch
    --     waits for the additional instances to be available. If there aren\'t
    --     enough instances available or the user is reaching
    --     <https://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-resource-limits.html Amazon EC2 service limits>,
    --     additional jobs aren\'t run until the currently running jobs are
    --     completed. This allocation strategy keeps costs lower but can limit
    --     scaling. If you\'re using Spot Fleets with @BEST_FIT@, the Spot
    --     Fleet IAM Role must be specified. Compute resources that use a
    --     @BEST_FIT@ allocation strategy don\'t support infrastructure updates
    --     and can\'t update some parameters. For more information, see
    --     <https://docs.aws.amazon.com/batch/latest/userguide/updating-compute-environments.html Updating compute environments>
    --     in the /Batch User Guide/.
    --
    -- [BEST_FIT_PROGRESSIVE]
    --     Batch selects additional instance types that are large enough to
    --     meet the requirements of the jobs in the queue. Its preference is
    --     for instance types with lower cost vCPUs. If additional instances of
    --     the previously selected instance types aren\'t available, Batch
    --     selects new instance types.
    --
    -- [SPOT_CAPACITY_OPTIMIZED]
    --     Batch selects one or more instance types that are large enough to
    --     meet the requirements of the jobs in the queue. Its preference is
    --     for instance types that are less likely to be interrupted. This
    --     allocation strategy is only available for Spot Instance compute
    --     resources.
    --
    -- With both @BEST_FIT_PROGRESSIVE@ and @SPOT_CAPACITY_OPTIMIZED@
    -- strategies using On-Demand or Spot Instances, and the @BEST_FIT@
    -- strategy using Spot Instances, Batch might need to exceed @maxvCpus@ to
    -- meet your capacity requirements. In this event, Batch never exceeds
    -- @maxvCpus@ by more than a single instance.
    ComputeResource -> Maybe CRAllocationStrategy
allocationStrategy :: Prelude.Maybe CRAllocationStrategy,
    -- | The maximum percentage that a Spot Instance price can be when compared
    -- with the On-Demand price for that instance type before instances are
    -- launched. For example, if your maximum percentage is 20%, then the Spot
    -- price must be less than 20% of the current On-Demand price for that
    -- Amazon EC2 instance. You always pay the lowest (market) price and never
    -- more than your maximum percentage. If you leave this field empty, the
    -- default value is 100% of the On-Demand price. For most use cases, we
    -- recommend leaving this field empty.
    --
    -- This parameter isn\'t applicable to jobs that are running on Fargate
    -- resources. Don\'t specify it.
    ComputeResource -> Maybe Int
bidPercentage :: Prelude.Maybe Prelude.Int,
    -- | The desired number of Amazon EC2 vCPUS in the compute environment. Batch
    -- modifies this value between the minimum and maximum values based on job
    -- queue demand.
    --
    -- This parameter isn\'t applicable to jobs that are running on Fargate
    -- resources. Don\'t specify it.
    ComputeResource -> Maybe Int
desiredvCpus :: Prelude.Maybe Prelude.Int,
    -- | Provides information that\'s used to select Amazon Machine Images (AMIs)
    -- for EC2 instances in the compute environment. If @Ec2Configuration@
    -- isn\'t specified, the default is @ECS_AL2@.
    --
    -- One or two values can be provided.
    --
    -- This parameter isn\'t applicable to jobs that are running on Fargate
    -- resources. Don\'t specify it.
    ComputeResource -> Maybe [Ec2Configuration]
ec2Configuration :: Prelude.Maybe [Ec2Configuration],
    -- | The Amazon EC2 key pair that\'s used for instances launched in the
    -- compute environment. You can use this key pair to log in to your
    -- instances with SSH.
    --
    -- This parameter isn\'t applicable to jobs that are running on Fargate
    -- resources. Don\'t specify it.
    ComputeResource -> Maybe Text
ec2KeyPair :: Prelude.Maybe Prelude.Text,
    -- | The Amazon Machine Image (AMI) ID used for instances launched in the
    -- compute environment. This parameter is overridden by the
    -- @imageIdOverride@ member of the @Ec2Configuration@ structure.
    --
    -- This parameter isn\'t applicable to jobs that are running on Fargate
    -- resources. Don\'t specify it.
    --
    -- The AMI that you choose for a compute environment must match the
    -- architecture of the instance types that you intend to use for that
    -- compute environment. For example, if your compute environment uses A1
    -- instance types, the compute resource AMI that you choose must support
    -- ARM instances. Amazon ECS vends both x86 and ARM versions of the Amazon
    -- ECS-optimized Amazon Linux 2 AMI. For more information, see
    -- <https://docs.aws.amazon.com/AmazonECS/latest/developerguide/ecs-optimized_AMI.html#ecs-optimized-ami-linux-variants.html Amazon ECS-optimized Amazon Linux 2 AMI>
    -- in the /Amazon Elastic Container Service Developer Guide/.
    ComputeResource -> Maybe Text
imageId :: Prelude.Maybe Prelude.Text,
    -- | The Amazon ECS instance profile applied to Amazon EC2 instances in a
    -- compute environment. You can specify the short name or full Amazon
    -- Resource Name (ARN) of an instance profile. For example,
    -- @ @/@ecsInstanceRole@/@ @ or
    -- @arn:aws:iam::@/@\<aws_account_id>@/@:instance-profile\/@/@ecsInstanceRole@/@ @.
    -- For more information, see
    -- <https://docs.aws.amazon.com/batch/latest/userguide/instance_IAM_role.html Amazon ECS instance role>
    -- in the /Batch User Guide/.
    --
    -- This parameter isn\'t applicable to jobs that are running on Fargate
    -- resources. Don\'t specify it.
    ComputeResource -> Maybe Text
instanceRole :: Prelude.Maybe Prelude.Text,
    -- | The instances types that can be launched. You can specify instance
    -- families to launch any instance type within those families (for example,
    -- @c5@ or @p3@), or you can specify specific sizes within a family (such
    -- as @c5.8xlarge@). You can also choose @optimal@ to select instance types
    -- (from the C4, M4, and R4 instance families) that match the demand of
    -- your job queues.
    --
    -- This parameter isn\'t applicable to jobs that are running on Fargate
    -- resources. Don\'t specify it.
    --
    -- When you create a compute environment, the instance types that you
    -- select for the compute environment must share the same architecture. For
    -- example, you can\'t mix x86 and ARM instances in the same compute
    -- environment.
    --
    -- Currently, @optimal@ uses instance types from the C4, M4, and R4
    -- instance families. In Regions that don\'t have instance types from those
    -- instance families, instance types from the C5, M5, and R5 instance
    -- families are used.
    ComputeResource -> Maybe [Text]
instanceTypes :: Prelude.Maybe [Prelude.Text],
    -- | The launch template to use for your compute resources. Any other compute
    -- resource parameters that you specify in a CreateComputeEnvironment API
    -- operation override the same parameters in the launch template. You must
    -- specify either the launch template ID or launch template name in the
    -- request, but not both. For more information, see
    -- <https://docs.aws.amazon.com/batch/latest/userguide/launch-templates.html Launch template support>
    -- in the /Batch User Guide/.
    --
    -- This parameter isn\'t applicable to jobs that are running on Fargate
    -- resources. Don\'t specify it.
    ComputeResource -> Maybe LaunchTemplateSpecification
launchTemplate :: Prelude.Maybe LaunchTemplateSpecification,
    -- | The minimum number of Amazon EC2 vCPUs that an environment should
    -- maintain (even if the compute environment is @DISABLED@).
    --
    -- This parameter isn\'t applicable to jobs that are running on Fargate
    -- resources. Don\'t specify it.
    ComputeResource -> Maybe Int
minvCpus :: Prelude.Maybe Prelude.Int,
    -- | The Amazon EC2 placement group to associate with your compute resources.
    -- If you intend to submit multi-node parallel jobs to your compute
    -- environment, you should consider creating a cluster placement group and
    -- associate it with your compute resources. This keeps your multi-node
    -- parallel job on a logical grouping of instances within a single
    -- Availability Zone with high network flow potential. For more
    -- information, see
    -- <https://docs.aws.amazon.com/AWSEC2/latest/UserGuide/placement-groups.html Placement groups>
    -- in the /Amazon EC2 User Guide for Linux Instances/.
    --
    -- This parameter isn\'t applicable to jobs that are running on Fargate
    -- resources. Don\'t specify it.
    ComputeResource -> Maybe Text
placementGroup :: Prelude.Maybe Prelude.Text,
    -- | The Amazon EC2 security groups that are associated with instances
    -- launched in the compute environment. One or more security groups must be
    -- specified, either in @securityGroupIds@ or using a launch template
    -- referenced in @launchTemplate@. This parameter is required for jobs that
    -- are running on Fargate resources and must contain at least one security
    -- group. Fargate doesn\'t support launch templates. If security groups are
    -- specified using both @securityGroupIds@ and @launchTemplate@, the values
    -- in @securityGroupIds@ are used.
    ComputeResource -> Maybe [Text]
securityGroupIds :: Prelude.Maybe [Prelude.Text],
    -- | The Amazon Resource Name (ARN) of the Amazon EC2 Spot Fleet IAM role
    -- applied to a @SPOT@ compute environment. This role is required if the
    -- allocation strategy set to @BEST_FIT@ or if the allocation strategy
    -- isn\'t specified. For more information, see
    -- <https://docs.aws.amazon.com/batch/latest/userguide/spot_fleet_IAM_role.html Amazon EC2 spot fleet role>
    -- in the /Batch User Guide/.
    --
    -- This parameter isn\'t applicable to jobs that are running on Fargate
    -- resources. Don\'t specify it.
    --
    -- To tag your Spot Instances on creation, the Spot Fleet IAM role
    -- specified here must use the newer __AmazonEC2SpotFleetTaggingRole__
    -- managed policy. The previously recommended __AmazonEC2SpotFleetRole__
    -- managed policy doesn\'t have the required permissions to tag Spot
    -- Instances. For more information, see
    -- <https://docs.aws.amazon.com/batch/latest/userguide/troubleshooting.html#spot-instance-no-tag Spot instances not tagged on creation>
    -- in the /Batch User Guide/.
    ComputeResource -> Maybe Text
spotIamFleetRole :: Prelude.Maybe Prelude.Text,
    -- | Key-value pair tags to be applied to EC2 resources that are launched in
    -- the compute environment. For Batch, these take the form of
    -- @\"String1\": \"String2\"@, where @String1@ is the tag key and @String2@
    -- is the tag value-for example,
    -- @{ \"Name\": \"Batch Instance - C4OnDemand\" }@. This is helpful for
    -- recognizing your Batch instances in the Amazon EC2 console. Updating
    -- these tags requires an infrastructure update to the compute environment.
    -- For more information, see
    -- <https://docs.aws.amazon.com/batch/latest/userguide/updating-compute-environments.html Updating compute environments>
    -- in the /Batch User Guide/. These tags aren\'t seen when using the Batch
    -- @ListTagsForResource@ API operation.
    --
    -- This parameter isn\'t applicable to jobs that are running on Fargate
    -- resources. Don\'t specify it.
    ComputeResource -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
    -- | The type of compute environment: @EC2@, @SPOT@, @FARGATE@, or
    -- @FARGATE_SPOT@. For more information, see
    -- <https://docs.aws.amazon.com/batch/latest/userguide/compute_environments.html Compute environments>
    -- in the /Batch User Guide/.
    --
    -- If you choose @SPOT@, you must also specify an Amazon EC2 Spot Fleet
    -- role with the @spotIamFleetRole@ parameter. For more information, see
    -- <https://docs.aws.amazon.com/batch/latest/userguide/spot_fleet_IAM_role.html Amazon EC2 spot fleet role>
    -- in the /Batch User Guide/.
    ComputeResource -> CRType
type' :: CRType,
    -- | The maximum number of Amazon EC2 vCPUs that a compute environment can
    -- reach.
    --
    -- With both @BEST_FIT_PROGRESSIVE@ and @SPOT_CAPACITY_OPTIMIZED@
    -- allocation strategies using On-Demand or Spot Instances, and the
    -- @BEST_FIT@ strategy using Spot Instances, Batch might need to exceed
    -- @maxvCpus@ to meet your capacity requirements. In this event, Batch
    -- never exceeds @maxvCpus@ by more than a single instance. For example, no
    -- more than a single instance from among those specified in your compute
    -- environment is allocated.
    ComputeResource -> Int
maxvCpus :: Prelude.Int,
    -- | The VPC subnets where the compute resources are launched. These subnets
    -- must be within the same VPC. Fargate compute resources can contain up to
    -- 16 subnets. For more information, see
    -- <https://docs.aws.amazon.com/vpc/latest/userguide/VPC_Subnets.html VPCs and subnets>
    -- in the /Amazon VPC User Guide/.
    --
    -- Batch on Amazon EC2 and Batch on Amazon EKS support Local Zones. For
    -- more information, see
    -- <https://docs.aws.amazon.com/AWSEC2/latest/UserGuide/using-regions-availability-zones.html#concepts-local-zones Local Zones>
    -- in the /Amazon EC2 User Guide for Linux Instances/,
    -- <https://docs.aws.amazon.com/eks/latest/userguide/local-zones.html Amazon EKS and Amazon Web Services Local Zones>
    -- in the /Amazon EKS User Guide/ and
    -- <https://docs.aws.amazon.com/AmazonECS/latest/developerguide/cluster-regions-zones.html#clusters-local-zones Amazon ECS clusters in Local Zones, Wavelength Zones, and Amazon Web Services Outposts>
    -- in the /Amazon ECS Developer Guide/.
    --
    -- Batch on Fargate doesn\'t currently support Local Zones.
    ComputeResource -> [Text]
subnets :: [Prelude.Text]
  }
  deriving (ComputeResource -> ComputeResource -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ComputeResource -> ComputeResource -> Bool
$c/= :: ComputeResource -> ComputeResource -> Bool
== :: ComputeResource -> ComputeResource -> Bool
$c== :: ComputeResource -> ComputeResource -> Bool
Prelude.Eq, ReadPrec [ComputeResource]
ReadPrec ComputeResource
Int -> ReadS ComputeResource
ReadS [ComputeResource]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ComputeResource]
$creadListPrec :: ReadPrec [ComputeResource]
readPrec :: ReadPrec ComputeResource
$creadPrec :: ReadPrec ComputeResource
readList :: ReadS [ComputeResource]
$creadList :: ReadS [ComputeResource]
readsPrec :: Int -> ReadS ComputeResource
$creadsPrec :: Int -> ReadS ComputeResource
Prelude.Read, Int -> ComputeResource -> ShowS
[ComputeResource] -> ShowS
ComputeResource -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ComputeResource] -> ShowS
$cshowList :: [ComputeResource] -> ShowS
show :: ComputeResource -> String
$cshow :: ComputeResource -> String
showsPrec :: Int -> ComputeResource -> ShowS
$cshowsPrec :: Int -> ComputeResource -> ShowS
Prelude.Show, forall x. Rep ComputeResource x -> ComputeResource
forall x. ComputeResource -> Rep ComputeResource x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ComputeResource x -> ComputeResource
$cfrom :: forall x. ComputeResource -> Rep ComputeResource x
Prelude.Generic)

-- |
-- Create a value of 'ComputeResource' 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:
--
-- 'allocationStrategy', 'computeResource_allocationStrategy' - The allocation strategy to use for the compute resource if not enough
-- instances of the best fitting instance type can be allocated. This might
-- be because of availability of the instance type in the Region or
-- <https://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-resource-limits.html Amazon EC2 service limits>.
-- For more information, see
-- <https://docs.aws.amazon.com/batch/latest/userguide/allocation-strategies.html Allocation strategies>
-- in the /Batch User Guide/.
--
-- This parameter isn\'t applicable to jobs that are running on Fargate
-- resources. Don\'t specify it.
--
-- [BEST_FIT (default)]
--     Batch selects an instance type that best fits the needs of the jobs
--     with a preference for the lowest-cost instance type. If additional
--     instances of the selected instance type aren\'t available, Batch
--     waits for the additional instances to be available. If there aren\'t
--     enough instances available or the user is reaching
--     <https://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-resource-limits.html Amazon EC2 service limits>,
--     additional jobs aren\'t run until the currently running jobs are
--     completed. This allocation strategy keeps costs lower but can limit
--     scaling. If you\'re using Spot Fleets with @BEST_FIT@, the Spot
--     Fleet IAM Role must be specified. Compute resources that use a
--     @BEST_FIT@ allocation strategy don\'t support infrastructure updates
--     and can\'t update some parameters. For more information, see
--     <https://docs.aws.amazon.com/batch/latest/userguide/updating-compute-environments.html Updating compute environments>
--     in the /Batch User Guide/.
--
-- [BEST_FIT_PROGRESSIVE]
--     Batch selects additional instance types that are large enough to
--     meet the requirements of the jobs in the queue. Its preference is
--     for instance types with lower cost vCPUs. If additional instances of
--     the previously selected instance types aren\'t available, Batch
--     selects new instance types.
--
-- [SPOT_CAPACITY_OPTIMIZED]
--     Batch selects one or more instance types that are large enough to
--     meet the requirements of the jobs in the queue. Its preference is
--     for instance types that are less likely to be interrupted. This
--     allocation strategy is only available for Spot Instance compute
--     resources.
--
-- With both @BEST_FIT_PROGRESSIVE@ and @SPOT_CAPACITY_OPTIMIZED@
-- strategies using On-Demand or Spot Instances, and the @BEST_FIT@
-- strategy using Spot Instances, Batch might need to exceed @maxvCpus@ to
-- meet your capacity requirements. In this event, Batch never exceeds
-- @maxvCpus@ by more than a single instance.
--
-- 'bidPercentage', 'computeResource_bidPercentage' - The maximum percentage that a Spot Instance price can be when compared
-- with the On-Demand price for that instance type before instances are
-- launched. For example, if your maximum percentage is 20%, then the Spot
-- price must be less than 20% of the current On-Demand price for that
-- Amazon EC2 instance. You always pay the lowest (market) price and never
-- more than your maximum percentage. If you leave this field empty, the
-- default value is 100% of the On-Demand price. For most use cases, we
-- recommend leaving this field empty.
--
-- This parameter isn\'t applicable to jobs that are running on Fargate
-- resources. Don\'t specify it.
--
-- 'desiredvCpus', 'computeResource_desiredvCpus' - The desired number of Amazon EC2 vCPUS in the compute environment. Batch
-- modifies this value between the minimum and maximum values based on job
-- queue demand.
--
-- This parameter isn\'t applicable to jobs that are running on Fargate
-- resources. Don\'t specify it.
--
-- 'ec2Configuration', 'computeResource_ec2Configuration' - Provides information that\'s used to select Amazon Machine Images (AMIs)
-- for EC2 instances in the compute environment. If @Ec2Configuration@
-- isn\'t specified, the default is @ECS_AL2@.
--
-- One or two values can be provided.
--
-- This parameter isn\'t applicable to jobs that are running on Fargate
-- resources. Don\'t specify it.
--
-- 'ec2KeyPair', 'computeResource_ec2KeyPair' - The Amazon EC2 key pair that\'s used for instances launched in the
-- compute environment. You can use this key pair to log in to your
-- instances with SSH.
--
-- This parameter isn\'t applicable to jobs that are running on Fargate
-- resources. Don\'t specify it.
--
-- 'imageId', 'computeResource_imageId' - The Amazon Machine Image (AMI) ID used for instances launched in the
-- compute environment. This parameter is overridden by the
-- @imageIdOverride@ member of the @Ec2Configuration@ structure.
--
-- This parameter isn\'t applicable to jobs that are running on Fargate
-- resources. Don\'t specify it.
--
-- The AMI that you choose for a compute environment must match the
-- architecture of the instance types that you intend to use for that
-- compute environment. For example, if your compute environment uses A1
-- instance types, the compute resource AMI that you choose must support
-- ARM instances. Amazon ECS vends both x86 and ARM versions of the Amazon
-- ECS-optimized Amazon Linux 2 AMI. For more information, see
-- <https://docs.aws.amazon.com/AmazonECS/latest/developerguide/ecs-optimized_AMI.html#ecs-optimized-ami-linux-variants.html Amazon ECS-optimized Amazon Linux 2 AMI>
-- in the /Amazon Elastic Container Service Developer Guide/.
--
-- 'instanceRole', 'computeResource_instanceRole' - The Amazon ECS instance profile applied to Amazon EC2 instances in a
-- compute environment. You can specify the short name or full Amazon
-- Resource Name (ARN) of an instance profile. For example,
-- @ @/@ecsInstanceRole@/@ @ or
-- @arn:aws:iam::@/@\<aws_account_id>@/@:instance-profile\/@/@ecsInstanceRole@/@ @.
-- For more information, see
-- <https://docs.aws.amazon.com/batch/latest/userguide/instance_IAM_role.html Amazon ECS instance role>
-- in the /Batch User Guide/.
--
-- This parameter isn\'t applicable to jobs that are running on Fargate
-- resources. Don\'t specify it.
--
-- 'instanceTypes', 'computeResource_instanceTypes' - The instances types that can be launched. You can specify instance
-- families to launch any instance type within those families (for example,
-- @c5@ or @p3@), or you can specify specific sizes within a family (such
-- as @c5.8xlarge@). You can also choose @optimal@ to select instance types
-- (from the C4, M4, and R4 instance families) that match the demand of
-- your job queues.
--
-- This parameter isn\'t applicable to jobs that are running on Fargate
-- resources. Don\'t specify it.
--
-- When you create a compute environment, the instance types that you
-- select for the compute environment must share the same architecture. For
-- example, you can\'t mix x86 and ARM instances in the same compute
-- environment.
--
-- Currently, @optimal@ uses instance types from the C4, M4, and R4
-- instance families. In Regions that don\'t have instance types from those
-- instance families, instance types from the C5, M5, and R5 instance
-- families are used.
--
-- 'launchTemplate', 'computeResource_launchTemplate' - The launch template to use for your compute resources. Any other compute
-- resource parameters that you specify in a CreateComputeEnvironment API
-- operation override the same parameters in the launch template. You must
-- specify either the launch template ID or launch template name in the
-- request, but not both. For more information, see
-- <https://docs.aws.amazon.com/batch/latest/userguide/launch-templates.html Launch template support>
-- in the /Batch User Guide/.
--
-- This parameter isn\'t applicable to jobs that are running on Fargate
-- resources. Don\'t specify it.
--
-- 'minvCpus', 'computeResource_minvCpus' - The minimum number of Amazon EC2 vCPUs that an environment should
-- maintain (even if the compute environment is @DISABLED@).
--
-- This parameter isn\'t applicable to jobs that are running on Fargate
-- resources. Don\'t specify it.
--
-- 'placementGroup', 'computeResource_placementGroup' - The Amazon EC2 placement group to associate with your compute resources.
-- If you intend to submit multi-node parallel jobs to your compute
-- environment, you should consider creating a cluster placement group and
-- associate it with your compute resources. This keeps your multi-node
-- parallel job on a logical grouping of instances within a single
-- Availability Zone with high network flow potential. For more
-- information, see
-- <https://docs.aws.amazon.com/AWSEC2/latest/UserGuide/placement-groups.html Placement groups>
-- in the /Amazon EC2 User Guide for Linux Instances/.
--
-- This parameter isn\'t applicable to jobs that are running on Fargate
-- resources. Don\'t specify it.
--
-- 'securityGroupIds', 'computeResource_securityGroupIds' - The Amazon EC2 security groups that are associated with instances
-- launched in the compute environment. One or more security groups must be
-- specified, either in @securityGroupIds@ or using a launch template
-- referenced in @launchTemplate@. This parameter is required for jobs that
-- are running on Fargate resources and must contain at least one security
-- group. Fargate doesn\'t support launch templates. If security groups are
-- specified using both @securityGroupIds@ and @launchTemplate@, the values
-- in @securityGroupIds@ are used.
--
-- 'spotIamFleetRole', 'computeResource_spotIamFleetRole' - The Amazon Resource Name (ARN) of the Amazon EC2 Spot Fleet IAM role
-- applied to a @SPOT@ compute environment. This role is required if the
-- allocation strategy set to @BEST_FIT@ or if the allocation strategy
-- isn\'t specified. For more information, see
-- <https://docs.aws.amazon.com/batch/latest/userguide/spot_fleet_IAM_role.html Amazon EC2 spot fleet role>
-- in the /Batch User Guide/.
--
-- This parameter isn\'t applicable to jobs that are running on Fargate
-- resources. Don\'t specify it.
--
-- To tag your Spot Instances on creation, the Spot Fleet IAM role
-- specified here must use the newer __AmazonEC2SpotFleetTaggingRole__
-- managed policy. The previously recommended __AmazonEC2SpotFleetRole__
-- managed policy doesn\'t have the required permissions to tag Spot
-- Instances. For more information, see
-- <https://docs.aws.amazon.com/batch/latest/userguide/troubleshooting.html#spot-instance-no-tag Spot instances not tagged on creation>
-- in the /Batch User Guide/.
--
-- 'tags', 'computeResource_tags' - Key-value pair tags to be applied to EC2 resources that are launched in
-- the compute environment. For Batch, these take the form of
-- @\"String1\": \"String2\"@, where @String1@ is the tag key and @String2@
-- is the tag value-for example,
-- @{ \"Name\": \"Batch Instance - C4OnDemand\" }@. This is helpful for
-- recognizing your Batch instances in the Amazon EC2 console. Updating
-- these tags requires an infrastructure update to the compute environment.
-- For more information, see
-- <https://docs.aws.amazon.com/batch/latest/userguide/updating-compute-environments.html Updating compute environments>
-- in the /Batch User Guide/. These tags aren\'t seen when using the Batch
-- @ListTagsForResource@ API operation.
--
-- This parameter isn\'t applicable to jobs that are running on Fargate
-- resources. Don\'t specify it.
--
-- 'type'', 'computeResource_type' - The type of compute environment: @EC2@, @SPOT@, @FARGATE@, or
-- @FARGATE_SPOT@. For more information, see
-- <https://docs.aws.amazon.com/batch/latest/userguide/compute_environments.html Compute environments>
-- in the /Batch User Guide/.
--
-- If you choose @SPOT@, you must also specify an Amazon EC2 Spot Fleet
-- role with the @spotIamFleetRole@ parameter. For more information, see
-- <https://docs.aws.amazon.com/batch/latest/userguide/spot_fleet_IAM_role.html Amazon EC2 spot fleet role>
-- in the /Batch User Guide/.
--
-- 'maxvCpus', 'computeResource_maxvCpus' - The maximum number of Amazon EC2 vCPUs that a compute environment can
-- reach.
--
-- With both @BEST_FIT_PROGRESSIVE@ and @SPOT_CAPACITY_OPTIMIZED@
-- allocation strategies using On-Demand or Spot Instances, and the
-- @BEST_FIT@ strategy using Spot Instances, Batch might need to exceed
-- @maxvCpus@ to meet your capacity requirements. In this event, Batch
-- never exceeds @maxvCpus@ by more than a single instance. For example, no
-- more than a single instance from among those specified in your compute
-- environment is allocated.
--
-- 'subnets', 'computeResource_subnets' - The VPC subnets where the compute resources are launched. These subnets
-- must be within the same VPC. Fargate compute resources can contain up to
-- 16 subnets. For more information, see
-- <https://docs.aws.amazon.com/vpc/latest/userguide/VPC_Subnets.html VPCs and subnets>
-- in the /Amazon VPC User Guide/.
--
-- Batch on Amazon EC2 and Batch on Amazon EKS support Local Zones. For
-- more information, see
-- <https://docs.aws.amazon.com/AWSEC2/latest/UserGuide/using-regions-availability-zones.html#concepts-local-zones Local Zones>
-- in the /Amazon EC2 User Guide for Linux Instances/,
-- <https://docs.aws.amazon.com/eks/latest/userguide/local-zones.html Amazon EKS and Amazon Web Services Local Zones>
-- in the /Amazon EKS User Guide/ and
-- <https://docs.aws.amazon.com/AmazonECS/latest/developerguide/cluster-regions-zones.html#clusters-local-zones Amazon ECS clusters in Local Zones, Wavelength Zones, and Amazon Web Services Outposts>
-- in the /Amazon ECS Developer Guide/.
--
-- Batch on Fargate doesn\'t currently support Local Zones.
newComputeResource ::
  -- | 'type''
  CRType ->
  -- | 'maxvCpus'
  Prelude.Int ->
  ComputeResource
newComputeResource :: CRType -> Int -> ComputeResource
newComputeResource CRType
pType_ Int
pMaxvCpus_ =
  ComputeResource'
    { $sel:allocationStrategy:ComputeResource' :: Maybe CRAllocationStrategy
allocationStrategy =
        forall a. Maybe a
Prelude.Nothing,
      $sel:bidPercentage:ComputeResource' :: Maybe Int
bidPercentage = forall a. Maybe a
Prelude.Nothing,
      $sel:desiredvCpus:ComputeResource' :: Maybe Int
desiredvCpus = forall a. Maybe a
Prelude.Nothing,
      $sel:ec2Configuration:ComputeResource' :: Maybe [Ec2Configuration]
ec2Configuration = forall a. Maybe a
Prelude.Nothing,
      $sel:ec2KeyPair:ComputeResource' :: Maybe Text
ec2KeyPair = forall a. Maybe a
Prelude.Nothing,
      $sel:imageId:ComputeResource' :: Maybe Text
imageId = forall a. Maybe a
Prelude.Nothing,
      $sel:instanceRole:ComputeResource' :: Maybe Text
instanceRole = forall a. Maybe a
Prelude.Nothing,
      $sel:instanceTypes:ComputeResource' :: Maybe [Text]
instanceTypes = forall a. Maybe a
Prelude.Nothing,
      $sel:launchTemplate:ComputeResource' :: Maybe LaunchTemplateSpecification
launchTemplate = forall a. Maybe a
Prelude.Nothing,
      $sel:minvCpus:ComputeResource' :: Maybe Int
minvCpus = forall a. Maybe a
Prelude.Nothing,
      $sel:placementGroup:ComputeResource' :: Maybe Text
placementGroup = forall a. Maybe a
Prelude.Nothing,
      $sel:securityGroupIds:ComputeResource' :: Maybe [Text]
securityGroupIds = forall a. Maybe a
Prelude.Nothing,
      $sel:spotIamFleetRole:ComputeResource' :: Maybe Text
spotIamFleetRole = forall a. Maybe a
Prelude.Nothing,
      $sel:tags:ComputeResource' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
      $sel:type':ComputeResource' :: CRType
type' = CRType
pType_,
      $sel:maxvCpus:ComputeResource' :: Int
maxvCpus = Int
pMaxvCpus_,
      $sel:subnets:ComputeResource' :: [Text]
subnets = forall a. Monoid a => a
Prelude.mempty
    }

-- | The allocation strategy to use for the compute resource if not enough
-- instances of the best fitting instance type can be allocated. This might
-- be because of availability of the instance type in the Region or
-- <https://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-resource-limits.html Amazon EC2 service limits>.
-- For more information, see
-- <https://docs.aws.amazon.com/batch/latest/userguide/allocation-strategies.html Allocation strategies>
-- in the /Batch User Guide/.
--
-- This parameter isn\'t applicable to jobs that are running on Fargate
-- resources. Don\'t specify it.
--
-- [BEST_FIT (default)]
--     Batch selects an instance type that best fits the needs of the jobs
--     with a preference for the lowest-cost instance type. If additional
--     instances of the selected instance type aren\'t available, Batch
--     waits for the additional instances to be available. If there aren\'t
--     enough instances available or the user is reaching
--     <https://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-resource-limits.html Amazon EC2 service limits>,
--     additional jobs aren\'t run until the currently running jobs are
--     completed. This allocation strategy keeps costs lower but can limit
--     scaling. If you\'re using Spot Fleets with @BEST_FIT@, the Spot
--     Fleet IAM Role must be specified. Compute resources that use a
--     @BEST_FIT@ allocation strategy don\'t support infrastructure updates
--     and can\'t update some parameters. For more information, see
--     <https://docs.aws.amazon.com/batch/latest/userguide/updating-compute-environments.html Updating compute environments>
--     in the /Batch User Guide/.
--
-- [BEST_FIT_PROGRESSIVE]
--     Batch selects additional instance types that are large enough to
--     meet the requirements of the jobs in the queue. Its preference is
--     for instance types with lower cost vCPUs. If additional instances of
--     the previously selected instance types aren\'t available, Batch
--     selects new instance types.
--
-- [SPOT_CAPACITY_OPTIMIZED]
--     Batch selects one or more instance types that are large enough to
--     meet the requirements of the jobs in the queue. Its preference is
--     for instance types that are less likely to be interrupted. This
--     allocation strategy is only available for Spot Instance compute
--     resources.
--
-- With both @BEST_FIT_PROGRESSIVE@ and @SPOT_CAPACITY_OPTIMIZED@
-- strategies using On-Demand or Spot Instances, and the @BEST_FIT@
-- strategy using Spot Instances, Batch might need to exceed @maxvCpus@ to
-- meet your capacity requirements. In this event, Batch never exceeds
-- @maxvCpus@ by more than a single instance.
computeResource_allocationStrategy :: Lens.Lens' ComputeResource (Prelude.Maybe CRAllocationStrategy)
computeResource_allocationStrategy :: Lens' ComputeResource (Maybe CRAllocationStrategy)
computeResource_allocationStrategy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ComputeResource' {Maybe CRAllocationStrategy
allocationStrategy :: Maybe CRAllocationStrategy
$sel:allocationStrategy:ComputeResource' :: ComputeResource -> Maybe CRAllocationStrategy
allocationStrategy} -> Maybe CRAllocationStrategy
allocationStrategy) (\s :: ComputeResource
s@ComputeResource' {} Maybe CRAllocationStrategy
a -> ComputeResource
s {$sel:allocationStrategy:ComputeResource' :: Maybe CRAllocationStrategy
allocationStrategy = Maybe CRAllocationStrategy
a} :: ComputeResource)

-- | The maximum percentage that a Spot Instance price can be when compared
-- with the On-Demand price for that instance type before instances are
-- launched. For example, if your maximum percentage is 20%, then the Spot
-- price must be less than 20% of the current On-Demand price for that
-- Amazon EC2 instance. You always pay the lowest (market) price and never
-- more than your maximum percentage. If you leave this field empty, the
-- default value is 100% of the On-Demand price. For most use cases, we
-- recommend leaving this field empty.
--
-- This parameter isn\'t applicable to jobs that are running on Fargate
-- resources. Don\'t specify it.
computeResource_bidPercentage :: Lens.Lens' ComputeResource (Prelude.Maybe Prelude.Int)
computeResource_bidPercentage :: Lens' ComputeResource (Maybe Int)
computeResource_bidPercentage = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ComputeResource' {Maybe Int
bidPercentage :: Maybe Int
$sel:bidPercentage:ComputeResource' :: ComputeResource -> Maybe Int
bidPercentage} -> Maybe Int
bidPercentage) (\s :: ComputeResource
s@ComputeResource' {} Maybe Int
a -> ComputeResource
s {$sel:bidPercentage:ComputeResource' :: Maybe Int
bidPercentage = Maybe Int
a} :: ComputeResource)

-- | The desired number of Amazon EC2 vCPUS in the compute environment. Batch
-- modifies this value between the minimum and maximum values based on job
-- queue demand.
--
-- This parameter isn\'t applicable to jobs that are running on Fargate
-- resources. Don\'t specify it.
computeResource_desiredvCpus :: Lens.Lens' ComputeResource (Prelude.Maybe Prelude.Int)
computeResource_desiredvCpus :: Lens' ComputeResource (Maybe Int)
computeResource_desiredvCpus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ComputeResource' {Maybe Int
desiredvCpus :: Maybe Int
$sel:desiredvCpus:ComputeResource' :: ComputeResource -> Maybe Int
desiredvCpus} -> Maybe Int
desiredvCpus) (\s :: ComputeResource
s@ComputeResource' {} Maybe Int
a -> ComputeResource
s {$sel:desiredvCpus:ComputeResource' :: Maybe Int
desiredvCpus = Maybe Int
a} :: ComputeResource)

-- | Provides information that\'s used to select Amazon Machine Images (AMIs)
-- for EC2 instances in the compute environment. If @Ec2Configuration@
-- isn\'t specified, the default is @ECS_AL2@.
--
-- One or two values can be provided.
--
-- This parameter isn\'t applicable to jobs that are running on Fargate
-- resources. Don\'t specify it.
computeResource_ec2Configuration :: Lens.Lens' ComputeResource (Prelude.Maybe [Ec2Configuration])
computeResource_ec2Configuration :: Lens' ComputeResource (Maybe [Ec2Configuration])
computeResource_ec2Configuration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ComputeResource' {Maybe [Ec2Configuration]
ec2Configuration :: Maybe [Ec2Configuration]
$sel:ec2Configuration:ComputeResource' :: ComputeResource -> Maybe [Ec2Configuration]
ec2Configuration} -> Maybe [Ec2Configuration]
ec2Configuration) (\s :: ComputeResource
s@ComputeResource' {} Maybe [Ec2Configuration]
a -> ComputeResource
s {$sel:ec2Configuration:ComputeResource' :: Maybe [Ec2Configuration]
ec2Configuration = Maybe [Ec2Configuration]
a} :: ComputeResource) 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 Amazon EC2 key pair that\'s used for instances launched in the
-- compute environment. You can use this key pair to log in to your
-- instances with SSH.
--
-- This parameter isn\'t applicable to jobs that are running on Fargate
-- resources. Don\'t specify it.
computeResource_ec2KeyPair :: Lens.Lens' ComputeResource (Prelude.Maybe Prelude.Text)
computeResource_ec2KeyPair :: Lens' ComputeResource (Maybe Text)
computeResource_ec2KeyPair = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ComputeResource' {Maybe Text
ec2KeyPair :: Maybe Text
$sel:ec2KeyPair:ComputeResource' :: ComputeResource -> Maybe Text
ec2KeyPair} -> Maybe Text
ec2KeyPair) (\s :: ComputeResource
s@ComputeResource' {} Maybe Text
a -> ComputeResource
s {$sel:ec2KeyPair:ComputeResource' :: Maybe Text
ec2KeyPair = Maybe Text
a} :: ComputeResource)

-- | The Amazon Machine Image (AMI) ID used for instances launched in the
-- compute environment. This parameter is overridden by the
-- @imageIdOverride@ member of the @Ec2Configuration@ structure.
--
-- This parameter isn\'t applicable to jobs that are running on Fargate
-- resources. Don\'t specify it.
--
-- The AMI that you choose for a compute environment must match the
-- architecture of the instance types that you intend to use for that
-- compute environment. For example, if your compute environment uses A1
-- instance types, the compute resource AMI that you choose must support
-- ARM instances. Amazon ECS vends both x86 and ARM versions of the Amazon
-- ECS-optimized Amazon Linux 2 AMI. For more information, see
-- <https://docs.aws.amazon.com/AmazonECS/latest/developerguide/ecs-optimized_AMI.html#ecs-optimized-ami-linux-variants.html Amazon ECS-optimized Amazon Linux 2 AMI>
-- in the /Amazon Elastic Container Service Developer Guide/.
computeResource_imageId :: Lens.Lens' ComputeResource (Prelude.Maybe Prelude.Text)
computeResource_imageId :: Lens' ComputeResource (Maybe Text)
computeResource_imageId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ComputeResource' {Maybe Text
imageId :: Maybe Text
$sel:imageId:ComputeResource' :: ComputeResource -> Maybe Text
imageId} -> Maybe Text
imageId) (\s :: ComputeResource
s@ComputeResource' {} Maybe Text
a -> ComputeResource
s {$sel:imageId:ComputeResource' :: Maybe Text
imageId = Maybe Text
a} :: ComputeResource)

-- | The Amazon ECS instance profile applied to Amazon EC2 instances in a
-- compute environment. You can specify the short name or full Amazon
-- Resource Name (ARN) of an instance profile. For example,
-- @ @/@ecsInstanceRole@/@ @ or
-- @arn:aws:iam::@/@\<aws_account_id>@/@:instance-profile\/@/@ecsInstanceRole@/@ @.
-- For more information, see
-- <https://docs.aws.amazon.com/batch/latest/userguide/instance_IAM_role.html Amazon ECS instance role>
-- in the /Batch User Guide/.
--
-- This parameter isn\'t applicable to jobs that are running on Fargate
-- resources. Don\'t specify it.
computeResource_instanceRole :: Lens.Lens' ComputeResource (Prelude.Maybe Prelude.Text)
computeResource_instanceRole :: Lens' ComputeResource (Maybe Text)
computeResource_instanceRole = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ComputeResource' {Maybe Text
instanceRole :: Maybe Text
$sel:instanceRole:ComputeResource' :: ComputeResource -> Maybe Text
instanceRole} -> Maybe Text
instanceRole) (\s :: ComputeResource
s@ComputeResource' {} Maybe Text
a -> ComputeResource
s {$sel:instanceRole:ComputeResource' :: Maybe Text
instanceRole = Maybe Text
a} :: ComputeResource)

-- | The instances types that can be launched. You can specify instance
-- families to launch any instance type within those families (for example,
-- @c5@ or @p3@), or you can specify specific sizes within a family (such
-- as @c5.8xlarge@). You can also choose @optimal@ to select instance types
-- (from the C4, M4, and R4 instance families) that match the demand of
-- your job queues.
--
-- This parameter isn\'t applicable to jobs that are running on Fargate
-- resources. Don\'t specify it.
--
-- When you create a compute environment, the instance types that you
-- select for the compute environment must share the same architecture. For
-- example, you can\'t mix x86 and ARM instances in the same compute
-- environment.
--
-- Currently, @optimal@ uses instance types from the C4, M4, and R4
-- instance families. In Regions that don\'t have instance types from those
-- instance families, instance types from the C5, M5, and R5 instance
-- families are used.
computeResource_instanceTypes :: Lens.Lens' ComputeResource (Prelude.Maybe [Prelude.Text])
computeResource_instanceTypes :: Lens' ComputeResource (Maybe [Text])
computeResource_instanceTypes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ComputeResource' {Maybe [Text]
instanceTypes :: Maybe [Text]
$sel:instanceTypes:ComputeResource' :: ComputeResource -> Maybe [Text]
instanceTypes} -> Maybe [Text]
instanceTypes) (\s :: ComputeResource
s@ComputeResource' {} Maybe [Text]
a -> ComputeResource
s {$sel:instanceTypes:ComputeResource' :: Maybe [Text]
instanceTypes = Maybe [Text]
a} :: ComputeResource) 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 launch template to use for your compute resources. Any other compute
-- resource parameters that you specify in a CreateComputeEnvironment API
-- operation override the same parameters in the launch template. You must
-- specify either the launch template ID or launch template name in the
-- request, but not both. For more information, see
-- <https://docs.aws.amazon.com/batch/latest/userguide/launch-templates.html Launch template support>
-- in the /Batch User Guide/.
--
-- This parameter isn\'t applicable to jobs that are running on Fargate
-- resources. Don\'t specify it.
computeResource_launchTemplate :: Lens.Lens' ComputeResource (Prelude.Maybe LaunchTemplateSpecification)
computeResource_launchTemplate :: Lens' ComputeResource (Maybe LaunchTemplateSpecification)
computeResource_launchTemplate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ComputeResource' {Maybe LaunchTemplateSpecification
launchTemplate :: Maybe LaunchTemplateSpecification
$sel:launchTemplate:ComputeResource' :: ComputeResource -> Maybe LaunchTemplateSpecification
launchTemplate} -> Maybe LaunchTemplateSpecification
launchTemplate) (\s :: ComputeResource
s@ComputeResource' {} Maybe LaunchTemplateSpecification
a -> ComputeResource
s {$sel:launchTemplate:ComputeResource' :: Maybe LaunchTemplateSpecification
launchTemplate = Maybe LaunchTemplateSpecification
a} :: ComputeResource)

-- | The minimum number of Amazon EC2 vCPUs that an environment should
-- maintain (even if the compute environment is @DISABLED@).
--
-- This parameter isn\'t applicable to jobs that are running on Fargate
-- resources. Don\'t specify it.
computeResource_minvCpus :: Lens.Lens' ComputeResource (Prelude.Maybe Prelude.Int)
computeResource_minvCpus :: Lens' ComputeResource (Maybe Int)
computeResource_minvCpus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ComputeResource' {Maybe Int
minvCpus :: Maybe Int
$sel:minvCpus:ComputeResource' :: ComputeResource -> Maybe Int
minvCpus} -> Maybe Int
minvCpus) (\s :: ComputeResource
s@ComputeResource' {} Maybe Int
a -> ComputeResource
s {$sel:minvCpus:ComputeResource' :: Maybe Int
minvCpus = Maybe Int
a} :: ComputeResource)

-- | The Amazon EC2 placement group to associate with your compute resources.
-- If you intend to submit multi-node parallel jobs to your compute
-- environment, you should consider creating a cluster placement group and
-- associate it with your compute resources. This keeps your multi-node
-- parallel job on a logical grouping of instances within a single
-- Availability Zone with high network flow potential. For more
-- information, see
-- <https://docs.aws.amazon.com/AWSEC2/latest/UserGuide/placement-groups.html Placement groups>
-- in the /Amazon EC2 User Guide for Linux Instances/.
--
-- This parameter isn\'t applicable to jobs that are running on Fargate
-- resources. Don\'t specify it.
computeResource_placementGroup :: Lens.Lens' ComputeResource (Prelude.Maybe Prelude.Text)
computeResource_placementGroup :: Lens' ComputeResource (Maybe Text)
computeResource_placementGroup = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ComputeResource' {Maybe Text
placementGroup :: Maybe Text
$sel:placementGroup:ComputeResource' :: ComputeResource -> Maybe Text
placementGroup} -> Maybe Text
placementGroup) (\s :: ComputeResource
s@ComputeResource' {} Maybe Text
a -> ComputeResource
s {$sel:placementGroup:ComputeResource' :: Maybe Text
placementGroup = Maybe Text
a} :: ComputeResource)

-- | The Amazon EC2 security groups that are associated with instances
-- launched in the compute environment. One or more security groups must be
-- specified, either in @securityGroupIds@ or using a launch template
-- referenced in @launchTemplate@. This parameter is required for jobs that
-- are running on Fargate resources and must contain at least one security
-- group. Fargate doesn\'t support launch templates. If security groups are
-- specified using both @securityGroupIds@ and @launchTemplate@, the values
-- in @securityGroupIds@ are used.
computeResource_securityGroupIds :: Lens.Lens' ComputeResource (Prelude.Maybe [Prelude.Text])
computeResource_securityGroupIds :: Lens' ComputeResource (Maybe [Text])
computeResource_securityGroupIds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ComputeResource' {Maybe [Text]
securityGroupIds :: Maybe [Text]
$sel:securityGroupIds:ComputeResource' :: ComputeResource -> Maybe [Text]
securityGroupIds} -> Maybe [Text]
securityGroupIds) (\s :: ComputeResource
s@ComputeResource' {} Maybe [Text]
a -> ComputeResource
s {$sel:securityGroupIds:ComputeResource' :: Maybe [Text]
securityGroupIds = Maybe [Text]
a} :: ComputeResource) 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 Amazon Resource Name (ARN) of the Amazon EC2 Spot Fleet IAM role
-- applied to a @SPOT@ compute environment. This role is required if the
-- allocation strategy set to @BEST_FIT@ or if the allocation strategy
-- isn\'t specified. For more information, see
-- <https://docs.aws.amazon.com/batch/latest/userguide/spot_fleet_IAM_role.html Amazon EC2 spot fleet role>
-- in the /Batch User Guide/.
--
-- This parameter isn\'t applicable to jobs that are running on Fargate
-- resources. Don\'t specify it.
--
-- To tag your Spot Instances on creation, the Spot Fleet IAM role
-- specified here must use the newer __AmazonEC2SpotFleetTaggingRole__
-- managed policy. The previously recommended __AmazonEC2SpotFleetRole__
-- managed policy doesn\'t have the required permissions to tag Spot
-- Instances. For more information, see
-- <https://docs.aws.amazon.com/batch/latest/userguide/troubleshooting.html#spot-instance-no-tag Spot instances not tagged on creation>
-- in the /Batch User Guide/.
computeResource_spotIamFleetRole :: Lens.Lens' ComputeResource (Prelude.Maybe Prelude.Text)
computeResource_spotIamFleetRole :: Lens' ComputeResource (Maybe Text)
computeResource_spotIamFleetRole = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ComputeResource' {Maybe Text
spotIamFleetRole :: Maybe Text
$sel:spotIamFleetRole:ComputeResource' :: ComputeResource -> Maybe Text
spotIamFleetRole} -> Maybe Text
spotIamFleetRole) (\s :: ComputeResource
s@ComputeResource' {} Maybe Text
a -> ComputeResource
s {$sel:spotIamFleetRole:ComputeResource' :: Maybe Text
spotIamFleetRole = Maybe Text
a} :: ComputeResource)

-- | Key-value pair tags to be applied to EC2 resources that are launched in
-- the compute environment. For Batch, these take the form of
-- @\"String1\": \"String2\"@, where @String1@ is the tag key and @String2@
-- is the tag value-for example,
-- @{ \"Name\": \"Batch Instance - C4OnDemand\" }@. This is helpful for
-- recognizing your Batch instances in the Amazon EC2 console. Updating
-- these tags requires an infrastructure update to the compute environment.
-- For more information, see
-- <https://docs.aws.amazon.com/batch/latest/userguide/updating-compute-environments.html Updating compute environments>
-- in the /Batch User Guide/. These tags aren\'t seen when using the Batch
-- @ListTagsForResource@ API operation.
--
-- This parameter isn\'t applicable to jobs that are running on Fargate
-- resources. Don\'t specify it.
computeResource_tags :: Lens.Lens' ComputeResource (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
computeResource_tags :: Lens' ComputeResource (Maybe (HashMap Text Text))
computeResource_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ComputeResource' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:ComputeResource' :: ComputeResource -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: ComputeResource
s@ComputeResource' {} Maybe (HashMap Text Text)
a -> ComputeResource
s {$sel:tags:ComputeResource' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: ComputeResource) 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 type of compute environment: @EC2@, @SPOT@, @FARGATE@, or
-- @FARGATE_SPOT@. For more information, see
-- <https://docs.aws.amazon.com/batch/latest/userguide/compute_environments.html Compute environments>
-- in the /Batch User Guide/.
--
-- If you choose @SPOT@, you must also specify an Amazon EC2 Spot Fleet
-- role with the @spotIamFleetRole@ parameter. For more information, see
-- <https://docs.aws.amazon.com/batch/latest/userguide/spot_fleet_IAM_role.html Amazon EC2 spot fleet role>
-- in the /Batch User Guide/.
computeResource_type :: Lens.Lens' ComputeResource CRType
computeResource_type :: Lens' ComputeResource CRType
computeResource_type = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ComputeResource' {CRType
type' :: CRType
$sel:type':ComputeResource' :: ComputeResource -> CRType
type'} -> CRType
type') (\s :: ComputeResource
s@ComputeResource' {} CRType
a -> ComputeResource
s {$sel:type':ComputeResource' :: CRType
type' = CRType
a} :: ComputeResource)

-- | The maximum number of Amazon EC2 vCPUs that a compute environment can
-- reach.
--
-- With both @BEST_FIT_PROGRESSIVE@ and @SPOT_CAPACITY_OPTIMIZED@
-- allocation strategies using On-Demand or Spot Instances, and the
-- @BEST_FIT@ strategy using Spot Instances, Batch might need to exceed
-- @maxvCpus@ to meet your capacity requirements. In this event, Batch
-- never exceeds @maxvCpus@ by more than a single instance. For example, no
-- more than a single instance from among those specified in your compute
-- environment is allocated.
computeResource_maxvCpus :: Lens.Lens' ComputeResource Prelude.Int
computeResource_maxvCpus :: Lens' ComputeResource Int
computeResource_maxvCpus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ComputeResource' {Int
maxvCpus :: Int
$sel:maxvCpus:ComputeResource' :: ComputeResource -> Int
maxvCpus} -> Int
maxvCpus) (\s :: ComputeResource
s@ComputeResource' {} Int
a -> ComputeResource
s {$sel:maxvCpus:ComputeResource' :: Int
maxvCpus = Int
a} :: ComputeResource)

-- | The VPC subnets where the compute resources are launched. These subnets
-- must be within the same VPC. Fargate compute resources can contain up to
-- 16 subnets. For more information, see
-- <https://docs.aws.amazon.com/vpc/latest/userguide/VPC_Subnets.html VPCs and subnets>
-- in the /Amazon VPC User Guide/.
--
-- Batch on Amazon EC2 and Batch on Amazon EKS support Local Zones. For
-- more information, see
-- <https://docs.aws.amazon.com/AWSEC2/latest/UserGuide/using-regions-availability-zones.html#concepts-local-zones Local Zones>
-- in the /Amazon EC2 User Guide for Linux Instances/,
-- <https://docs.aws.amazon.com/eks/latest/userguide/local-zones.html Amazon EKS and Amazon Web Services Local Zones>
-- in the /Amazon EKS User Guide/ and
-- <https://docs.aws.amazon.com/AmazonECS/latest/developerguide/cluster-regions-zones.html#clusters-local-zones Amazon ECS clusters in Local Zones, Wavelength Zones, and Amazon Web Services Outposts>
-- in the /Amazon ECS Developer Guide/.
--
-- Batch on Fargate doesn\'t currently support Local Zones.
computeResource_subnets :: Lens.Lens' ComputeResource [Prelude.Text]
computeResource_subnets :: Lens' ComputeResource [Text]
computeResource_subnets = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ComputeResource' {[Text]
subnets :: [Text]
$sel:subnets:ComputeResource' :: ComputeResource -> [Text]
subnets} -> [Text]
subnets) (\s :: ComputeResource
s@ComputeResource' {} [Text]
a -> ComputeResource
s {$sel:subnets:ComputeResource' :: [Text]
subnets = [Text]
a} :: ComputeResource) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

instance Data.FromJSON ComputeResource where
  parseJSON :: Value -> Parser ComputeResource
parseJSON =
    forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
      String
"ComputeResource"
      ( \Object
x ->
          Maybe CRAllocationStrategy
-> Maybe Int
-> Maybe Int
-> Maybe [Ec2Configuration]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Text]
-> Maybe LaunchTemplateSpecification
-> Maybe Int
-> Maybe Text
-> Maybe [Text]
-> Maybe Text
-> Maybe (HashMap Text Text)
-> CRType
-> Int
-> [Text]
-> ComputeResource
ComputeResource'
            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"allocationStrategy")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"bidPercentage")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"desiredvCpus")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x
                            forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"ec2Configuration"
                            forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty
                        )
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"ec2KeyPair")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"imageId")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"instanceRole")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"instanceTypes" forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty)
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"launchTemplate")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"minvCpus")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"placementGroup")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x
                            forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"securityGroupIds"
                            forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty
                        )
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"spotIamFleetRole")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"tags" forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty)
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"type")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"maxvCpus")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"subnets" forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty)
      )

instance Prelude.Hashable ComputeResource where
  hashWithSalt :: Int -> ComputeResource -> Int
hashWithSalt Int
_salt ComputeResource' {Int
[Text]
Maybe Int
Maybe [Text]
Maybe [Ec2Configuration]
Maybe Text
Maybe (HashMap Text Text)
Maybe CRAllocationStrategy
Maybe LaunchTemplateSpecification
CRType
subnets :: [Text]
maxvCpus :: Int
type' :: CRType
tags :: Maybe (HashMap Text Text)
spotIamFleetRole :: Maybe Text
securityGroupIds :: Maybe [Text]
placementGroup :: Maybe Text
minvCpus :: Maybe Int
launchTemplate :: Maybe LaunchTemplateSpecification
instanceTypes :: Maybe [Text]
instanceRole :: Maybe Text
imageId :: Maybe Text
ec2KeyPair :: Maybe Text
ec2Configuration :: Maybe [Ec2Configuration]
desiredvCpus :: Maybe Int
bidPercentage :: Maybe Int
allocationStrategy :: Maybe CRAllocationStrategy
$sel:subnets:ComputeResource' :: ComputeResource -> [Text]
$sel:maxvCpus:ComputeResource' :: ComputeResource -> Int
$sel:type':ComputeResource' :: ComputeResource -> CRType
$sel:tags:ComputeResource' :: ComputeResource -> Maybe (HashMap Text Text)
$sel:spotIamFleetRole:ComputeResource' :: ComputeResource -> Maybe Text
$sel:securityGroupIds:ComputeResource' :: ComputeResource -> Maybe [Text]
$sel:placementGroup:ComputeResource' :: ComputeResource -> Maybe Text
$sel:minvCpus:ComputeResource' :: ComputeResource -> Maybe Int
$sel:launchTemplate:ComputeResource' :: ComputeResource -> Maybe LaunchTemplateSpecification
$sel:instanceTypes:ComputeResource' :: ComputeResource -> Maybe [Text]
$sel:instanceRole:ComputeResource' :: ComputeResource -> Maybe Text
$sel:imageId:ComputeResource' :: ComputeResource -> Maybe Text
$sel:ec2KeyPair:ComputeResource' :: ComputeResource -> Maybe Text
$sel:ec2Configuration:ComputeResource' :: ComputeResource -> Maybe [Ec2Configuration]
$sel:desiredvCpus:ComputeResource' :: ComputeResource -> Maybe Int
$sel:bidPercentage:ComputeResource' :: ComputeResource -> Maybe Int
$sel:allocationStrategy:ComputeResource' :: ComputeResource -> Maybe CRAllocationStrategy
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe CRAllocationStrategy
allocationStrategy
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
bidPercentage
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
desiredvCpus
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Ec2Configuration]
ec2Configuration
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
ec2KeyPair
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
imageId
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
instanceRole
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
instanceTypes
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe LaunchTemplateSpecification
launchTemplate
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
minvCpus
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
placementGroup
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
securityGroupIds
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
spotIamFleetRole
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
tags
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` CRType
type'
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Int
maxvCpus
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [Text]
subnets

instance Prelude.NFData ComputeResource where
  rnf :: ComputeResource -> ()
rnf ComputeResource' {Int
[Text]
Maybe Int
Maybe [Text]
Maybe [Ec2Configuration]
Maybe Text
Maybe (HashMap Text Text)
Maybe CRAllocationStrategy
Maybe LaunchTemplateSpecification
CRType
subnets :: [Text]
maxvCpus :: Int
type' :: CRType
tags :: Maybe (HashMap Text Text)
spotIamFleetRole :: Maybe Text
securityGroupIds :: Maybe [Text]
placementGroup :: Maybe Text
minvCpus :: Maybe Int
launchTemplate :: Maybe LaunchTemplateSpecification
instanceTypes :: Maybe [Text]
instanceRole :: Maybe Text
imageId :: Maybe Text
ec2KeyPair :: Maybe Text
ec2Configuration :: Maybe [Ec2Configuration]
desiredvCpus :: Maybe Int
bidPercentage :: Maybe Int
allocationStrategy :: Maybe CRAllocationStrategy
$sel:subnets:ComputeResource' :: ComputeResource -> [Text]
$sel:maxvCpus:ComputeResource' :: ComputeResource -> Int
$sel:type':ComputeResource' :: ComputeResource -> CRType
$sel:tags:ComputeResource' :: ComputeResource -> Maybe (HashMap Text Text)
$sel:spotIamFleetRole:ComputeResource' :: ComputeResource -> Maybe Text
$sel:securityGroupIds:ComputeResource' :: ComputeResource -> Maybe [Text]
$sel:placementGroup:ComputeResource' :: ComputeResource -> Maybe Text
$sel:minvCpus:ComputeResource' :: ComputeResource -> Maybe Int
$sel:launchTemplate:ComputeResource' :: ComputeResource -> Maybe LaunchTemplateSpecification
$sel:instanceTypes:ComputeResource' :: ComputeResource -> Maybe [Text]
$sel:instanceRole:ComputeResource' :: ComputeResource -> Maybe Text
$sel:imageId:ComputeResource' :: ComputeResource -> Maybe Text
$sel:ec2KeyPair:ComputeResource' :: ComputeResource -> Maybe Text
$sel:ec2Configuration:ComputeResource' :: ComputeResource -> Maybe [Ec2Configuration]
$sel:desiredvCpus:ComputeResource' :: ComputeResource -> Maybe Int
$sel:bidPercentage:ComputeResource' :: ComputeResource -> Maybe Int
$sel:allocationStrategy:ComputeResource' :: ComputeResource -> Maybe CRAllocationStrategy
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe CRAllocationStrategy
allocationStrategy
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
bidPercentage
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
desiredvCpus
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Ec2Configuration]
ec2Configuration
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
ec2KeyPair
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
imageId
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
instanceRole
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
instanceTypes
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe LaunchTemplateSpecification
launchTemplate
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
minvCpus
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
placementGroup
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
securityGroupIds
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
spotIamFleetRole
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
tags
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf CRType
type'
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
maxvCpus
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [Text]
subnets

instance Data.ToJSON ComputeResource where
  toJSON :: ComputeResource -> Value
toJSON ComputeResource' {Int
[Text]
Maybe Int
Maybe [Text]
Maybe [Ec2Configuration]
Maybe Text
Maybe (HashMap Text Text)
Maybe CRAllocationStrategy
Maybe LaunchTemplateSpecification
CRType
subnets :: [Text]
maxvCpus :: Int
type' :: CRType
tags :: Maybe (HashMap Text Text)
spotIamFleetRole :: Maybe Text
securityGroupIds :: Maybe [Text]
placementGroup :: Maybe Text
minvCpus :: Maybe Int
launchTemplate :: Maybe LaunchTemplateSpecification
instanceTypes :: Maybe [Text]
instanceRole :: Maybe Text
imageId :: Maybe Text
ec2KeyPair :: Maybe Text
ec2Configuration :: Maybe [Ec2Configuration]
desiredvCpus :: Maybe Int
bidPercentage :: Maybe Int
allocationStrategy :: Maybe CRAllocationStrategy
$sel:subnets:ComputeResource' :: ComputeResource -> [Text]
$sel:maxvCpus:ComputeResource' :: ComputeResource -> Int
$sel:type':ComputeResource' :: ComputeResource -> CRType
$sel:tags:ComputeResource' :: ComputeResource -> Maybe (HashMap Text Text)
$sel:spotIamFleetRole:ComputeResource' :: ComputeResource -> Maybe Text
$sel:securityGroupIds:ComputeResource' :: ComputeResource -> Maybe [Text]
$sel:placementGroup:ComputeResource' :: ComputeResource -> Maybe Text
$sel:minvCpus:ComputeResource' :: ComputeResource -> Maybe Int
$sel:launchTemplate:ComputeResource' :: ComputeResource -> Maybe LaunchTemplateSpecification
$sel:instanceTypes:ComputeResource' :: ComputeResource -> Maybe [Text]
$sel:instanceRole:ComputeResource' :: ComputeResource -> Maybe Text
$sel:imageId:ComputeResource' :: ComputeResource -> Maybe Text
$sel:ec2KeyPair:ComputeResource' :: ComputeResource -> Maybe Text
$sel:ec2Configuration:ComputeResource' :: ComputeResource -> Maybe [Ec2Configuration]
$sel:desiredvCpus:ComputeResource' :: ComputeResource -> Maybe Int
$sel:bidPercentage:ComputeResource' :: ComputeResource -> Maybe Int
$sel:allocationStrategy:ComputeResource' :: ComputeResource -> Maybe CRAllocationStrategy
..} =
    [Pair] -> Value
Data.object
      ( forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ (Key
"allocationStrategy" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe CRAllocationStrategy
allocationStrategy,
            (Key
"bidPercentage" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Int
bidPercentage,
            (Key
"desiredvCpus" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Int
desiredvCpus,
            (Key
"ec2Configuration" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Ec2Configuration]
ec2Configuration,
            (Key
"ec2KeyPair" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
ec2KeyPair,
            (Key
"imageId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
imageId,
            (Key
"instanceRole" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
instanceRole,
            (Key
"instanceTypes" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
instanceTypes,
            (Key
"launchTemplate" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe LaunchTemplateSpecification
launchTemplate,
            (Key
"minvCpus" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Int
minvCpus,
            (Key
"placementGroup" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
placementGroup,
            (Key
"securityGroupIds" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
securityGroupIds,
            (Key
"spotIamFleetRole" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
spotIamFleetRole,
            (Key
"tags" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (HashMap Text Text)
tags,
            forall a. a -> Maybe a
Prelude.Just (Key
"type" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= CRType
type'),
            forall a. a -> Maybe a
Prelude.Just (Key
"maxvCpus" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Int
maxvCpus),
            forall a. a -> Maybe a
Prelude.Just (Key
"subnets" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= [Text]
subnets)
          ]
      )