{-# 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.RobOMaker.CreateSimulationJob
-- Copyright   : (c) 2013-2021 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Creates a simulation job.
--
-- After 90 days, simulation jobs expire and will be deleted. They will no
-- longer be accessible.
module Amazonka.RobOMaker.CreateSimulationJob
  ( -- * Creating a Request
    CreateSimulationJob (..),
    newCreateSimulationJob,

    -- * Request Lenses
    createSimulationJob_failureBehavior,
    createSimulationJob_robotApplications,
    createSimulationJob_compute,
    createSimulationJob_dataSources,
    createSimulationJob_vpcConfig,
    createSimulationJob_outputLocation,
    createSimulationJob_simulationApplications,
    createSimulationJob_clientRequestToken,
    createSimulationJob_loggingConfig,
    createSimulationJob_tags,
    createSimulationJob_maxJobDurationInSeconds,
    createSimulationJob_iamRole,

    -- * Destructuring the Response
    CreateSimulationJobResponse (..),
    newCreateSimulationJobResponse,

    -- * Response Lenses
    createSimulationJobResponse_failureBehavior,
    createSimulationJobResponse_status,
    createSimulationJobResponse_lastUpdatedAt,
    createSimulationJobResponse_arn,
    createSimulationJobResponse_robotApplications,
    createSimulationJobResponse_failureCode,
    createSimulationJobResponse_compute,
    createSimulationJobResponse_dataSources,
    createSimulationJobResponse_vpcConfig,
    createSimulationJobResponse_outputLocation,
    createSimulationJobResponse_simulationApplications,
    createSimulationJobResponse_simulationTimeMillis,
    createSimulationJobResponse_clientRequestToken,
    createSimulationJobResponse_lastStartedAt,
    createSimulationJobResponse_loggingConfig,
    createSimulationJobResponse_iamRole,
    createSimulationJobResponse_maxJobDurationInSeconds,
    createSimulationJobResponse_tags,
    createSimulationJobResponse_httpStatus,
  )
where

import qualified Amazonka.Core as Core
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.RobOMaker.Types

-- | /See:/ 'newCreateSimulationJob' smart constructor.
data CreateSimulationJob = CreateSimulationJob'
  { -- | The failure behavior the simulation job.
    --
    -- [Continue]
    --     Leaves the instance running for its maximum timeout duration after a
    --     @4XX@ error code.
    --
    -- [Fail]
    --     Stop the simulation job and terminate the instance.
    CreateSimulationJob -> Maybe FailureBehavior
failureBehavior :: Prelude.Maybe FailureBehavior,
    -- | The robot application to use in the simulation job.
    CreateSimulationJob -> Maybe (NonEmpty RobotApplicationConfig)
robotApplications :: Prelude.Maybe (Prelude.NonEmpty RobotApplicationConfig),
    -- | Compute information for the simulation job.
    CreateSimulationJob -> Maybe Compute
compute :: Prelude.Maybe Compute,
    -- | Specify data sources to mount read-only files from S3 into your
    -- simulation. These files are available under
    -- @\/opt\/robomaker\/datasources\/data_source_name@.
    --
    -- There is a limit of 100 files and a combined size of 25GB for all
    -- @DataSourceConfig@ objects.
    CreateSimulationJob -> Maybe (NonEmpty DataSourceConfig)
dataSources :: Prelude.Maybe (Prelude.NonEmpty DataSourceConfig),
    -- | If your simulation job accesses resources in a VPC, you provide this
    -- parameter identifying the list of security group IDs and subnet IDs.
    -- These must belong to the same VPC. You must provide at least one
    -- security group and one subnet ID.
    CreateSimulationJob -> Maybe VPCConfig
vpcConfig :: Prelude.Maybe VPCConfig,
    -- | Location for output files generated by the simulation job.
    CreateSimulationJob -> Maybe OutputLocation
outputLocation :: Prelude.Maybe OutputLocation,
    -- | The simulation application to use in the simulation job.
    CreateSimulationJob -> Maybe (NonEmpty SimulationApplicationConfig)
simulationApplications :: Prelude.Maybe (Prelude.NonEmpty SimulationApplicationConfig),
    -- | Unique, case-sensitive identifier that you provide to ensure the
    -- idempotency of the request.
    CreateSimulationJob -> Maybe Text
clientRequestToken :: Prelude.Maybe Prelude.Text,
    -- | The logging configuration.
    CreateSimulationJob -> Maybe LoggingConfig
loggingConfig :: Prelude.Maybe LoggingConfig,
    -- | A map that contains tag keys and tag values that are attached to the
    -- simulation job.
    CreateSimulationJob -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
    -- | The maximum simulation job duration in seconds (up to 14 days or
    -- 1,209,600 seconds. When @maxJobDurationInSeconds@ is reached, the
    -- simulation job will status will transition to @Completed@.
    CreateSimulationJob -> Integer
maxJobDurationInSeconds :: Prelude.Integer,
    -- | The IAM role name that allows the simulation instance to call the AWS
    -- APIs that are specified in its associated policies on your behalf. This
    -- is how credentials are passed in to your simulation job.
    CreateSimulationJob -> Text
iamRole :: Prelude.Text
  }
  deriving (CreateSimulationJob -> CreateSimulationJob -> Bool
(CreateSimulationJob -> CreateSimulationJob -> Bool)
-> (CreateSimulationJob -> CreateSimulationJob -> Bool)
-> Eq CreateSimulationJob
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateSimulationJob -> CreateSimulationJob -> Bool
$c/= :: CreateSimulationJob -> CreateSimulationJob -> Bool
== :: CreateSimulationJob -> CreateSimulationJob -> Bool
$c== :: CreateSimulationJob -> CreateSimulationJob -> Bool
Prelude.Eq, ReadPrec [CreateSimulationJob]
ReadPrec CreateSimulationJob
Int -> ReadS CreateSimulationJob
ReadS [CreateSimulationJob]
(Int -> ReadS CreateSimulationJob)
-> ReadS [CreateSimulationJob]
-> ReadPrec CreateSimulationJob
-> ReadPrec [CreateSimulationJob]
-> Read CreateSimulationJob
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateSimulationJob]
$creadListPrec :: ReadPrec [CreateSimulationJob]
readPrec :: ReadPrec CreateSimulationJob
$creadPrec :: ReadPrec CreateSimulationJob
readList :: ReadS [CreateSimulationJob]
$creadList :: ReadS [CreateSimulationJob]
readsPrec :: Int -> ReadS CreateSimulationJob
$creadsPrec :: Int -> ReadS CreateSimulationJob
Prelude.Read, Int -> CreateSimulationJob -> ShowS
[CreateSimulationJob] -> ShowS
CreateSimulationJob -> String
(Int -> CreateSimulationJob -> ShowS)
-> (CreateSimulationJob -> String)
-> ([CreateSimulationJob] -> ShowS)
-> Show CreateSimulationJob
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateSimulationJob] -> ShowS
$cshowList :: [CreateSimulationJob] -> ShowS
show :: CreateSimulationJob -> String
$cshow :: CreateSimulationJob -> String
showsPrec :: Int -> CreateSimulationJob -> ShowS
$cshowsPrec :: Int -> CreateSimulationJob -> ShowS
Prelude.Show, (forall x. CreateSimulationJob -> Rep CreateSimulationJob x)
-> (forall x. Rep CreateSimulationJob x -> CreateSimulationJob)
-> Generic CreateSimulationJob
forall x. Rep CreateSimulationJob x -> CreateSimulationJob
forall x. CreateSimulationJob -> Rep CreateSimulationJob x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateSimulationJob x -> CreateSimulationJob
$cfrom :: forall x. CreateSimulationJob -> Rep CreateSimulationJob x
Prelude.Generic)

-- |
-- Create a value of 'CreateSimulationJob' 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:
--
-- 'failureBehavior', 'createSimulationJob_failureBehavior' - The failure behavior the simulation job.
--
-- [Continue]
--     Leaves the instance running for its maximum timeout duration after a
--     @4XX@ error code.
--
-- [Fail]
--     Stop the simulation job and terminate the instance.
--
-- 'robotApplications', 'createSimulationJob_robotApplications' - The robot application to use in the simulation job.
--
-- 'compute', 'createSimulationJob_compute' - Compute information for the simulation job.
--
-- 'dataSources', 'createSimulationJob_dataSources' - Specify data sources to mount read-only files from S3 into your
-- simulation. These files are available under
-- @\/opt\/robomaker\/datasources\/data_source_name@.
--
-- There is a limit of 100 files and a combined size of 25GB for all
-- @DataSourceConfig@ objects.
--
-- 'vpcConfig', 'createSimulationJob_vpcConfig' - If your simulation job accesses resources in a VPC, you provide this
-- parameter identifying the list of security group IDs and subnet IDs.
-- These must belong to the same VPC. You must provide at least one
-- security group and one subnet ID.
--
-- 'outputLocation', 'createSimulationJob_outputLocation' - Location for output files generated by the simulation job.
--
-- 'simulationApplications', 'createSimulationJob_simulationApplications' - The simulation application to use in the simulation job.
--
-- 'clientRequestToken', 'createSimulationJob_clientRequestToken' - Unique, case-sensitive identifier that you provide to ensure the
-- idempotency of the request.
--
-- 'loggingConfig', 'createSimulationJob_loggingConfig' - The logging configuration.
--
-- 'tags', 'createSimulationJob_tags' - A map that contains tag keys and tag values that are attached to the
-- simulation job.
--
-- 'maxJobDurationInSeconds', 'createSimulationJob_maxJobDurationInSeconds' - The maximum simulation job duration in seconds (up to 14 days or
-- 1,209,600 seconds. When @maxJobDurationInSeconds@ is reached, the
-- simulation job will status will transition to @Completed@.
--
-- 'iamRole', 'createSimulationJob_iamRole' - The IAM role name that allows the simulation instance to call the AWS
-- APIs that are specified in its associated policies on your behalf. This
-- is how credentials are passed in to your simulation job.
newCreateSimulationJob ::
  -- | 'maxJobDurationInSeconds'
  Prelude.Integer ->
  -- | 'iamRole'
  Prelude.Text ->
  CreateSimulationJob
newCreateSimulationJob :: Integer -> Text -> CreateSimulationJob
newCreateSimulationJob
  Integer
pMaxJobDurationInSeconds_
  Text
pIamRole_ =
    CreateSimulationJob' :: Maybe FailureBehavior
-> Maybe (NonEmpty RobotApplicationConfig)
-> Maybe Compute
-> Maybe (NonEmpty DataSourceConfig)
-> Maybe VPCConfig
-> Maybe OutputLocation
-> Maybe (NonEmpty SimulationApplicationConfig)
-> Maybe Text
-> Maybe LoggingConfig
-> Maybe (HashMap Text Text)
-> Integer
-> Text
-> CreateSimulationJob
CreateSimulationJob'
      { $sel:failureBehavior:CreateSimulationJob' :: Maybe FailureBehavior
failureBehavior =
          Maybe FailureBehavior
forall a. Maybe a
Prelude.Nothing,
        $sel:robotApplications:CreateSimulationJob' :: Maybe (NonEmpty RobotApplicationConfig)
robotApplications = Maybe (NonEmpty RobotApplicationConfig)
forall a. Maybe a
Prelude.Nothing,
        $sel:compute:CreateSimulationJob' :: Maybe Compute
compute = Maybe Compute
forall a. Maybe a
Prelude.Nothing,
        $sel:dataSources:CreateSimulationJob' :: Maybe (NonEmpty DataSourceConfig)
dataSources = Maybe (NonEmpty DataSourceConfig)
forall a. Maybe a
Prelude.Nothing,
        $sel:vpcConfig:CreateSimulationJob' :: Maybe VPCConfig
vpcConfig = Maybe VPCConfig
forall a. Maybe a
Prelude.Nothing,
        $sel:outputLocation:CreateSimulationJob' :: Maybe OutputLocation
outputLocation = Maybe OutputLocation
forall a. Maybe a
Prelude.Nothing,
        $sel:simulationApplications:CreateSimulationJob' :: Maybe (NonEmpty SimulationApplicationConfig)
simulationApplications = Maybe (NonEmpty SimulationApplicationConfig)
forall a. Maybe a
Prelude.Nothing,
        $sel:clientRequestToken:CreateSimulationJob' :: Maybe Text
clientRequestToken = Maybe Text
forall a. Maybe a
Prelude.Nothing,
        $sel:loggingConfig:CreateSimulationJob' :: Maybe LoggingConfig
loggingConfig = Maybe LoggingConfig
forall a. Maybe a
Prelude.Nothing,
        $sel:tags:CreateSimulationJob' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
forall a. Maybe a
Prelude.Nothing,
        $sel:maxJobDurationInSeconds:CreateSimulationJob' :: Integer
maxJobDurationInSeconds = Integer
pMaxJobDurationInSeconds_,
        $sel:iamRole:CreateSimulationJob' :: Text
iamRole = Text
pIamRole_
      }

-- | The failure behavior the simulation job.
--
-- [Continue]
--     Leaves the instance running for its maximum timeout duration after a
--     @4XX@ error code.
--
-- [Fail]
--     Stop the simulation job and terminate the instance.
createSimulationJob_failureBehavior :: Lens.Lens' CreateSimulationJob (Prelude.Maybe FailureBehavior)
createSimulationJob_failureBehavior :: (Maybe FailureBehavior -> f (Maybe FailureBehavior))
-> CreateSimulationJob -> f CreateSimulationJob
createSimulationJob_failureBehavior = (CreateSimulationJob -> Maybe FailureBehavior)
-> (CreateSimulationJob
    -> Maybe FailureBehavior -> CreateSimulationJob)
-> Lens
     CreateSimulationJob
     CreateSimulationJob
     (Maybe FailureBehavior)
     (Maybe FailureBehavior)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationJob' {Maybe FailureBehavior
failureBehavior :: Maybe FailureBehavior
$sel:failureBehavior:CreateSimulationJob' :: CreateSimulationJob -> Maybe FailureBehavior
failureBehavior} -> Maybe FailureBehavior
failureBehavior) (\s :: CreateSimulationJob
s@CreateSimulationJob' {} Maybe FailureBehavior
a -> CreateSimulationJob
s {$sel:failureBehavior:CreateSimulationJob' :: Maybe FailureBehavior
failureBehavior = Maybe FailureBehavior
a} :: CreateSimulationJob)

-- | The robot application to use in the simulation job.
createSimulationJob_robotApplications :: Lens.Lens' CreateSimulationJob (Prelude.Maybe (Prelude.NonEmpty RobotApplicationConfig))
createSimulationJob_robotApplications :: (Maybe (NonEmpty RobotApplicationConfig)
 -> f (Maybe (NonEmpty RobotApplicationConfig)))
-> CreateSimulationJob -> f CreateSimulationJob
createSimulationJob_robotApplications = (CreateSimulationJob -> Maybe (NonEmpty RobotApplicationConfig))
-> (CreateSimulationJob
    -> Maybe (NonEmpty RobotApplicationConfig) -> CreateSimulationJob)
-> Lens
     CreateSimulationJob
     CreateSimulationJob
     (Maybe (NonEmpty RobotApplicationConfig))
     (Maybe (NonEmpty RobotApplicationConfig))
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationJob' {Maybe (NonEmpty RobotApplicationConfig)
robotApplications :: Maybe (NonEmpty RobotApplicationConfig)
$sel:robotApplications:CreateSimulationJob' :: CreateSimulationJob -> Maybe (NonEmpty RobotApplicationConfig)
robotApplications} -> Maybe (NonEmpty RobotApplicationConfig)
robotApplications) (\s :: CreateSimulationJob
s@CreateSimulationJob' {} Maybe (NonEmpty RobotApplicationConfig)
a -> CreateSimulationJob
s {$sel:robotApplications:CreateSimulationJob' :: Maybe (NonEmpty RobotApplicationConfig)
robotApplications = Maybe (NonEmpty RobotApplicationConfig)
a} :: CreateSimulationJob) ((Maybe (NonEmpty RobotApplicationConfig)
  -> f (Maybe (NonEmpty RobotApplicationConfig)))
 -> CreateSimulationJob -> f CreateSimulationJob)
-> ((Maybe (NonEmpty RobotApplicationConfig)
     -> f (Maybe (NonEmpty RobotApplicationConfig)))
    -> Maybe (NonEmpty RobotApplicationConfig)
    -> f (Maybe (NonEmpty RobotApplicationConfig)))
-> (Maybe (NonEmpty RobotApplicationConfig)
    -> f (Maybe (NonEmpty RobotApplicationConfig)))
-> CreateSimulationJob
-> f CreateSimulationJob
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso
  (NonEmpty RobotApplicationConfig)
  (NonEmpty RobotApplicationConfig)
  (NonEmpty RobotApplicationConfig)
  (NonEmpty RobotApplicationConfig)
-> Iso
     (Maybe (NonEmpty RobotApplicationConfig))
     (Maybe (NonEmpty RobotApplicationConfig))
     (Maybe (NonEmpty RobotApplicationConfig))
     (Maybe (NonEmpty RobotApplicationConfig))
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 AnIso
  (NonEmpty RobotApplicationConfig)
  (NonEmpty RobotApplicationConfig)
  (NonEmpty RobotApplicationConfig)
  (NonEmpty RobotApplicationConfig)
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | Compute information for the simulation job.
createSimulationJob_compute :: Lens.Lens' CreateSimulationJob (Prelude.Maybe Compute)
createSimulationJob_compute :: (Maybe Compute -> f (Maybe Compute))
-> CreateSimulationJob -> f CreateSimulationJob
createSimulationJob_compute = (CreateSimulationJob -> Maybe Compute)
-> (CreateSimulationJob -> Maybe Compute -> CreateSimulationJob)
-> Lens
     CreateSimulationJob
     CreateSimulationJob
     (Maybe Compute)
     (Maybe Compute)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationJob' {Maybe Compute
compute :: Maybe Compute
$sel:compute:CreateSimulationJob' :: CreateSimulationJob -> Maybe Compute
compute} -> Maybe Compute
compute) (\s :: CreateSimulationJob
s@CreateSimulationJob' {} Maybe Compute
a -> CreateSimulationJob
s {$sel:compute:CreateSimulationJob' :: Maybe Compute
compute = Maybe Compute
a} :: CreateSimulationJob)

-- | Specify data sources to mount read-only files from S3 into your
-- simulation. These files are available under
-- @\/opt\/robomaker\/datasources\/data_source_name@.
--
-- There is a limit of 100 files and a combined size of 25GB for all
-- @DataSourceConfig@ objects.
createSimulationJob_dataSources :: Lens.Lens' CreateSimulationJob (Prelude.Maybe (Prelude.NonEmpty DataSourceConfig))
createSimulationJob_dataSources :: (Maybe (NonEmpty DataSourceConfig)
 -> f (Maybe (NonEmpty DataSourceConfig)))
-> CreateSimulationJob -> f CreateSimulationJob
createSimulationJob_dataSources = (CreateSimulationJob -> Maybe (NonEmpty DataSourceConfig))
-> (CreateSimulationJob
    -> Maybe (NonEmpty DataSourceConfig) -> CreateSimulationJob)
-> Lens
     CreateSimulationJob
     CreateSimulationJob
     (Maybe (NonEmpty DataSourceConfig))
     (Maybe (NonEmpty DataSourceConfig))
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationJob' {Maybe (NonEmpty DataSourceConfig)
dataSources :: Maybe (NonEmpty DataSourceConfig)
$sel:dataSources:CreateSimulationJob' :: CreateSimulationJob -> Maybe (NonEmpty DataSourceConfig)
dataSources} -> Maybe (NonEmpty DataSourceConfig)
dataSources) (\s :: CreateSimulationJob
s@CreateSimulationJob' {} Maybe (NonEmpty DataSourceConfig)
a -> CreateSimulationJob
s {$sel:dataSources:CreateSimulationJob' :: Maybe (NonEmpty DataSourceConfig)
dataSources = Maybe (NonEmpty DataSourceConfig)
a} :: CreateSimulationJob) ((Maybe (NonEmpty DataSourceConfig)
  -> f (Maybe (NonEmpty DataSourceConfig)))
 -> CreateSimulationJob -> f CreateSimulationJob)
-> ((Maybe (NonEmpty DataSourceConfig)
     -> f (Maybe (NonEmpty DataSourceConfig)))
    -> Maybe (NonEmpty DataSourceConfig)
    -> f (Maybe (NonEmpty DataSourceConfig)))
-> (Maybe (NonEmpty DataSourceConfig)
    -> f (Maybe (NonEmpty DataSourceConfig)))
-> CreateSimulationJob
-> f CreateSimulationJob
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso
  (NonEmpty DataSourceConfig)
  (NonEmpty DataSourceConfig)
  (NonEmpty DataSourceConfig)
  (NonEmpty DataSourceConfig)
-> Iso
     (Maybe (NonEmpty DataSourceConfig))
     (Maybe (NonEmpty DataSourceConfig))
     (Maybe (NonEmpty DataSourceConfig))
     (Maybe (NonEmpty DataSourceConfig))
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 AnIso
  (NonEmpty DataSourceConfig)
  (NonEmpty DataSourceConfig)
  (NonEmpty DataSourceConfig)
  (NonEmpty DataSourceConfig)
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | If your simulation job accesses resources in a VPC, you provide this
-- parameter identifying the list of security group IDs and subnet IDs.
-- These must belong to the same VPC. You must provide at least one
-- security group and one subnet ID.
createSimulationJob_vpcConfig :: Lens.Lens' CreateSimulationJob (Prelude.Maybe VPCConfig)
createSimulationJob_vpcConfig :: (Maybe VPCConfig -> f (Maybe VPCConfig))
-> CreateSimulationJob -> f CreateSimulationJob
createSimulationJob_vpcConfig = (CreateSimulationJob -> Maybe VPCConfig)
-> (CreateSimulationJob -> Maybe VPCConfig -> CreateSimulationJob)
-> Lens
     CreateSimulationJob
     CreateSimulationJob
     (Maybe VPCConfig)
     (Maybe VPCConfig)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationJob' {Maybe VPCConfig
vpcConfig :: Maybe VPCConfig
$sel:vpcConfig:CreateSimulationJob' :: CreateSimulationJob -> Maybe VPCConfig
vpcConfig} -> Maybe VPCConfig
vpcConfig) (\s :: CreateSimulationJob
s@CreateSimulationJob' {} Maybe VPCConfig
a -> CreateSimulationJob
s {$sel:vpcConfig:CreateSimulationJob' :: Maybe VPCConfig
vpcConfig = Maybe VPCConfig
a} :: CreateSimulationJob)

-- | Location for output files generated by the simulation job.
createSimulationJob_outputLocation :: Lens.Lens' CreateSimulationJob (Prelude.Maybe OutputLocation)
createSimulationJob_outputLocation :: (Maybe OutputLocation -> f (Maybe OutputLocation))
-> CreateSimulationJob -> f CreateSimulationJob
createSimulationJob_outputLocation = (CreateSimulationJob -> Maybe OutputLocation)
-> (CreateSimulationJob
    -> Maybe OutputLocation -> CreateSimulationJob)
-> Lens
     CreateSimulationJob
     CreateSimulationJob
     (Maybe OutputLocation)
     (Maybe OutputLocation)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationJob' {Maybe OutputLocation
outputLocation :: Maybe OutputLocation
$sel:outputLocation:CreateSimulationJob' :: CreateSimulationJob -> Maybe OutputLocation
outputLocation} -> Maybe OutputLocation
outputLocation) (\s :: CreateSimulationJob
s@CreateSimulationJob' {} Maybe OutputLocation
a -> CreateSimulationJob
s {$sel:outputLocation:CreateSimulationJob' :: Maybe OutputLocation
outputLocation = Maybe OutputLocation
a} :: CreateSimulationJob)

-- | The simulation application to use in the simulation job.
createSimulationJob_simulationApplications :: Lens.Lens' CreateSimulationJob (Prelude.Maybe (Prelude.NonEmpty SimulationApplicationConfig))
createSimulationJob_simulationApplications :: (Maybe (NonEmpty SimulationApplicationConfig)
 -> f (Maybe (NonEmpty SimulationApplicationConfig)))
-> CreateSimulationJob -> f CreateSimulationJob
createSimulationJob_simulationApplications = (CreateSimulationJob
 -> Maybe (NonEmpty SimulationApplicationConfig))
-> (CreateSimulationJob
    -> Maybe (NonEmpty SimulationApplicationConfig)
    -> CreateSimulationJob)
-> Lens
     CreateSimulationJob
     CreateSimulationJob
     (Maybe (NonEmpty SimulationApplicationConfig))
     (Maybe (NonEmpty SimulationApplicationConfig))
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationJob' {Maybe (NonEmpty SimulationApplicationConfig)
simulationApplications :: Maybe (NonEmpty SimulationApplicationConfig)
$sel:simulationApplications:CreateSimulationJob' :: CreateSimulationJob -> Maybe (NonEmpty SimulationApplicationConfig)
simulationApplications} -> Maybe (NonEmpty SimulationApplicationConfig)
simulationApplications) (\s :: CreateSimulationJob
s@CreateSimulationJob' {} Maybe (NonEmpty SimulationApplicationConfig)
a -> CreateSimulationJob
s {$sel:simulationApplications:CreateSimulationJob' :: Maybe (NonEmpty SimulationApplicationConfig)
simulationApplications = Maybe (NonEmpty SimulationApplicationConfig)
a} :: CreateSimulationJob) ((Maybe (NonEmpty SimulationApplicationConfig)
  -> f (Maybe (NonEmpty SimulationApplicationConfig)))
 -> CreateSimulationJob -> f CreateSimulationJob)
-> ((Maybe (NonEmpty SimulationApplicationConfig)
     -> f (Maybe (NonEmpty SimulationApplicationConfig)))
    -> Maybe (NonEmpty SimulationApplicationConfig)
    -> f (Maybe (NonEmpty SimulationApplicationConfig)))
-> (Maybe (NonEmpty SimulationApplicationConfig)
    -> f (Maybe (NonEmpty SimulationApplicationConfig)))
-> CreateSimulationJob
-> f CreateSimulationJob
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso
  (NonEmpty SimulationApplicationConfig)
  (NonEmpty SimulationApplicationConfig)
  (NonEmpty SimulationApplicationConfig)
  (NonEmpty SimulationApplicationConfig)
-> Iso
     (Maybe (NonEmpty SimulationApplicationConfig))
     (Maybe (NonEmpty SimulationApplicationConfig))
     (Maybe (NonEmpty SimulationApplicationConfig))
     (Maybe (NonEmpty SimulationApplicationConfig))
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 AnIso
  (NonEmpty SimulationApplicationConfig)
  (NonEmpty SimulationApplicationConfig)
  (NonEmpty SimulationApplicationConfig)
  (NonEmpty SimulationApplicationConfig)
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | Unique, case-sensitive identifier that you provide to ensure the
-- idempotency of the request.
createSimulationJob_clientRequestToken :: Lens.Lens' CreateSimulationJob (Prelude.Maybe Prelude.Text)
createSimulationJob_clientRequestToken :: (Maybe Text -> f (Maybe Text))
-> CreateSimulationJob -> f CreateSimulationJob
createSimulationJob_clientRequestToken = (CreateSimulationJob -> Maybe Text)
-> (CreateSimulationJob -> Maybe Text -> CreateSimulationJob)
-> Lens
     CreateSimulationJob CreateSimulationJob (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationJob' {Maybe Text
clientRequestToken :: Maybe Text
$sel:clientRequestToken:CreateSimulationJob' :: CreateSimulationJob -> Maybe Text
clientRequestToken} -> Maybe Text
clientRequestToken) (\s :: CreateSimulationJob
s@CreateSimulationJob' {} Maybe Text
a -> CreateSimulationJob
s {$sel:clientRequestToken:CreateSimulationJob' :: Maybe Text
clientRequestToken = Maybe Text
a} :: CreateSimulationJob)

-- | The logging configuration.
createSimulationJob_loggingConfig :: Lens.Lens' CreateSimulationJob (Prelude.Maybe LoggingConfig)
createSimulationJob_loggingConfig :: (Maybe LoggingConfig -> f (Maybe LoggingConfig))
-> CreateSimulationJob -> f CreateSimulationJob
createSimulationJob_loggingConfig = (CreateSimulationJob -> Maybe LoggingConfig)
-> (CreateSimulationJob
    -> Maybe LoggingConfig -> CreateSimulationJob)
-> Lens
     CreateSimulationJob
     CreateSimulationJob
     (Maybe LoggingConfig)
     (Maybe LoggingConfig)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationJob' {Maybe LoggingConfig
loggingConfig :: Maybe LoggingConfig
$sel:loggingConfig:CreateSimulationJob' :: CreateSimulationJob -> Maybe LoggingConfig
loggingConfig} -> Maybe LoggingConfig
loggingConfig) (\s :: CreateSimulationJob
s@CreateSimulationJob' {} Maybe LoggingConfig
a -> CreateSimulationJob
s {$sel:loggingConfig:CreateSimulationJob' :: Maybe LoggingConfig
loggingConfig = Maybe LoggingConfig
a} :: CreateSimulationJob)

-- | A map that contains tag keys and tag values that are attached to the
-- simulation job.
createSimulationJob_tags :: Lens.Lens' CreateSimulationJob (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
createSimulationJob_tags :: (Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
-> CreateSimulationJob -> f CreateSimulationJob
createSimulationJob_tags = (CreateSimulationJob -> Maybe (HashMap Text Text))
-> (CreateSimulationJob
    -> Maybe (HashMap Text Text) -> CreateSimulationJob)
-> Lens
     CreateSimulationJob
     CreateSimulationJob
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationJob' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:CreateSimulationJob' :: CreateSimulationJob -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: CreateSimulationJob
s@CreateSimulationJob' {} Maybe (HashMap Text Text)
a -> CreateSimulationJob
s {$sel:tags:CreateSimulationJob' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: CreateSimulationJob) ((Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
 -> CreateSimulationJob -> f CreateSimulationJob)
-> ((Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
    -> Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
-> (Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
-> CreateSimulationJob
-> f CreateSimulationJob
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
-> Iso
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
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 AnIso
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | The maximum simulation job duration in seconds (up to 14 days or
-- 1,209,600 seconds. When @maxJobDurationInSeconds@ is reached, the
-- simulation job will status will transition to @Completed@.
createSimulationJob_maxJobDurationInSeconds :: Lens.Lens' CreateSimulationJob Prelude.Integer
createSimulationJob_maxJobDurationInSeconds :: (Integer -> f Integer)
-> CreateSimulationJob -> f CreateSimulationJob
createSimulationJob_maxJobDurationInSeconds = (CreateSimulationJob -> Integer)
-> (CreateSimulationJob -> Integer -> CreateSimulationJob)
-> Lens CreateSimulationJob CreateSimulationJob Integer Integer
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationJob' {Integer
maxJobDurationInSeconds :: Integer
$sel:maxJobDurationInSeconds:CreateSimulationJob' :: CreateSimulationJob -> Integer
maxJobDurationInSeconds} -> Integer
maxJobDurationInSeconds) (\s :: CreateSimulationJob
s@CreateSimulationJob' {} Integer
a -> CreateSimulationJob
s {$sel:maxJobDurationInSeconds:CreateSimulationJob' :: Integer
maxJobDurationInSeconds = Integer
a} :: CreateSimulationJob)

-- | The IAM role name that allows the simulation instance to call the AWS
-- APIs that are specified in its associated policies on your behalf. This
-- is how credentials are passed in to your simulation job.
createSimulationJob_iamRole :: Lens.Lens' CreateSimulationJob Prelude.Text
createSimulationJob_iamRole :: (Text -> f Text) -> CreateSimulationJob -> f CreateSimulationJob
createSimulationJob_iamRole = (CreateSimulationJob -> Text)
-> (CreateSimulationJob -> Text -> CreateSimulationJob)
-> Lens CreateSimulationJob CreateSimulationJob Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationJob' {Text
iamRole :: Text
$sel:iamRole:CreateSimulationJob' :: CreateSimulationJob -> Text
iamRole} -> Text
iamRole) (\s :: CreateSimulationJob
s@CreateSimulationJob' {} Text
a -> CreateSimulationJob
s {$sel:iamRole:CreateSimulationJob' :: Text
iamRole = Text
a} :: CreateSimulationJob)

instance Core.AWSRequest CreateSimulationJob where
  type
    AWSResponse CreateSimulationJob =
      CreateSimulationJobResponse
  request :: CreateSimulationJob -> Request CreateSimulationJob
request = Service -> CreateSimulationJob -> Request CreateSimulationJob
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON Service
defaultService
  response :: Logger
-> Service
-> Proxy CreateSimulationJob
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse CreateSimulationJob)))
response =
    (Int
 -> ResponseHeaders
 -> Object
 -> Either String (AWSResponse CreateSimulationJob))
-> Logger
-> Service
-> Proxy CreateSimulationJob
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse CreateSimulationJob)))
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> Logger
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
      ( \Int
s ResponseHeaders
h Object
x ->
          Maybe FailureBehavior
-> Maybe SimulationJobStatus
-> Maybe POSIX
-> Maybe Text
-> Maybe (NonEmpty RobotApplicationConfig)
-> Maybe SimulationJobErrorCode
-> Maybe ComputeResponse
-> Maybe [DataSource]
-> Maybe VPCConfigResponse
-> Maybe OutputLocation
-> Maybe (NonEmpty SimulationApplicationConfig)
-> Maybe Integer
-> Maybe Text
-> Maybe POSIX
-> Maybe LoggingConfig
-> Maybe Text
-> Maybe Integer
-> Maybe (HashMap Text Text)
-> Int
-> CreateSimulationJobResponse
CreateSimulationJobResponse'
            (Maybe FailureBehavior
 -> Maybe SimulationJobStatus
 -> Maybe POSIX
 -> Maybe Text
 -> Maybe (NonEmpty RobotApplicationConfig)
 -> Maybe SimulationJobErrorCode
 -> Maybe ComputeResponse
 -> Maybe [DataSource]
 -> Maybe VPCConfigResponse
 -> Maybe OutputLocation
 -> Maybe (NonEmpty SimulationApplicationConfig)
 -> Maybe Integer
 -> Maybe Text
 -> Maybe POSIX
 -> Maybe LoggingConfig
 -> Maybe Text
 -> Maybe Integer
 -> Maybe (HashMap Text Text)
 -> Int
 -> CreateSimulationJobResponse)
-> Either String (Maybe FailureBehavior)
-> Either
     String
     (Maybe SimulationJobStatus
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe (NonEmpty RobotApplicationConfig)
      -> Maybe SimulationJobErrorCode
      -> Maybe ComputeResponse
      -> Maybe [DataSource]
      -> Maybe VPCConfigResponse
      -> Maybe OutputLocation
      -> Maybe (NonEmpty SimulationApplicationConfig)
      -> Maybe Integer
      -> Maybe Text
      -> Maybe POSIX
      -> Maybe LoggingConfig
      -> Maybe Text
      -> Maybe Integer
      -> Maybe (HashMap Text Text)
      -> Int
      -> CreateSimulationJobResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x Object -> Text -> Either String (Maybe FailureBehavior)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"failureBehavior")
            Either
  String
  (Maybe SimulationJobStatus
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe (NonEmpty RobotApplicationConfig)
   -> Maybe SimulationJobErrorCode
   -> Maybe ComputeResponse
   -> Maybe [DataSource]
   -> Maybe VPCConfigResponse
   -> Maybe OutputLocation
   -> Maybe (NonEmpty SimulationApplicationConfig)
   -> Maybe Integer
   -> Maybe Text
   -> Maybe POSIX
   -> Maybe LoggingConfig
   -> Maybe Text
   -> Maybe Integer
   -> Maybe (HashMap Text Text)
   -> Int
   -> CreateSimulationJobResponse)
-> Either String (Maybe SimulationJobStatus)
-> Either
     String
     (Maybe POSIX
      -> Maybe Text
      -> Maybe (NonEmpty RobotApplicationConfig)
      -> Maybe SimulationJobErrorCode
      -> Maybe ComputeResponse
      -> Maybe [DataSource]
      -> Maybe VPCConfigResponse
      -> Maybe OutputLocation
      -> Maybe (NonEmpty SimulationApplicationConfig)
      -> Maybe Integer
      -> Maybe Text
      -> Maybe POSIX
      -> Maybe LoggingConfig
      -> Maybe Text
      -> Maybe Integer
      -> Maybe (HashMap Text Text)
      -> Int
      -> CreateSimulationJobResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe SimulationJobStatus)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"status")
            Either
  String
  (Maybe POSIX
   -> Maybe Text
   -> Maybe (NonEmpty RobotApplicationConfig)
   -> Maybe SimulationJobErrorCode
   -> Maybe ComputeResponse
   -> Maybe [DataSource]
   -> Maybe VPCConfigResponse
   -> Maybe OutputLocation
   -> Maybe (NonEmpty SimulationApplicationConfig)
   -> Maybe Integer
   -> Maybe Text
   -> Maybe POSIX
   -> Maybe LoggingConfig
   -> Maybe Text
   -> Maybe Integer
   -> Maybe (HashMap Text Text)
   -> Int
   -> CreateSimulationJobResponse)
-> Either String (Maybe POSIX)
-> Either
     String
     (Maybe Text
      -> Maybe (NonEmpty RobotApplicationConfig)
      -> Maybe SimulationJobErrorCode
      -> Maybe ComputeResponse
      -> Maybe [DataSource]
      -> Maybe VPCConfigResponse
      -> Maybe OutputLocation
      -> Maybe (NonEmpty SimulationApplicationConfig)
      -> Maybe Integer
      -> Maybe Text
      -> Maybe POSIX
      -> Maybe LoggingConfig
      -> Maybe Text
      -> Maybe Integer
      -> Maybe (HashMap Text Text)
      -> Int
      -> CreateSimulationJobResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe POSIX)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"lastUpdatedAt")
            Either
  String
  (Maybe Text
   -> Maybe (NonEmpty RobotApplicationConfig)
   -> Maybe SimulationJobErrorCode
   -> Maybe ComputeResponse
   -> Maybe [DataSource]
   -> Maybe VPCConfigResponse
   -> Maybe OutputLocation
   -> Maybe (NonEmpty SimulationApplicationConfig)
   -> Maybe Integer
   -> Maybe Text
   -> Maybe POSIX
   -> Maybe LoggingConfig
   -> Maybe Text
   -> Maybe Integer
   -> Maybe (HashMap Text Text)
   -> Int
   -> CreateSimulationJobResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe (NonEmpty RobotApplicationConfig)
      -> Maybe SimulationJobErrorCode
      -> Maybe ComputeResponse
      -> Maybe [DataSource]
      -> Maybe VPCConfigResponse
      -> Maybe OutputLocation
      -> Maybe (NonEmpty SimulationApplicationConfig)
      -> Maybe Integer
      -> Maybe Text
      -> Maybe POSIX
      -> Maybe LoggingConfig
      -> Maybe Text
      -> Maybe Integer
      -> Maybe (HashMap Text Text)
      -> Int
      -> CreateSimulationJobResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"arn")
            Either
  String
  (Maybe (NonEmpty RobotApplicationConfig)
   -> Maybe SimulationJobErrorCode
   -> Maybe ComputeResponse
   -> Maybe [DataSource]
   -> Maybe VPCConfigResponse
   -> Maybe OutputLocation
   -> Maybe (NonEmpty SimulationApplicationConfig)
   -> Maybe Integer
   -> Maybe Text
   -> Maybe POSIX
   -> Maybe LoggingConfig
   -> Maybe Text
   -> Maybe Integer
   -> Maybe (HashMap Text Text)
   -> Int
   -> CreateSimulationJobResponse)
-> Either String (Maybe (NonEmpty RobotApplicationConfig))
-> Either
     String
     (Maybe SimulationJobErrorCode
      -> Maybe ComputeResponse
      -> Maybe [DataSource]
      -> Maybe VPCConfigResponse
      -> Maybe OutputLocation
      -> Maybe (NonEmpty SimulationApplicationConfig)
      -> Maybe Integer
      -> Maybe Text
      -> Maybe POSIX
      -> Maybe LoggingConfig
      -> Maybe Text
      -> Maybe Integer
      -> Maybe (HashMap Text Text)
      -> Int
      -> CreateSimulationJobResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object
-> Text -> Either String (Maybe (NonEmpty RobotApplicationConfig))
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"robotApplications")
            Either
  String
  (Maybe SimulationJobErrorCode
   -> Maybe ComputeResponse
   -> Maybe [DataSource]
   -> Maybe VPCConfigResponse
   -> Maybe OutputLocation
   -> Maybe (NonEmpty SimulationApplicationConfig)
   -> Maybe Integer
   -> Maybe Text
   -> Maybe POSIX
   -> Maybe LoggingConfig
   -> Maybe Text
   -> Maybe Integer
   -> Maybe (HashMap Text Text)
   -> Int
   -> CreateSimulationJobResponse)
-> Either String (Maybe SimulationJobErrorCode)
-> Either
     String
     (Maybe ComputeResponse
      -> Maybe [DataSource]
      -> Maybe VPCConfigResponse
      -> Maybe OutputLocation
      -> Maybe (NonEmpty SimulationApplicationConfig)
      -> Maybe Integer
      -> Maybe Text
      -> Maybe POSIX
      -> Maybe LoggingConfig
      -> Maybe Text
      -> Maybe Integer
      -> Maybe (HashMap Text Text)
      -> Int
      -> CreateSimulationJobResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe SimulationJobErrorCode)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"failureCode")
            Either
  String
  (Maybe ComputeResponse
   -> Maybe [DataSource]
   -> Maybe VPCConfigResponse
   -> Maybe OutputLocation
   -> Maybe (NonEmpty SimulationApplicationConfig)
   -> Maybe Integer
   -> Maybe Text
   -> Maybe POSIX
   -> Maybe LoggingConfig
   -> Maybe Text
   -> Maybe Integer
   -> Maybe (HashMap Text Text)
   -> Int
   -> CreateSimulationJobResponse)
-> Either String (Maybe ComputeResponse)
-> Either
     String
     (Maybe [DataSource]
      -> Maybe VPCConfigResponse
      -> Maybe OutputLocation
      -> Maybe (NonEmpty SimulationApplicationConfig)
      -> Maybe Integer
      -> Maybe Text
      -> Maybe POSIX
      -> Maybe LoggingConfig
      -> Maybe Text
      -> Maybe Integer
      -> Maybe (HashMap Text Text)
      -> Int
      -> CreateSimulationJobResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe ComputeResponse)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"compute")
            Either
  String
  (Maybe [DataSource]
   -> Maybe VPCConfigResponse
   -> Maybe OutputLocation
   -> Maybe (NonEmpty SimulationApplicationConfig)
   -> Maybe Integer
   -> Maybe Text
   -> Maybe POSIX
   -> Maybe LoggingConfig
   -> Maybe Text
   -> Maybe Integer
   -> Maybe (HashMap Text Text)
   -> Int
   -> CreateSimulationJobResponse)
-> Either String (Maybe [DataSource])
-> Either
     String
     (Maybe VPCConfigResponse
      -> Maybe OutputLocation
      -> Maybe (NonEmpty SimulationApplicationConfig)
      -> Maybe Integer
      -> Maybe Text
      -> Maybe POSIX
      -> Maybe LoggingConfig
      -> Maybe Text
      -> Maybe Integer
      -> Maybe (HashMap Text Text)
      -> Int
      -> CreateSimulationJobResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe (Maybe [DataSource]))
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"dataSources" Either String (Maybe (Maybe [DataSource]))
-> Maybe [DataSource] -> Either String (Maybe [DataSource])
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ Maybe [DataSource]
forall a. Monoid a => a
Prelude.mempty)
            Either
  String
  (Maybe VPCConfigResponse
   -> Maybe OutputLocation
   -> Maybe (NonEmpty SimulationApplicationConfig)
   -> Maybe Integer
   -> Maybe Text
   -> Maybe POSIX
   -> Maybe LoggingConfig
   -> Maybe Text
   -> Maybe Integer
   -> Maybe (HashMap Text Text)
   -> Int
   -> CreateSimulationJobResponse)
-> Either String (Maybe VPCConfigResponse)
-> Either
     String
     (Maybe OutputLocation
      -> Maybe (NonEmpty SimulationApplicationConfig)
      -> Maybe Integer
      -> Maybe Text
      -> Maybe POSIX
      -> Maybe LoggingConfig
      -> Maybe Text
      -> Maybe Integer
      -> Maybe (HashMap Text Text)
      -> Int
      -> CreateSimulationJobResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe VPCConfigResponse)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"vpcConfig")
            Either
  String
  (Maybe OutputLocation
   -> Maybe (NonEmpty SimulationApplicationConfig)
   -> Maybe Integer
   -> Maybe Text
   -> Maybe POSIX
   -> Maybe LoggingConfig
   -> Maybe Text
   -> Maybe Integer
   -> Maybe (HashMap Text Text)
   -> Int
   -> CreateSimulationJobResponse)
-> Either String (Maybe OutputLocation)
-> Either
     String
     (Maybe (NonEmpty SimulationApplicationConfig)
      -> Maybe Integer
      -> Maybe Text
      -> Maybe POSIX
      -> Maybe LoggingConfig
      -> Maybe Text
      -> Maybe Integer
      -> Maybe (HashMap Text Text)
      -> Int
      -> CreateSimulationJobResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe OutputLocation)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"outputLocation")
            Either
  String
  (Maybe (NonEmpty SimulationApplicationConfig)
   -> Maybe Integer
   -> Maybe Text
   -> Maybe POSIX
   -> Maybe LoggingConfig
   -> Maybe Text
   -> Maybe Integer
   -> Maybe (HashMap Text Text)
   -> Int
   -> CreateSimulationJobResponse)
-> Either String (Maybe (NonEmpty SimulationApplicationConfig))
-> Either
     String
     (Maybe Integer
      -> Maybe Text
      -> Maybe POSIX
      -> Maybe LoggingConfig
      -> Maybe Text
      -> Maybe Integer
      -> Maybe (HashMap Text Text)
      -> Int
      -> CreateSimulationJobResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object
-> Text
-> Either String (Maybe (NonEmpty SimulationApplicationConfig))
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"simulationApplications")
            Either
  String
  (Maybe Integer
   -> Maybe Text
   -> Maybe POSIX
   -> Maybe LoggingConfig
   -> Maybe Text
   -> Maybe Integer
   -> Maybe (HashMap Text Text)
   -> Int
   -> CreateSimulationJobResponse)
-> Either String (Maybe Integer)
-> Either
     String
     (Maybe Text
      -> Maybe POSIX
      -> Maybe LoggingConfig
      -> Maybe Text
      -> Maybe Integer
      -> Maybe (HashMap Text Text)
      -> Int
      -> CreateSimulationJobResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Integer)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"simulationTimeMillis")
            Either
  String
  (Maybe Text
   -> Maybe POSIX
   -> Maybe LoggingConfig
   -> Maybe Text
   -> Maybe Integer
   -> Maybe (HashMap Text Text)
   -> Int
   -> CreateSimulationJobResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe POSIX
      -> Maybe LoggingConfig
      -> Maybe Text
      -> Maybe Integer
      -> Maybe (HashMap Text Text)
      -> Int
      -> CreateSimulationJobResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"clientRequestToken")
            Either
  String
  (Maybe POSIX
   -> Maybe LoggingConfig
   -> Maybe Text
   -> Maybe Integer
   -> Maybe (HashMap Text Text)
   -> Int
   -> CreateSimulationJobResponse)
-> Either String (Maybe POSIX)
-> Either
     String
     (Maybe LoggingConfig
      -> Maybe Text
      -> Maybe Integer
      -> Maybe (HashMap Text Text)
      -> Int
      -> CreateSimulationJobResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe POSIX)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"lastStartedAt")
            Either
  String
  (Maybe LoggingConfig
   -> Maybe Text
   -> Maybe Integer
   -> Maybe (HashMap Text Text)
   -> Int
   -> CreateSimulationJobResponse)
-> Either String (Maybe LoggingConfig)
-> Either
     String
     (Maybe Text
      -> Maybe Integer
      -> Maybe (HashMap Text Text)
      -> Int
      -> CreateSimulationJobResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe LoggingConfig)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"loggingConfig")
            Either
  String
  (Maybe Text
   -> Maybe Integer
   -> Maybe (HashMap Text Text)
   -> Int
   -> CreateSimulationJobResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe Integer
      -> Maybe (HashMap Text Text) -> Int -> CreateSimulationJobResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"iamRole")
            Either
  String
  (Maybe Integer
   -> Maybe (HashMap Text Text) -> Int -> CreateSimulationJobResponse)
-> Either String (Maybe Integer)
-> Either
     String
     (Maybe (HashMap Text Text) -> Int -> CreateSimulationJobResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Integer)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"maxJobDurationInSeconds")
            Either
  String
  (Maybe (HashMap Text Text) -> Int -> CreateSimulationJobResponse)
-> Either String (Maybe (HashMap Text Text))
-> Either String (Int -> CreateSimulationJobResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe (Maybe (HashMap Text Text)))
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"tags" Either String (Maybe (Maybe (HashMap Text Text)))
-> Maybe (HashMap Text Text)
-> Either String (Maybe (HashMap Text Text))
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ Maybe (HashMap Text Text)
forall a. Monoid a => a
Prelude.mempty)
            Either String (Int -> CreateSimulationJobResponse)
-> Either String Int -> Either String CreateSimulationJobResponse
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Int -> Either String Int
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (Int -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
      )

instance Prelude.Hashable CreateSimulationJob

instance Prelude.NFData CreateSimulationJob

instance Core.ToHeaders CreateSimulationJob where
  toHeaders :: CreateSimulationJob -> ResponseHeaders
toHeaders =
    ResponseHeaders -> CreateSimulationJob -> ResponseHeaders
forall a b. a -> b -> a
Prelude.const
      ( [ResponseHeaders] -> ResponseHeaders
forall a. Monoid a => [a] -> a
Prelude.mconcat
          [ HeaderName
"Content-Type"
              HeaderName -> ByteString -> ResponseHeaders
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Core.=# ( ByteString
"application/x-amz-json-1.1" ::
                          Prelude.ByteString
                      )
          ]
      )

instance Core.ToJSON CreateSimulationJob where
  toJSON :: CreateSimulationJob -> Value
toJSON CreateSimulationJob' {Integer
Maybe (NonEmpty DataSourceConfig)
Maybe (NonEmpty RobotApplicationConfig)
Maybe (NonEmpty SimulationApplicationConfig)
Maybe Text
Maybe (HashMap Text Text)
Maybe Compute
Maybe FailureBehavior
Maybe LoggingConfig
Maybe OutputLocation
Maybe VPCConfig
Text
iamRole :: Text
maxJobDurationInSeconds :: Integer
tags :: Maybe (HashMap Text Text)
loggingConfig :: Maybe LoggingConfig
clientRequestToken :: Maybe Text
simulationApplications :: Maybe (NonEmpty SimulationApplicationConfig)
outputLocation :: Maybe OutputLocation
vpcConfig :: Maybe VPCConfig
dataSources :: Maybe (NonEmpty DataSourceConfig)
compute :: Maybe Compute
robotApplications :: Maybe (NonEmpty RobotApplicationConfig)
failureBehavior :: Maybe FailureBehavior
$sel:iamRole:CreateSimulationJob' :: CreateSimulationJob -> Text
$sel:maxJobDurationInSeconds:CreateSimulationJob' :: CreateSimulationJob -> Integer
$sel:tags:CreateSimulationJob' :: CreateSimulationJob -> Maybe (HashMap Text Text)
$sel:loggingConfig:CreateSimulationJob' :: CreateSimulationJob -> Maybe LoggingConfig
$sel:clientRequestToken:CreateSimulationJob' :: CreateSimulationJob -> Maybe Text
$sel:simulationApplications:CreateSimulationJob' :: CreateSimulationJob -> Maybe (NonEmpty SimulationApplicationConfig)
$sel:outputLocation:CreateSimulationJob' :: CreateSimulationJob -> Maybe OutputLocation
$sel:vpcConfig:CreateSimulationJob' :: CreateSimulationJob -> Maybe VPCConfig
$sel:dataSources:CreateSimulationJob' :: CreateSimulationJob -> Maybe (NonEmpty DataSourceConfig)
$sel:compute:CreateSimulationJob' :: CreateSimulationJob -> Maybe Compute
$sel:robotApplications:CreateSimulationJob' :: CreateSimulationJob -> Maybe (NonEmpty RobotApplicationConfig)
$sel:failureBehavior:CreateSimulationJob' :: CreateSimulationJob -> Maybe FailureBehavior
..} =
    [Pair] -> Value
Core.object
      ( [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ (Text
"failureBehavior" Text -> FailureBehavior -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
              (FailureBehavior -> Pair) -> Maybe FailureBehavior -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe FailureBehavior
failureBehavior,
            (Text
"robotApplications" Text -> NonEmpty RobotApplicationConfig -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
              (NonEmpty RobotApplicationConfig -> Pair)
-> Maybe (NonEmpty RobotApplicationConfig) -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (NonEmpty RobotApplicationConfig)
robotApplications,
            (Text
"compute" Text -> Compute -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (Compute -> Pair) -> Maybe Compute -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Compute
compute,
            (Text
"dataSources" Text -> NonEmpty DataSourceConfig -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (NonEmpty DataSourceConfig -> Pair)
-> Maybe (NonEmpty DataSourceConfig) -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (NonEmpty DataSourceConfig)
dataSources,
            (Text
"vpcConfig" Text -> VPCConfig -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (VPCConfig -> Pair) -> Maybe VPCConfig -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe VPCConfig
vpcConfig,
            (Text
"outputLocation" Text -> OutputLocation -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
              (OutputLocation -> Pair) -> Maybe OutputLocation -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe OutputLocation
outputLocation,
            (Text
"simulationApplications" Text -> NonEmpty SimulationApplicationConfig -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
              (NonEmpty SimulationApplicationConfig -> Pair)
-> Maybe (NonEmpty SimulationApplicationConfig) -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (NonEmpty SimulationApplicationConfig)
simulationApplications,
            (Text
"clientRequestToken" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
              (Text -> Pair) -> Maybe Text -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
clientRequestToken,
            (Text
"loggingConfig" Text -> LoggingConfig -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (LoggingConfig -> Pair) -> Maybe LoggingConfig -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe LoggingConfig
loggingConfig,
            (Text
"tags" Text -> HashMap Text Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (HashMap Text Text -> Pair)
-> Maybe (HashMap Text Text) -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (HashMap Text Text)
tags,
            Pair -> Maybe Pair
forall a. a -> Maybe a
Prelude.Just
              ( Text
"maxJobDurationInSeconds"
                  Text -> Integer -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= Integer
maxJobDurationInSeconds
              ),
            Pair -> Maybe Pair
forall a. a -> Maybe a
Prelude.Just (Text
"iamRole" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= Text
iamRole)
          ]
      )

instance Core.ToPath CreateSimulationJob where
  toPath :: CreateSimulationJob -> ByteString
toPath = ByteString -> CreateSimulationJob -> ByteString
forall a b. a -> b -> a
Prelude.const ByteString
"/createSimulationJob"

instance Core.ToQuery CreateSimulationJob where
  toQuery :: CreateSimulationJob -> QueryString
toQuery = QueryString -> CreateSimulationJob -> QueryString
forall a b. a -> b -> a
Prelude.const QueryString
forall a. Monoid a => a
Prelude.mempty

-- | /See:/ 'newCreateSimulationJobResponse' smart constructor.
data CreateSimulationJobResponse = CreateSimulationJobResponse'
  { -- | the failure behavior for the simulation job.
    CreateSimulationJobResponse -> Maybe FailureBehavior
failureBehavior :: Prelude.Maybe FailureBehavior,
    -- | The status of the simulation job.
    CreateSimulationJobResponse -> Maybe SimulationJobStatus
status :: Prelude.Maybe SimulationJobStatus,
    -- | The time, in milliseconds since the epoch, when the simulation job was
    -- last updated.
    CreateSimulationJobResponse -> Maybe POSIX
lastUpdatedAt :: Prelude.Maybe Core.POSIX,
    -- | The Amazon Resource Name (ARN) of the simulation job.
    CreateSimulationJobResponse -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
    -- | The robot application used by the simulation job.
    CreateSimulationJobResponse
-> Maybe (NonEmpty RobotApplicationConfig)
robotApplications :: Prelude.Maybe (Prelude.NonEmpty RobotApplicationConfig),
    -- | The failure code of the simulation job if it failed:
    --
    -- [InternalServiceError]
    --     Internal service error.
    --
    -- [RobotApplicationCrash]
    --     Robot application exited abnormally.
    --
    -- [SimulationApplicationCrash]
    --     Simulation application exited abnormally.
    --
    -- [BadPermissionsRobotApplication]
    --     Robot application bundle could not be downloaded.
    --
    -- [BadPermissionsSimulationApplication]
    --     Simulation application bundle could not be downloaded.
    --
    -- [BadPermissionsS3Output]
    --     Unable to publish outputs to customer-provided S3 bucket.
    --
    -- [BadPermissionsCloudwatchLogs]
    --     Unable to publish logs to customer-provided CloudWatch Logs
    --     resource.
    --
    -- [SubnetIpLimitExceeded]
    --     Subnet IP limit exceeded.
    --
    -- [ENILimitExceeded]
    --     ENI limit exceeded.
    --
    -- [BadPermissionsUserCredentials]
    --     Unable to use the Role provided.
    --
    -- [InvalidBundleRobotApplication]
    --     Robot bundle cannot be extracted (invalid format, bundling error, or
    --     other issue).
    --
    -- [InvalidBundleSimulationApplication]
    --     Simulation bundle cannot be extracted (invalid format, bundling
    --     error, or other issue).
    --
    -- [RobotApplicationVersionMismatchedEtag]
    --     Etag for RobotApplication does not match value during version
    --     creation.
    --
    -- [SimulationApplicationVersionMismatchedEtag]
    --     Etag for SimulationApplication does not match value during version
    --     creation.
    CreateSimulationJobResponse -> Maybe SimulationJobErrorCode
failureCode :: Prelude.Maybe SimulationJobErrorCode,
    -- | Compute information for the simulation job.
    CreateSimulationJobResponse -> Maybe ComputeResponse
compute :: Prelude.Maybe ComputeResponse,
    -- | The data sources for the simulation job.
    CreateSimulationJobResponse -> Maybe [DataSource]
dataSources :: Prelude.Maybe [DataSource],
    -- | Information about the vpc configuration.
    CreateSimulationJobResponse -> Maybe VPCConfigResponse
vpcConfig :: Prelude.Maybe VPCConfigResponse,
    -- | Simulation job output files location.
    CreateSimulationJobResponse -> Maybe OutputLocation
outputLocation :: Prelude.Maybe OutputLocation,
    -- | The simulation application used by the simulation job.
    CreateSimulationJobResponse
-> Maybe (NonEmpty SimulationApplicationConfig)
simulationApplications :: Prelude.Maybe (Prelude.NonEmpty SimulationApplicationConfig),
    -- | The simulation job execution duration in milliseconds.
    CreateSimulationJobResponse -> Maybe Integer
simulationTimeMillis :: Prelude.Maybe Prelude.Integer,
    -- | Unique, case-sensitive identifier that you provide to ensure the
    -- idempotency of the request.
    CreateSimulationJobResponse -> Maybe Text
clientRequestToken :: Prelude.Maybe Prelude.Text,
    -- | The time, in milliseconds since the epoch, when the simulation job was
    -- last started.
    CreateSimulationJobResponse -> Maybe POSIX
lastStartedAt :: Prelude.Maybe Core.POSIX,
    -- | The logging configuration.
    CreateSimulationJobResponse -> Maybe LoggingConfig
loggingConfig :: Prelude.Maybe LoggingConfig,
    -- | The IAM role that allows the simulation job to call the AWS APIs that
    -- are specified in its associated policies on your behalf.
    CreateSimulationJobResponse -> Maybe Text
iamRole :: Prelude.Maybe Prelude.Text,
    -- | The maximum simulation job duration in seconds.
    CreateSimulationJobResponse -> Maybe Integer
maxJobDurationInSeconds :: Prelude.Maybe Prelude.Integer,
    -- | The list of all tags added to the simulation job.
    CreateSimulationJobResponse -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
    -- | The response's http status code.
    CreateSimulationJobResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (CreateSimulationJobResponse -> CreateSimulationJobResponse -> Bool
(CreateSimulationJobResponse
 -> CreateSimulationJobResponse -> Bool)
-> (CreateSimulationJobResponse
    -> CreateSimulationJobResponse -> Bool)
-> Eq CreateSimulationJobResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateSimulationJobResponse -> CreateSimulationJobResponse -> Bool
$c/= :: CreateSimulationJobResponse -> CreateSimulationJobResponse -> Bool
== :: CreateSimulationJobResponse -> CreateSimulationJobResponse -> Bool
$c== :: CreateSimulationJobResponse -> CreateSimulationJobResponse -> Bool
Prelude.Eq, ReadPrec [CreateSimulationJobResponse]
ReadPrec CreateSimulationJobResponse
Int -> ReadS CreateSimulationJobResponse
ReadS [CreateSimulationJobResponse]
(Int -> ReadS CreateSimulationJobResponse)
-> ReadS [CreateSimulationJobResponse]
-> ReadPrec CreateSimulationJobResponse
-> ReadPrec [CreateSimulationJobResponse]
-> Read CreateSimulationJobResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateSimulationJobResponse]
$creadListPrec :: ReadPrec [CreateSimulationJobResponse]
readPrec :: ReadPrec CreateSimulationJobResponse
$creadPrec :: ReadPrec CreateSimulationJobResponse
readList :: ReadS [CreateSimulationJobResponse]
$creadList :: ReadS [CreateSimulationJobResponse]
readsPrec :: Int -> ReadS CreateSimulationJobResponse
$creadsPrec :: Int -> ReadS CreateSimulationJobResponse
Prelude.Read, Int -> CreateSimulationJobResponse -> ShowS
[CreateSimulationJobResponse] -> ShowS
CreateSimulationJobResponse -> String
(Int -> CreateSimulationJobResponse -> ShowS)
-> (CreateSimulationJobResponse -> String)
-> ([CreateSimulationJobResponse] -> ShowS)
-> Show CreateSimulationJobResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateSimulationJobResponse] -> ShowS
$cshowList :: [CreateSimulationJobResponse] -> ShowS
show :: CreateSimulationJobResponse -> String
$cshow :: CreateSimulationJobResponse -> String
showsPrec :: Int -> CreateSimulationJobResponse -> ShowS
$cshowsPrec :: Int -> CreateSimulationJobResponse -> ShowS
Prelude.Show, (forall x.
 CreateSimulationJobResponse -> Rep CreateSimulationJobResponse x)
-> (forall x.
    Rep CreateSimulationJobResponse x -> CreateSimulationJobResponse)
-> Generic CreateSimulationJobResponse
forall x.
Rep CreateSimulationJobResponse x -> CreateSimulationJobResponse
forall x.
CreateSimulationJobResponse -> Rep CreateSimulationJobResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateSimulationJobResponse x -> CreateSimulationJobResponse
$cfrom :: forall x.
CreateSimulationJobResponse -> Rep CreateSimulationJobResponse x
Prelude.Generic)

-- |
-- Create a value of 'CreateSimulationJobResponse' 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:
--
-- 'failureBehavior', 'createSimulationJobResponse_failureBehavior' - the failure behavior for the simulation job.
--
-- 'status', 'createSimulationJobResponse_status' - The status of the simulation job.
--
-- 'lastUpdatedAt', 'createSimulationJobResponse_lastUpdatedAt' - The time, in milliseconds since the epoch, when the simulation job was
-- last updated.
--
-- 'arn', 'createSimulationJobResponse_arn' - The Amazon Resource Name (ARN) of the simulation job.
--
-- 'robotApplications', 'createSimulationJobResponse_robotApplications' - The robot application used by the simulation job.
--
-- 'failureCode', 'createSimulationJobResponse_failureCode' - The failure code of the simulation job if it failed:
--
-- [InternalServiceError]
--     Internal service error.
--
-- [RobotApplicationCrash]
--     Robot application exited abnormally.
--
-- [SimulationApplicationCrash]
--     Simulation application exited abnormally.
--
-- [BadPermissionsRobotApplication]
--     Robot application bundle could not be downloaded.
--
-- [BadPermissionsSimulationApplication]
--     Simulation application bundle could not be downloaded.
--
-- [BadPermissionsS3Output]
--     Unable to publish outputs to customer-provided S3 bucket.
--
-- [BadPermissionsCloudwatchLogs]
--     Unable to publish logs to customer-provided CloudWatch Logs
--     resource.
--
-- [SubnetIpLimitExceeded]
--     Subnet IP limit exceeded.
--
-- [ENILimitExceeded]
--     ENI limit exceeded.
--
-- [BadPermissionsUserCredentials]
--     Unable to use the Role provided.
--
-- [InvalidBundleRobotApplication]
--     Robot bundle cannot be extracted (invalid format, bundling error, or
--     other issue).
--
-- [InvalidBundleSimulationApplication]
--     Simulation bundle cannot be extracted (invalid format, bundling
--     error, or other issue).
--
-- [RobotApplicationVersionMismatchedEtag]
--     Etag for RobotApplication does not match value during version
--     creation.
--
-- [SimulationApplicationVersionMismatchedEtag]
--     Etag for SimulationApplication does not match value during version
--     creation.
--
-- 'compute', 'createSimulationJobResponse_compute' - Compute information for the simulation job.
--
-- 'dataSources', 'createSimulationJobResponse_dataSources' - The data sources for the simulation job.
--
-- 'vpcConfig', 'createSimulationJobResponse_vpcConfig' - Information about the vpc configuration.
--
-- 'outputLocation', 'createSimulationJobResponse_outputLocation' - Simulation job output files location.
--
-- 'simulationApplications', 'createSimulationJobResponse_simulationApplications' - The simulation application used by the simulation job.
--
-- 'simulationTimeMillis', 'createSimulationJobResponse_simulationTimeMillis' - The simulation job execution duration in milliseconds.
--
-- 'clientRequestToken', 'createSimulationJobResponse_clientRequestToken' - Unique, case-sensitive identifier that you provide to ensure the
-- idempotency of the request.
--
-- 'lastStartedAt', 'createSimulationJobResponse_lastStartedAt' - The time, in milliseconds since the epoch, when the simulation job was
-- last started.
--
-- 'loggingConfig', 'createSimulationJobResponse_loggingConfig' - The logging configuration.
--
-- 'iamRole', 'createSimulationJobResponse_iamRole' - The IAM role that allows the simulation job to call the AWS APIs that
-- are specified in its associated policies on your behalf.
--
-- 'maxJobDurationInSeconds', 'createSimulationJobResponse_maxJobDurationInSeconds' - The maximum simulation job duration in seconds.
--
-- 'tags', 'createSimulationJobResponse_tags' - The list of all tags added to the simulation job.
--
-- 'httpStatus', 'createSimulationJobResponse_httpStatus' - The response's http status code.
newCreateSimulationJobResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  CreateSimulationJobResponse
newCreateSimulationJobResponse :: Int -> CreateSimulationJobResponse
newCreateSimulationJobResponse Int
pHttpStatus_ =
  CreateSimulationJobResponse' :: Maybe FailureBehavior
-> Maybe SimulationJobStatus
-> Maybe POSIX
-> Maybe Text
-> Maybe (NonEmpty RobotApplicationConfig)
-> Maybe SimulationJobErrorCode
-> Maybe ComputeResponse
-> Maybe [DataSource]
-> Maybe VPCConfigResponse
-> Maybe OutputLocation
-> Maybe (NonEmpty SimulationApplicationConfig)
-> Maybe Integer
-> Maybe Text
-> Maybe POSIX
-> Maybe LoggingConfig
-> Maybe Text
-> Maybe Integer
-> Maybe (HashMap Text Text)
-> Int
-> CreateSimulationJobResponse
CreateSimulationJobResponse'
    { $sel:failureBehavior:CreateSimulationJobResponse' :: Maybe FailureBehavior
failureBehavior =
        Maybe FailureBehavior
forall a. Maybe a
Prelude.Nothing,
      $sel:status:CreateSimulationJobResponse' :: Maybe SimulationJobStatus
status = Maybe SimulationJobStatus
forall a. Maybe a
Prelude.Nothing,
      $sel:lastUpdatedAt:CreateSimulationJobResponse' :: Maybe POSIX
lastUpdatedAt = Maybe POSIX
forall a. Maybe a
Prelude.Nothing,
      $sel:arn:CreateSimulationJobResponse' :: Maybe Text
arn = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:robotApplications:CreateSimulationJobResponse' :: Maybe (NonEmpty RobotApplicationConfig)
robotApplications = Maybe (NonEmpty RobotApplicationConfig)
forall a. Maybe a
Prelude.Nothing,
      $sel:failureCode:CreateSimulationJobResponse' :: Maybe SimulationJobErrorCode
failureCode = Maybe SimulationJobErrorCode
forall a. Maybe a
Prelude.Nothing,
      $sel:compute:CreateSimulationJobResponse' :: Maybe ComputeResponse
compute = Maybe ComputeResponse
forall a. Maybe a
Prelude.Nothing,
      $sel:dataSources:CreateSimulationJobResponse' :: Maybe [DataSource]
dataSources = Maybe [DataSource]
forall a. Maybe a
Prelude.Nothing,
      $sel:vpcConfig:CreateSimulationJobResponse' :: Maybe VPCConfigResponse
vpcConfig = Maybe VPCConfigResponse
forall a. Maybe a
Prelude.Nothing,
      $sel:outputLocation:CreateSimulationJobResponse' :: Maybe OutputLocation
outputLocation = Maybe OutputLocation
forall a. Maybe a
Prelude.Nothing,
      $sel:simulationApplications:CreateSimulationJobResponse' :: Maybe (NonEmpty SimulationApplicationConfig)
simulationApplications = Maybe (NonEmpty SimulationApplicationConfig)
forall a. Maybe a
Prelude.Nothing,
      $sel:simulationTimeMillis:CreateSimulationJobResponse' :: Maybe Integer
simulationTimeMillis = Maybe Integer
forall a. Maybe a
Prelude.Nothing,
      $sel:clientRequestToken:CreateSimulationJobResponse' :: Maybe Text
clientRequestToken = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:lastStartedAt:CreateSimulationJobResponse' :: Maybe POSIX
lastStartedAt = Maybe POSIX
forall a. Maybe a
Prelude.Nothing,
      $sel:loggingConfig:CreateSimulationJobResponse' :: Maybe LoggingConfig
loggingConfig = Maybe LoggingConfig
forall a. Maybe a
Prelude.Nothing,
      $sel:iamRole:CreateSimulationJobResponse' :: Maybe Text
iamRole = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:maxJobDurationInSeconds:CreateSimulationJobResponse' :: Maybe Integer
maxJobDurationInSeconds = Maybe Integer
forall a. Maybe a
Prelude.Nothing,
      $sel:tags:CreateSimulationJobResponse' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:CreateSimulationJobResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | the failure behavior for the simulation job.
createSimulationJobResponse_failureBehavior :: Lens.Lens' CreateSimulationJobResponse (Prelude.Maybe FailureBehavior)
createSimulationJobResponse_failureBehavior :: (Maybe FailureBehavior -> f (Maybe FailureBehavior))
-> CreateSimulationJobResponse -> f CreateSimulationJobResponse
createSimulationJobResponse_failureBehavior = (CreateSimulationJobResponse -> Maybe FailureBehavior)
-> (CreateSimulationJobResponse
    -> Maybe FailureBehavior -> CreateSimulationJobResponse)
-> Lens
     CreateSimulationJobResponse
     CreateSimulationJobResponse
     (Maybe FailureBehavior)
     (Maybe FailureBehavior)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationJobResponse' {Maybe FailureBehavior
failureBehavior :: Maybe FailureBehavior
$sel:failureBehavior:CreateSimulationJobResponse' :: CreateSimulationJobResponse -> Maybe FailureBehavior
failureBehavior} -> Maybe FailureBehavior
failureBehavior) (\s :: CreateSimulationJobResponse
s@CreateSimulationJobResponse' {} Maybe FailureBehavior
a -> CreateSimulationJobResponse
s {$sel:failureBehavior:CreateSimulationJobResponse' :: Maybe FailureBehavior
failureBehavior = Maybe FailureBehavior
a} :: CreateSimulationJobResponse)

-- | The status of the simulation job.
createSimulationJobResponse_status :: Lens.Lens' CreateSimulationJobResponse (Prelude.Maybe SimulationJobStatus)
createSimulationJobResponse_status :: (Maybe SimulationJobStatus -> f (Maybe SimulationJobStatus))
-> CreateSimulationJobResponse -> f CreateSimulationJobResponse
createSimulationJobResponse_status = (CreateSimulationJobResponse -> Maybe SimulationJobStatus)
-> (CreateSimulationJobResponse
    -> Maybe SimulationJobStatus -> CreateSimulationJobResponse)
-> Lens
     CreateSimulationJobResponse
     CreateSimulationJobResponse
     (Maybe SimulationJobStatus)
     (Maybe SimulationJobStatus)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationJobResponse' {Maybe SimulationJobStatus
status :: Maybe SimulationJobStatus
$sel:status:CreateSimulationJobResponse' :: CreateSimulationJobResponse -> Maybe SimulationJobStatus
status} -> Maybe SimulationJobStatus
status) (\s :: CreateSimulationJobResponse
s@CreateSimulationJobResponse' {} Maybe SimulationJobStatus
a -> CreateSimulationJobResponse
s {$sel:status:CreateSimulationJobResponse' :: Maybe SimulationJobStatus
status = Maybe SimulationJobStatus
a} :: CreateSimulationJobResponse)

-- | The time, in milliseconds since the epoch, when the simulation job was
-- last updated.
createSimulationJobResponse_lastUpdatedAt :: Lens.Lens' CreateSimulationJobResponse (Prelude.Maybe Prelude.UTCTime)
createSimulationJobResponse_lastUpdatedAt :: (Maybe UTCTime -> f (Maybe UTCTime))
-> CreateSimulationJobResponse -> f CreateSimulationJobResponse
createSimulationJobResponse_lastUpdatedAt = (CreateSimulationJobResponse -> Maybe POSIX)
-> (CreateSimulationJobResponse
    -> Maybe POSIX -> CreateSimulationJobResponse)
-> Lens
     CreateSimulationJobResponse
     CreateSimulationJobResponse
     (Maybe POSIX)
     (Maybe POSIX)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationJobResponse' {Maybe POSIX
lastUpdatedAt :: Maybe POSIX
$sel:lastUpdatedAt:CreateSimulationJobResponse' :: CreateSimulationJobResponse -> Maybe POSIX
lastUpdatedAt} -> Maybe POSIX
lastUpdatedAt) (\s :: CreateSimulationJobResponse
s@CreateSimulationJobResponse' {} Maybe POSIX
a -> CreateSimulationJobResponse
s {$sel:lastUpdatedAt:CreateSimulationJobResponse' :: Maybe POSIX
lastUpdatedAt = Maybe POSIX
a} :: CreateSimulationJobResponse) ((Maybe POSIX -> f (Maybe POSIX))
 -> CreateSimulationJobResponse -> f CreateSimulationJobResponse)
-> ((Maybe UTCTime -> f (Maybe UTCTime))
    -> Maybe POSIX -> f (Maybe POSIX))
-> (Maybe UTCTime -> f (Maybe UTCTime))
-> CreateSimulationJobResponse
-> f CreateSimulationJobResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso POSIX POSIX UTCTime UTCTime
-> Iso (Maybe POSIX) (Maybe POSIX) (Maybe UTCTime) (Maybe UTCTime)
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 AnIso POSIX POSIX UTCTime UTCTime
forall (a :: Format). Iso' (Time a) UTCTime
Core._Time

-- | The Amazon Resource Name (ARN) of the simulation job.
createSimulationJobResponse_arn :: Lens.Lens' CreateSimulationJobResponse (Prelude.Maybe Prelude.Text)
createSimulationJobResponse_arn :: (Maybe Text -> f (Maybe Text))
-> CreateSimulationJobResponse -> f CreateSimulationJobResponse
createSimulationJobResponse_arn = (CreateSimulationJobResponse -> Maybe Text)
-> (CreateSimulationJobResponse
    -> Maybe Text -> CreateSimulationJobResponse)
-> Lens
     CreateSimulationJobResponse
     CreateSimulationJobResponse
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationJobResponse' {Maybe Text
arn :: Maybe Text
$sel:arn:CreateSimulationJobResponse' :: CreateSimulationJobResponse -> Maybe Text
arn} -> Maybe Text
arn) (\s :: CreateSimulationJobResponse
s@CreateSimulationJobResponse' {} Maybe Text
a -> CreateSimulationJobResponse
s {$sel:arn:CreateSimulationJobResponse' :: Maybe Text
arn = Maybe Text
a} :: CreateSimulationJobResponse)

-- | The robot application used by the simulation job.
createSimulationJobResponse_robotApplications :: Lens.Lens' CreateSimulationJobResponse (Prelude.Maybe (Prelude.NonEmpty RobotApplicationConfig))
createSimulationJobResponse_robotApplications :: (Maybe (NonEmpty RobotApplicationConfig)
 -> f (Maybe (NonEmpty RobotApplicationConfig)))
-> CreateSimulationJobResponse -> f CreateSimulationJobResponse
createSimulationJobResponse_robotApplications = (CreateSimulationJobResponse
 -> Maybe (NonEmpty RobotApplicationConfig))
-> (CreateSimulationJobResponse
    -> Maybe (NonEmpty RobotApplicationConfig)
    -> CreateSimulationJobResponse)
-> Lens
     CreateSimulationJobResponse
     CreateSimulationJobResponse
     (Maybe (NonEmpty RobotApplicationConfig))
     (Maybe (NonEmpty RobotApplicationConfig))
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationJobResponse' {Maybe (NonEmpty RobotApplicationConfig)
robotApplications :: Maybe (NonEmpty RobotApplicationConfig)
$sel:robotApplications:CreateSimulationJobResponse' :: CreateSimulationJobResponse
-> Maybe (NonEmpty RobotApplicationConfig)
robotApplications} -> Maybe (NonEmpty RobotApplicationConfig)
robotApplications) (\s :: CreateSimulationJobResponse
s@CreateSimulationJobResponse' {} Maybe (NonEmpty RobotApplicationConfig)
a -> CreateSimulationJobResponse
s {$sel:robotApplications:CreateSimulationJobResponse' :: Maybe (NonEmpty RobotApplicationConfig)
robotApplications = Maybe (NonEmpty RobotApplicationConfig)
a} :: CreateSimulationJobResponse) ((Maybe (NonEmpty RobotApplicationConfig)
  -> f (Maybe (NonEmpty RobotApplicationConfig)))
 -> CreateSimulationJobResponse -> f CreateSimulationJobResponse)
-> ((Maybe (NonEmpty RobotApplicationConfig)
     -> f (Maybe (NonEmpty RobotApplicationConfig)))
    -> Maybe (NonEmpty RobotApplicationConfig)
    -> f (Maybe (NonEmpty RobotApplicationConfig)))
-> (Maybe (NonEmpty RobotApplicationConfig)
    -> f (Maybe (NonEmpty RobotApplicationConfig)))
-> CreateSimulationJobResponse
-> f CreateSimulationJobResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso
  (NonEmpty RobotApplicationConfig)
  (NonEmpty RobotApplicationConfig)
  (NonEmpty RobotApplicationConfig)
  (NonEmpty RobotApplicationConfig)
-> Iso
     (Maybe (NonEmpty RobotApplicationConfig))
     (Maybe (NonEmpty RobotApplicationConfig))
     (Maybe (NonEmpty RobotApplicationConfig))
     (Maybe (NonEmpty RobotApplicationConfig))
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 AnIso
  (NonEmpty RobotApplicationConfig)
  (NonEmpty RobotApplicationConfig)
  (NonEmpty RobotApplicationConfig)
  (NonEmpty RobotApplicationConfig)
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | The failure code of the simulation job if it failed:
--
-- [InternalServiceError]
--     Internal service error.
--
-- [RobotApplicationCrash]
--     Robot application exited abnormally.
--
-- [SimulationApplicationCrash]
--     Simulation application exited abnormally.
--
-- [BadPermissionsRobotApplication]
--     Robot application bundle could not be downloaded.
--
-- [BadPermissionsSimulationApplication]
--     Simulation application bundle could not be downloaded.
--
-- [BadPermissionsS3Output]
--     Unable to publish outputs to customer-provided S3 bucket.
--
-- [BadPermissionsCloudwatchLogs]
--     Unable to publish logs to customer-provided CloudWatch Logs
--     resource.
--
-- [SubnetIpLimitExceeded]
--     Subnet IP limit exceeded.
--
-- [ENILimitExceeded]
--     ENI limit exceeded.
--
-- [BadPermissionsUserCredentials]
--     Unable to use the Role provided.
--
-- [InvalidBundleRobotApplication]
--     Robot bundle cannot be extracted (invalid format, bundling error, or
--     other issue).
--
-- [InvalidBundleSimulationApplication]
--     Simulation bundle cannot be extracted (invalid format, bundling
--     error, or other issue).
--
-- [RobotApplicationVersionMismatchedEtag]
--     Etag for RobotApplication does not match value during version
--     creation.
--
-- [SimulationApplicationVersionMismatchedEtag]
--     Etag for SimulationApplication does not match value during version
--     creation.
createSimulationJobResponse_failureCode :: Lens.Lens' CreateSimulationJobResponse (Prelude.Maybe SimulationJobErrorCode)
createSimulationJobResponse_failureCode :: (Maybe SimulationJobErrorCode -> f (Maybe SimulationJobErrorCode))
-> CreateSimulationJobResponse -> f CreateSimulationJobResponse
createSimulationJobResponse_failureCode = (CreateSimulationJobResponse -> Maybe SimulationJobErrorCode)
-> (CreateSimulationJobResponse
    -> Maybe SimulationJobErrorCode -> CreateSimulationJobResponse)
-> Lens
     CreateSimulationJobResponse
     CreateSimulationJobResponse
     (Maybe SimulationJobErrorCode)
     (Maybe SimulationJobErrorCode)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationJobResponse' {Maybe SimulationJobErrorCode
failureCode :: Maybe SimulationJobErrorCode
$sel:failureCode:CreateSimulationJobResponse' :: CreateSimulationJobResponse -> Maybe SimulationJobErrorCode
failureCode} -> Maybe SimulationJobErrorCode
failureCode) (\s :: CreateSimulationJobResponse
s@CreateSimulationJobResponse' {} Maybe SimulationJobErrorCode
a -> CreateSimulationJobResponse
s {$sel:failureCode:CreateSimulationJobResponse' :: Maybe SimulationJobErrorCode
failureCode = Maybe SimulationJobErrorCode
a} :: CreateSimulationJobResponse)

-- | Compute information for the simulation job.
createSimulationJobResponse_compute :: Lens.Lens' CreateSimulationJobResponse (Prelude.Maybe ComputeResponse)
createSimulationJobResponse_compute :: (Maybe ComputeResponse -> f (Maybe ComputeResponse))
-> CreateSimulationJobResponse -> f CreateSimulationJobResponse
createSimulationJobResponse_compute = (CreateSimulationJobResponse -> Maybe ComputeResponse)
-> (CreateSimulationJobResponse
    -> Maybe ComputeResponse -> CreateSimulationJobResponse)
-> Lens
     CreateSimulationJobResponse
     CreateSimulationJobResponse
     (Maybe ComputeResponse)
     (Maybe ComputeResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationJobResponse' {Maybe ComputeResponse
compute :: Maybe ComputeResponse
$sel:compute:CreateSimulationJobResponse' :: CreateSimulationJobResponse -> Maybe ComputeResponse
compute} -> Maybe ComputeResponse
compute) (\s :: CreateSimulationJobResponse
s@CreateSimulationJobResponse' {} Maybe ComputeResponse
a -> CreateSimulationJobResponse
s {$sel:compute:CreateSimulationJobResponse' :: Maybe ComputeResponse
compute = Maybe ComputeResponse
a} :: CreateSimulationJobResponse)

-- | The data sources for the simulation job.
createSimulationJobResponse_dataSources :: Lens.Lens' CreateSimulationJobResponse (Prelude.Maybe [DataSource])
createSimulationJobResponse_dataSources :: (Maybe [DataSource] -> f (Maybe [DataSource]))
-> CreateSimulationJobResponse -> f CreateSimulationJobResponse
createSimulationJobResponse_dataSources = (CreateSimulationJobResponse -> Maybe [DataSource])
-> (CreateSimulationJobResponse
    -> Maybe [DataSource] -> CreateSimulationJobResponse)
-> Lens
     CreateSimulationJobResponse
     CreateSimulationJobResponse
     (Maybe [DataSource])
     (Maybe [DataSource])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationJobResponse' {Maybe [DataSource]
dataSources :: Maybe [DataSource]
$sel:dataSources:CreateSimulationJobResponse' :: CreateSimulationJobResponse -> Maybe [DataSource]
dataSources} -> Maybe [DataSource]
dataSources) (\s :: CreateSimulationJobResponse
s@CreateSimulationJobResponse' {} Maybe [DataSource]
a -> CreateSimulationJobResponse
s {$sel:dataSources:CreateSimulationJobResponse' :: Maybe [DataSource]
dataSources = Maybe [DataSource]
a} :: CreateSimulationJobResponse) ((Maybe [DataSource] -> f (Maybe [DataSource]))
 -> CreateSimulationJobResponse -> f CreateSimulationJobResponse)
-> ((Maybe [DataSource] -> f (Maybe [DataSource]))
    -> Maybe [DataSource] -> f (Maybe [DataSource]))
-> (Maybe [DataSource] -> f (Maybe [DataSource]))
-> CreateSimulationJobResponse
-> f CreateSimulationJobResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso [DataSource] [DataSource] [DataSource] [DataSource]
-> Iso
     (Maybe [DataSource])
     (Maybe [DataSource])
     (Maybe [DataSource])
     (Maybe [DataSource])
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 AnIso [DataSource] [DataSource] [DataSource] [DataSource]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | Information about the vpc configuration.
createSimulationJobResponse_vpcConfig :: Lens.Lens' CreateSimulationJobResponse (Prelude.Maybe VPCConfigResponse)
createSimulationJobResponse_vpcConfig :: (Maybe VPCConfigResponse -> f (Maybe VPCConfigResponse))
-> CreateSimulationJobResponse -> f CreateSimulationJobResponse
createSimulationJobResponse_vpcConfig = (CreateSimulationJobResponse -> Maybe VPCConfigResponse)
-> (CreateSimulationJobResponse
    -> Maybe VPCConfigResponse -> CreateSimulationJobResponse)
-> Lens
     CreateSimulationJobResponse
     CreateSimulationJobResponse
     (Maybe VPCConfigResponse)
     (Maybe VPCConfigResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationJobResponse' {Maybe VPCConfigResponse
vpcConfig :: Maybe VPCConfigResponse
$sel:vpcConfig:CreateSimulationJobResponse' :: CreateSimulationJobResponse -> Maybe VPCConfigResponse
vpcConfig} -> Maybe VPCConfigResponse
vpcConfig) (\s :: CreateSimulationJobResponse
s@CreateSimulationJobResponse' {} Maybe VPCConfigResponse
a -> CreateSimulationJobResponse
s {$sel:vpcConfig:CreateSimulationJobResponse' :: Maybe VPCConfigResponse
vpcConfig = Maybe VPCConfigResponse
a} :: CreateSimulationJobResponse)

-- | Simulation job output files location.
createSimulationJobResponse_outputLocation :: Lens.Lens' CreateSimulationJobResponse (Prelude.Maybe OutputLocation)
createSimulationJobResponse_outputLocation :: (Maybe OutputLocation -> f (Maybe OutputLocation))
-> CreateSimulationJobResponse -> f CreateSimulationJobResponse
createSimulationJobResponse_outputLocation = (CreateSimulationJobResponse -> Maybe OutputLocation)
-> (CreateSimulationJobResponse
    -> Maybe OutputLocation -> CreateSimulationJobResponse)
-> Lens
     CreateSimulationJobResponse
     CreateSimulationJobResponse
     (Maybe OutputLocation)
     (Maybe OutputLocation)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationJobResponse' {Maybe OutputLocation
outputLocation :: Maybe OutputLocation
$sel:outputLocation:CreateSimulationJobResponse' :: CreateSimulationJobResponse -> Maybe OutputLocation
outputLocation} -> Maybe OutputLocation
outputLocation) (\s :: CreateSimulationJobResponse
s@CreateSimulationJobResponse' {} Maybe OutputLocation
a -> CreateSimulationJobResponse
s {$sel:outputLocation:CreateSimulationJobResponse' :: Maybe OutputLocation
outputLocation = Maybe OutputLocation
a} :: CreateSimulationJobResponse)

-- | The simulation application used by the simulation job.
createSimulationJobResponse_simulationApplications :: Lens.Lens' CreateSimulationJobResponse (Prelude.Maybe (Prelude.NonEmpty SimulationApplicationConfig))
createSimulationJobResponse_simulationApplications :: (Maybe (NonEmpty SimulationApplicationConfig)
 -> f (Maybe (NonEmpty SimulationApplicationConfig)))
-> CreateSimulationJobResponse -> f CreateSimulationJobResponse
createSimulationJobResponse_simulationApplications = (CreateSimulationJobResponse
 -> Maybe (NonEmpty SimulationApplicationConfig))
-> (CreateSimulationJobResponse
    -> Maybe (NonEmpty SimulationApplicationConfig)
    -> CreateSimulationJobResponse)
-> Lens
     CreateSimulationJobResponse
     CreateSimulationJobResponse
     (Maybe (NonEmpty SimulationApplicationConfig))
     (Maybe (NonEmpty SimulationApplicationConfig))
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationJobResponse' {Maybe (NonEmpty SimulationApplicationConfig)
simulationApplications :: Maybe (NonEmpty SimulationApplicationConfig)
$sel:simulationApplications:CreateSimulationJobResponse' :: CreateSimulationJobResponse
-> Maybe (NonEmpty SimulationApplicationConfig)
simulationApplications} -> Maybe (NonEmpty SimulationApplicationConfig)
simulationApplications) (\s :: CreateSimulationJobResponse
s@CreateSimulationJobResponse' {} Maybe (NonEmpty SimulationApplicationConfig)
a -> CreateSimulationJobResponse
s {$sel:simulationApplications:CreateSimulationJobResponse' :: Maybe (NonEmpty SimulationApplicationConfig)
simulationApplications = Maybe (NonEmpty SimulationApplicationConfig)
a} :: CreateSimulationJobResponse) ((Maybe (NonEmpty SimulationApplicationConfig)
  -> f (Maybe (NonEmpty SimulationApplicationConfig)))
 -> CreateSimulationJobResponse -> f CreateSimulationJobResponse)
-> ((Maybe (NonEmpty SimulationApplicationConfig)
     -> f (Maybe (NonEmpty SimulationApplicationConfig)))
    -> Maybe (NonEmpty SimulationApplicationConfig)
    -> f (Maybe (NonEmpty SimulationApplicationConfig)))
-> (Maybe (NonEmpty SimulationApplicationConfig)
    -> f (Maybe (NonEmpty SimulationApplicationConfig)))
-> CreateSimulationJobResponse
-> f CreateSimulationJobResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso
  (NonEmpty SimulationApplicationConfig)
  (NonEmpty SimulationApplicationConfig)
  (NonEmpty SimulationApplicationConfig)
  (NonEmpty SimulationApplicationConfig)
-> Iso
     (Maybe (NonEmpty SimulationApplicationConfig))
     (Maybe (NonEmpty SimulationApplicationConfig))
     (Maybe (NonEmpty SimulationApplicationConfig))
     (Maybe (NonEmpty SimulationApplicationConfig))
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 AnIso
  (NonEmpty SimulationApplicationConfig)
  (NonEmpty SimulationApplicationConfig)
  (NonEmpty SimulationApplicationConfig)
  (NonEmpty SimulationApplicationConfig)
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | The simulation job execution duration in milliseconds.
createSimulationJobResponse_simulationTimeMillis :: Lens.Lens' CreateSimulationJobResponse (Prelude.Maybe Prelude.Integer)
createSimulationJobResponse_simulationTimeMillis :: (Maybe Integer -> f (Maybe Integer))
-> CreateSimulationJobResponse -> f CreateSimulationJobResponse
createSimulationJobResponse_simulationTimeMillis = (CreateSimulationJobResponse -> Maybe Integer)
-> (CreateSimulationJobResponse
    -> Maybe Integer -> CreateSimulationJobResponse)
-> Lens
     CreateSimulationJobResponse
     CreateSimulationJobResponse
     (Maybe Integer)
     (Maybe Integer)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationJobResponse' {Maybe Integer
simulationTimeMillis :: Maybe Integer
$sel:simulationTimeMillis:CreateSimulationJobResponse' :: CreateSimulationJobResponse -> Maybe Integer
simulationTimeMillis} -> Maybe Integer
simulationTimeMillis) (\s :: CreateSimulationJobResponse
s@CreateSimulationJobResponse' {} Maybe Integer
a -> CreateSimulationJobResponse
s {$sel:simulationTimeMillis:CreateSimulationJobResponse' :: Maybe Integer
simulationTimeMillis = Maybe Integer
a} :: CreateSimulationJobResponse)

-- | Unique, case-sensitive identifier that you provide to ensure the
-- idempotency of the request.
createSimulationJobResponse_clientRequestToken :: Lens.Lens' CreateSimulationJobResponse (Prelude.Maybe Prelude.Text)
createSimulationJobResponse_clientRequestToken :: (Maybe Text -> f (Maybe Text))
-> CreateSimulationJobResponse -> f CreateSimulationJobResponse
createSimulationJobResponse_clientRequestToken = (CreateSimulationJobResponse -> Maybe Text)
-> (CreateSimulationJobResponse
    -> Maybe Text -> CreateSimulationJobResponse)
-> Lens
     CreateSimulationJobResponse
     CreateSimulationJobResponse
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationJobResponse' {Maybe Text
clientRequestToken :: Maybe Text
$sel:clientRequestToken:CreateSimulationJobResponse' :: CreateSimulationJobResponse -> Maybe Text
clientRequestToken} -> Maybe Text
clientRequestToken) (\s :: CreateSimulationJobResponse
s@CreateSimulationJobResponse' {} Maybe Text
a -> CreateSimulationJobResponse
s {$sel:clientRequestToken:CreateSimulationJobResponse' :: Maybe Text
clientRequestToken = Maybe Text
a} :: CreateSimulationJobResponse)

-- | The time, in milliseconds since the epoch, when the simulation job was
-- last started.
createSimulationJobResponse_lastStartedAt :: Lens.Lens' CreateSimulationJobResponse (Prelude.Maybe Prelude.UTCTime)
createSimulationJobResponse_lastStartedAt :: (Maybe UTCTime -> f (Maybe UTCTime))
-> CreateSimulationJobResponse -> f CreateSimulationJobResponse
createSimulationJobResponse_lastStartedAt = (CreateSimulationJobResponse -> Maybe POSIX)
-> (CreateSimulationJobResponse
    -> Maybe POSIX -> CreateSimulationJobResponse)
-> Lens
     CreateSimulationJobResponse
     CreateSimulationJobResponse
     (Maybe POSIX)
     (Maybe POSIX)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationJobResponse' {Maybe POSIX
lastStartedAt :: Maybe POSIX
$sel:lastStartedAt:CreateSimulationJobResponse' :: CreateSimulationJobResponse -> Maybe POSIX
lastStartedAt} -> Maybe POSIX
lastStartedAt) (\s :: CreateSimulationJobResponse
s@CreateSimulationJobResponse' {} Maybe POSIX
a -> CreateSimulationJobResponse
s {$sel:lastStartedAt:CreateSimulationJobResponse' :: Maybe POSIX
lastStartedAt = Maybe POSIX
a} :: CreateSimulationJobResponse) ((Maybe POSIX -> f (Maybe POSIX))
 -> CreateSimulationJobResponse -> f CreateSimulationJobResponse)
-> ((Maybe UTCTime -> f (Maybe UTCTime))
    -> Maybe POSIX -> f (Maybe POSIX))
-> (Maybe UTCTime -> f (Maybe UTCTime))
-> CreateSimulationJobResponse
-> f CreateSimulationJobResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso POSIX POSIX UTCTime UTCTime
-> Iso (Maybe POSIX) (Maybe POSIX) (Maybe UTCTime) (Maybe UTCTime)
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 AnIso POSIX POSIX UTCTime UTCTime
forall (a :: Format). Iso' (Time a) UTCTime
Core._Time

-- | The logging configuration.
createSimulationJobResponse_loggingConfig :: Lens.Lens' CreateSimulationJobResponse (Prelude.Maybe LoggingConfig)
createSimulationJobResponse_loggingConfig :: (Maybe LoggingConfig -> f (Maybe LoggingConfig))
-> CreateSimulationJobResponse -> f CreateSimulationJobResponse
createSimulationJobResponse_loggingConfig = (CreateSimulationJobResponse -> Maybe LoggingConfig)
-> (CreateSimulationJobResponse
    -> Maybe LoggingConfig -> CreateSimulationJobResponse)
-> Lens
     CreateSimulationJobResponse
     CreateSimulationJobResponse
     (Maybe LoggingConfig)
     (Maybe LoggingConfig)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationJobResponse' {Maybe LoggingConfig
loggingConfig :: Maybe LoggingConfig
$sel:loggingConfig:CreateSimulationJobResponse' :: CreateSimulationJobResponse -> Maybe LoggingConfig
loggingConfig} -> Maybe LoggingConfig
loggingConfig) (\s :: CreateSimulationJobResponse
s@CreateSimulationJobResponse' {} Maybe LoggingConfig
a -> CreateSimulationJobResponse
s {$sel:loggingConfig:CreateSimulationJobResponse' :: Maybe LoggingConfig
loggingConfig = Maybe LoggingConfig
a} :: CreateSimulationJobResponse)

-- | The IAM role that allows the simulation job to call the AWS APIs that
-- are specified in its associated policies on your behalf.
createSimulationJobResponse_iamRole :: Lens.Lens' CreateSimulationJobResponse (Prelude.Maybe Prelude.Text)
createSimulationJobResponse_iamRole :: (Maybe Text -> f (Maybe Text))
-> CreateSimulationJobResponse -> f CreateSimulationJobResponse
createSimulationJobResponse_iamRole = (CreateSimulationJobResponse -> Maybe Text)
-> (CreateSimulationJobResponse
    -> Maybe Text -> CreateSimulationJobResponse)
-> Lens
     CreateSimulationJobResponse
     CreateSimulationJobResponse
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationJobResponse' {Maybe Text
iamRole :: Maybe Text
$sel:iamRole:CreateSimulationJobResponse' :: CreateSimulationJobResponse -> Maybe Text
iamRole} -> Maybe Text
iamRole) (\s :: CreateSimulationJobResponse
s@CreateSimulationJobResponse' {} Maybe Text
a -> CreateSimulationJobResponse
s {$sel:iamRole:CreateSimulationJobResponse' :: Maybe Text
iamRole = Maybe Text
a} :: CreateSimulationJobResponse)

-- | The maximum simulation job duration in seconds.
createSimulationJobResponse_maxJobDurationInSeconds :: Lens.Lens' CreateSimulationJobResponse (Prelude.Maybe Prelude.Integer)
createSimulationJobResponse_maxJobDurationInSeconds :: (Maybe Integer -> f (Maybe Integer))
-> CreateSimulationJobResponse -> f CreateSimulationJobResponse
createSimulationJobResponse_maxJobDurationInSeconds = (CreateSimulationJobResponse -> Maybe Integer)
-> (CreateSimulationJobResponse
    -> Maybe Integer -> CreateSimulationJobResponse)
-> Lens
     CreateSimulationJobResponse
     CreateSimulationJobResponse
     (Maybe Integer)
     (Maybe Integer)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationJobResponse' {Maybe Integer
maxJobDurationInSeconds :: Maybe Integer
$sel:maxJobDurationInSeconds:CreateSimulationJobResponse' :: CreateSimulationJobResponse -> Maybe Integer
maxJobDurationInSeconds} -> Maybe Integer
maxJobDurationInSeconds) (\s :: CreateSimulationJobResponse
s@CreateSimulationJobResponse' {} Maybe Integer
a -> CreateSimulationJobResponse
s {$sel:maxJobDurationInSeconds:CreateSimulationJobResponse' :: Maybe Integer
maxJobDurationInSeconds = Maybe Integer
a} :: CreateSimulationJobResponse)

-- | The list of all tags added to the simulation job.
createSimulationJobResponse_tags :: Lens.Lens' CreateSimulationJobResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
createSimulationJobResponse_tags :: (Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
-> CreateSimulationJobResponse -> f CreateSimulationJobResponse
createSimulationJobResponse_tags = (CreateSimulationJobResponse -> Maybe (HashMap Text Text))
-> (CreateSimulationJobResponse
    -> Maybe (HashMap Text Text) -> CreateSimulationJobResponse)
-> Lens
     CreateSimulationJobResponse
     CreateSimulationJobResponse
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationJobResponse' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:CreateSimulationJobResponse' :: CreateSimulationJobResponse -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: CreateSimulationJobResponse
s@CreateSimulationJobResponse' {} Maybe (HashMap Text Text)
a -> CreateSimulationJobResponse
s {$sel:tags:CreateSimulationJobResponse' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: CreateSimulationJobResponse) ((Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
 -> CreateSimulationJobResponse -> f CreateSimulationJobResponse)
-> ((Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
    -> Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
-> (Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
-> CreateSimulationJobResponse
-> f CreateSimulationJobResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
-> Iso
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
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 AnIso
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

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

instance Prelude.NFData CreateSimulationJobResponse