{-# 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 #-}
module Amazonka.RobOMaker.DescribeSimulationJob
(
DescribeSimulationJob (..),
newDescribeSimulationJob,
describeSimulationJob_job,
DescribeSimulationJobResponse (..),
newDescribeSimulationJobResponse,
describeSimulationJobResponse_failureReason,
describeSimulationJobResponse_failureBehavior,
describeSimulationJobResponse_status,
describeSimulationJobResponse_lastUpdatedAt,
describeSimulationJobResponse_arn,
describeSimulationJobResponse_robotApplications,
describeSimulationJobResponse_failureCode,
describeSimulationJobResponse_compute,
describeSimulationJobResponse_networkInterface,
describeSimulationJobResponse_dataSources,
describeSimulationJobResponse_name,
describeSimulationJobResponse_vpcConfig,
describeSimulationJobResponse_outputLocation,
describeSimulationJobResponse_simulationApplications,
describeSimulationJobResponse_simulationTimeMillis,
describeSimulationJobResponse_clientRequestToken,
describeSimulationJobResponse_lastStartedAt,
describeSimulationJobResponse_loggingConfig,
describeSimulationJobResponse_iamRole,
describeSimulationJobResponse_maxJobDurationInSeconds,
describeSimulationJobResponse_tags,
describeSimulationJobResponse_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
data DescribeSimulationJob = DescribeSimulationJob'
{
DescribeSimulationJob -> Text
job :: Prelude.Text
}
deriving (DescribeSimulationJob -> DescribeSimulationJob -> Bool
(DescribeSimulationJob -> DescribeSimulationJob -> Bool)
-> (DescribeSimulationJob -> DescribeSimulationJob -> Bool)
-> Eq DescribeSimulationJob
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeSimulationJob -> DescribeSimulationJob -> Bool
$c/= :: DescribeSimulationJob -> DescribeSimulationJob -> Bool
== :: DescribeSimulationJob -> DescribeSimulationJob -> Bool
$c== :: DescribeSimulationJob -> DescribeSimulationJob -> Bool
Prelude.Eq, ReadPrec [DescribeSimulationJob]
ReadPrec DescribeSimulationJob
Int -> ReadS DescribeSimulationJob
ReadS [DescribeSimulationJob]
(Int -> ReadS DescribeSimulationJob)
-> ReadS [DescribeSimulationJob]
-> ReadPrec DescribeSimulationJob
-> ReadPrec [DescribeSimulationJob]
-> Read DescribeSimulationJob
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeSimulationJob]
$creadListPrec :: ReadPrec [DescribeSimulationJob]
readPrec :: ReadPrec DescribeSimulationJob
$creadPrec :: ReadPrec DescribeSimulationJob
readList :: ReadS [DescribeSimulationJob]
$creadList :: ReadS [DescribeSimulationJob]
readsPrec :: Int -> ReadS DescribeSimulationJob
$creadsPrec :: Int -> ReadS DescribeSimulationJob
Prelude.Read, Int -> DescribeSimulationJob -> ShowS
[DescribeSimulationJob] -> ShowS
DescribeSimulationJob -> String
(Int -> DescribeSimulationJob -> ShowS)
-> (DescribeSimulationJob -> String)
-> ([DescribeSimulationJob] -> ShowS)
-> Show DescribeSimulationJob
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeSimulationJob] -> ShowS
$cshowList :: [DescribeSimulationJob] -> ShowS
show :: DescribeSimulationJob -> String
$cshow :: DescribeSimulationJob -> String
showsPrec :: Int -> DescribeSimulationJob -> ShowS
$cshowsPrec :: Int -> DescribeSimulationJob -> ShowS
Prelude.Show, (forall x. DescribeSimulationJob -> Rep DescribeSimulationJob x)
-> (forall x. Rep DescribeSimulationJob x -> DescribeSimulationJob)
-> Generic DescribeSimulationJob
forall x. Rep DescribeSimulationJob x -> DescribeSimulationJob
forall x. DescribeSimulationJob -> Rep DescribeSimulationJob x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeSimulationJob x -> DescribeSimulationJob
$cfrom :: forall x. DescribeSimulationJob -> Rep DescribeSimulationJob x
Prelude.Generic)
newDescribeSimulationJob ::
Prelude.Text ->
DescribeSimulationJob
newDescribeSimulationJob :: Text -> DescribeSimulationJob
newDescribeSimulationJob Text
pJob_ =
DescribeSimulationJob' :: Text -> DescribeSimulationJob
DescribeSimulationJob' {$sel:job:DescribeSimulationJob' :: Text
job = Text
pJob_}
describeSimulationJob_job :: Lens.Lens' DescribeSimulationJob Prelude.Text
describeSimulationJob_job :: (Text -> f Text)
-> DescribeSimulationJob -> f DescribeSimulationJob
describeSimulationJob_job = (DescribeSimulationJob -> Text)
-> (DescribeSimulationJob -> Text -> DescribeSimulationJob)
-> Lens DescribeSimulationJob DescribeSimulationJob Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationJob' {Text
job :: Text
$sel:job:DescribeSimulationJob' :: DescribeSimulationJob -> Text
job} -> Text
job) (\s :: DescribeSimulationJob
s@DescribeSimulationJob' {} Text
a -> DescribeSimulationJob
s {$sel:job:DescribeSimulationJob' :: Text
job = Text
a} :: DescribeSimulationJob)
instance Core.AWSRequest DescribeSimulationJob where
type
AWSResponse DescribeSimulationJob =
DescribeSimulationJobResponse
request :: DescribeSimulationJob -> Request DescribeSimulationJob
request = Service -> DescribeSimulationJob -> Request DescribeSimulationJob
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON Service
defaultService
response :: Logger
-> Service
-> Proxy DescribeSimulationJob
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeSimulationJob)))
response =
(Int
-> ResponseHeaders
-> Object
-> Either String (AWSResponse DescribeSimulationJob))
-> Logger
-> Service
-> Proxy DescribeSimulationJob
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeSimulationJob)))
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 Text
-> Maybe FailureBehavior
-> Maybe SimulationJobStatus
-> Maybe POSIX
-> Maybe Text
-> Maybe (NonEmpty RobotApplicationConfig)
-> Maybe SimulationJobErrorCode
-> Maybe ComputeResponse
-> Maybe NetworkInterface
-> Maybe [DataSource]
-> Maybe Text
-> Maybe VPCConfigResponse
-> Maybe OutputLocation
-> Maybe (NonEmpty SimulationApplicationConfig)
-> Maybe Integer
-> Maybe Text
-> Maybe POSIX
-> Maybe LoggingConfig
-> Maybe Text
-> Maybe Integer
-> Maybe (HashMap Text Text)
-> Int
-> DescribeSimulationJobResponse
DescribeSimulationJobResponse'
(Maybe Text
-> Maybe FailureBehavior
-> Maybe SimulationJobStatus
-> Maybe POSIX
-> Maybe Text
-> Maybe (NonEmpty RobotApplicationConfig)
-> Maybe SimulationJobErrorCode
-> Maybe ComputeResponse
-> Maybe NetworkInterface
-> Maybe [DataSource]
-> Maybe Text
-> Maybe VPCConfigResponse
-> Maybe OutputLocation
-> Maybe (NonEmpty SimulationApplicationConfig)
-> Maybe Integer
-> Maybe Text
-> Maybe POSIX
-> Maybe LoggingConfig
-> Maybe Text
-> Maybe Integer
-> Maybe (HashMap Text Text)
-> Int
-> DescribeSimulationJobResponse)
-> Either String (Maybe Text)
-> Either
String
(Maybe FailureBehavior
-> Maybe SimulationJobStatus
-> Maybe POSIX
-> Maybe Text
-> Maybe (NonEmpty RobotApplicationConfig)
-> Maybe SimulationJobErrorCode
-> Maybe ComputeResponse
-> Maybe NetworkInterface
-> Maybe [DataSource]
-> Maybe Text
-> Maybe VPCConfigResponse
-> Maybe OutputLocation
-> Maybe (NonEmpty SimulationApplicationConfig)
-> Maybe Integer
-> Maybe Text
-> Maybe POSIX
-> Maybe LoggingConfig
-> Maybe Text
-> Maybe Integer
-> Maybe (HashMap Text Text)
-> Int
-> DescribeSimulationJobResponse)
forall (f :: * -> *) a b. Functor 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
"failureReason")
Either
String
(Maybe FailureBehavior
-> Maybe SimulationJobStatus
-> Maybe POSIX
-> Maybe Text
-> Maybe (NonEmpty RobotApplicationConfig)
-> Maybe SimulationJobErrorCode
-> Maybe ComputeResponse
-> Maybe NetworkInterface
-> Maybe [DataSource]
-> Maybe Text
-> Maybe VPCConfigResponse
-> Maybe OutputLocation
-> Maybe (NonEmpty SimulationApplicationConfig)
-> Maybe Integer
-> Maybe Text
-> Maybe POSIX
-> Maybe LoggingConfig
-> Maybe Text
-> Maybe Integer
-> Maybe (HashMap Text Text)
-> Int
-> DescribeSimulationJobResponse)
-> Either String (Maybe FailureBehavior)
-> Either
String
(Maybe SimulationJobStatus
-> Maybe POSIX
-> Maybe Text
-> Maybe (NonEmpty RobotApplicationConfig)
-> Maybe SimulationJobErrorCode
-> Maybe ComputeResponse
-> Maybe NetworkInterface
-> Maybe [DataSource]
-> Maybe Text
-> Maybe VPCConfigResponse
-> Maybe OutputLocation
-> Maybe (NonEmpty SimulationApplicationConfig)
-> Maybe Integer
-> Maybe Text
-> Maybe POSIX
-> Maybe LoggingConfig
-> Maybe Text
-> Maybe Integer
-> Maybe (HashMap Text Text)
-> Int
-> DescribeSimulationJobResponse)
forall (f :: * -> *) a b. Applicative f => 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 NetworkInterface
-> Maybe [DataSource]
-> Maybe Text
-> Maybe VPCConfigResponse
-> Maybe OutputLocation
-> Maybe (NonEmpty SimulationApplicationConfig)
-> Maybe Integer
-> Maybe Text
-> Maybe POSIX
-> Maybe LoggingConfig
-> Maybe Text
-> Maybe Integer
-> Maybe (HashMap Text Text)
-> Int
-> DescribeSimulationJobResponse)
-> Either String (Maybe SimulationJobStatus)
-> Either
String
(Maybe POSIX
-> Maybe Text
-> Maybe (NonEmpty RobotApplicationConfig)
-> Maybe SimulationJobErrorCode
-> Maybe ComputeResponse
-> Maybe NetworkInterface
-> Maybe [DataSource]
-> Maybe Text
-> Maybe VPCConfigResponse
-> Maybe OutputLocation
-> Maybe (NonEmpty SimulationApplicationConfig)
-> Maybe Integer
-> Maybe Text
-> Maybe POSIX
-> Maybe LoggingConfig
-> Maybe Text
-> Maybe Integer
-> Maybe (HashMap Text Text)
-> Int
-> DescribeSimulationJobResponse)
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 NetworkInterface
-> Maybe [DataSource]
-> Maybe Text
-> Maybe VPCConfigResponse
-> Maybe OutputLocation
-> Maybe (NonEmpty SimulationApplicationConfig)
-> Maybe Integer
-> Maybe Text
-> Maybe POSIX
-> Maybe LoggingConfig
-> Maybe Text
-> Maybe Integer
-> Maybe (HashMap Text Text)
-> Int
-> DescribeSimulationJobResponse)
-> Either String (Maybe POSIX)
-> Either
String
(Maybe Text
-> Maybe (NonEmpty RobotApplicationConfig)
-> Maybe SimulationJobErrorCode
-> Maybe ComputeResponse
-> Maybe NetworkInterface
-> Maybe [DataSource]
-> Maybe Text
-> Maybe VPCConfigResponse
-> Maybe OutputLocation
-> Maybe (NonEmpty SimulationApplicationConfig)
-> Maybe Integer
-> Maybe Text
-> Maybe POSIX
-> Maybe LoggingConfig
-> Maybe Text
-> Maybe Integer
-> Maybe (HashMap Text Text)
-> Int
-> DescribeSimulationJobResponse)
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 NetworkInterface
-> Maybe [DataSource]
-> Maybe Text
-> Maybe VPCConfigResponse
-> Maybe OutputLocation
-> Maybe (NonEmpty SimulationApplicationConfig)
-> Maybe Integer
-> Maybe Text
-> Maybe POSIX
-> Maybe LoggingConfig
-> Maybe Text
-> Maybe Integer
-> Maybe (HashMap Text Text)
-> Int
-> DescribeSimulationJobResponse)
-> Either String (Maybe Text)
-> Either
String
(Maybe (NonEmpty RobotApplicationConfig)
-> Maybe SimulationJobErrorCode
-> Maybe ComputeResponse
-> Maybe NetworkInterface
-> Maybe [DataSource]
-> Maybe Text
-> Maybe VPCConfigResponse
-> Maybe OutputLocation
-> Maybe (NonEmpty SimulationApplicationConfig)
-> Maybe Integer
-> Maybe Text
-> Maybe POSIX
-> Maybe LoggingConfig
-> Maybe Text
-> Maybe Integer
-> Maybe (HashMap Text Text)
-> Int
-> DescribeSimulationJobResponse)
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 NetworkInterface
-> Maybe [DataSource]
-> Maybe Text
-> Maybe VPCConfigResponse
-> Maybe OutputLocation
-> Maybe (NonEmpty SimulationApplicationConfig)
-> Maybe Integer
-> Maybe Text
-> Maybe POSIX
-> Maybe LoggingConfig
-> Maybe Text
-> Maybe Integer
-> Maybe (HashMap Text Text)
-> Int
-> DescribeSimulationJobResponse)
-> Either String (Maybe (NonEmpty RobotApplicationConfig))
-> Either
String
(Maybe SimulationJobErrorCode
-> Maybe ComputeResponse
-> Maybe NetworkInterface
-> Maybe [DataSource]
-> Maybe Text
-> Maybe VPCConfigResponse
-> Maybe OutputLocation
-> Maybe (NonEmpty SimulationApplicationConfig)
-> Maybe Integer
-> Maybe Text
-> Maybe POSIX
-> Maybe LoggingConfig
-> Maybe Text
-> Maybe Integer
-> Maybe (HashMap Text Text)
-> Int
-> DescribeSimulationJobResponse)
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 NetworkInterface
-> Maybe [DataSource]
-> Maybe Text
-> Maybe VPCConfigResponse
-> Maybe OutputLocation
-> Maybe (NonEmpty SimulationApplicationConfig)
-> Maybe Integer
-> Maybe Text
-> Maybe POSIX
-> Maybe LoggingConfig
-> Maybe Text
-> Maybe Integer
-> Maybe (HashMap Text Text)
-> Int
-> DescribeSimulationJobResponse)
-> Either String (Maybe SimulationJobErrorCode)
-> Either
String
(Maybe ComputeResponse
-> Maybe NetworkInterface
-> Maybe [DataSource]
-> Maybe Text
-> Maybe VPCConfigResponse
-> Maybe OutputLocation
-> Maybe (NonEmpty SimulationApplicationConfig)
-> Maybe Integer
-> Maybe Text
-> Maybe POSIX
-> Maybe LoggingConfig
-> Maybe Text
-> Maybe Integer
-> Maybe (HashMap Text Text)
-> Int
-> DescribeSimulationJobResponse)
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 NetworkInterface
-> Maybe [DataSource]
-> Maybe Text
-> Maybe VPCConfigResponse
-> Maybe OutputLocation
-> Maybe (NonEmpty SimulationApplicationConfig)
-> Maybe Integer
-> Maybe Text
-> Maybe POSIX
-> Maybe LoggingConfig
-> Maybe Text
-> Maybe Integer
-> Maybe (HashMap Text Text)
-> Int
-> DescribeSimulationJobResponse)
-> Either String (Maybe ComputeResponse)
-> Either
String
(Maybe NetworkInterface
-> Maybe [DataSource]
-> Maybe Text
-> Maybe VPCConfigResponse
-> Maybe OutputLocation
-> Maybe (NonEmpty SimulationApplicationConfig)
-> Maybe Integer
-> Maybe Text
-> Maybe POSIX
-> Maybe LoggingConfig
-> Maybe Text
-> Maybe Integer
-> Maybe (HashMap Text Text)
-> Int
-> DescribeSimulationJobResponse)
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 NetworkInterface
-> Maybe [DataSource]
-> Maybe Text
-> Maybe VPCConfigResponse
-> Maybe OutputLocation
-> Maybe (NonEmpty SimulationApplicationConfig)
-> Maybe Integer
-> Maybe Text
-> Maybe POSIX
-> Maybe LoggingConfig
-> Maybe Text
-> Maybe Integer
-> Maybe (HashMap Text Text)
-> Int
-> DescribeSimulationJobResponse)
-> Either String (Maybe NetworkInterface)
-> Either
String
(Maybe [DataSource]
-> Maybe Text
-> Maybe VPCConfigResponse
-> Maybe OutputLocation
-> Maybe (NonEmpty SimulationApplicationConfig)
-> Maybe Integer
-> Maybe Text
-> Maybe POSIX
-> Maybe LoggingConfig
-> Maybe Text
-> Maybe Integer
-> Maybe (HashMap Text Text)
-> Int
-> DescribeSimulationJobResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe NetworkInterface)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"networkInterface")
Either
String
(Maybe [DataSource]
-> Maybe Text
-> Maybe VPCConfigResponse
-> Maybe OutputLocation
-> Maybe (NonEmpty SimulationApplicationConfig)
-> Maybe Integer
-> Maybe Text
-> Maybe POSIX
-> Maybe LoggingConfig
-> Maybe Text
-> Maybe Integer
-> Maybe (HashMap Text Text)
-> Int
-> DescribeSimulationJobResponse)
-> Either String (Maybe [DataSource])
-> Either
String
(Maybe Text
-> Maybe VPCConfigResponse
-> Maybe OutputLocation
-> Maybe (NonEmpty SimulationApplicationConfig)
-> Maybe Integer
-> Maybe Text
-> Maybe POSIX
-> Maybe LoggingConfig
-> Maybe Text
-> Maybe Integer
-> Maybe (HashMap Text Text)
-> Int
-> DescribeSimulationJobResponse)
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 Text
-> Maybe VPCConfigResponse
-> Maybe OutputLocation
-> Maybe (NonEmpty SimulationApplicationConfig)
-> Maybe Integer
-> Maybe Text
-> Maybe POSIX
-> Maybe LoggingConfig
-> Maybe Text
-> Maybe Integer
-> Maybe (HashMap Text Text)
-> Int
-> DescribeSimulationJobResponse)
-> Either String (Maybe Text)
-> 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
-> DescribeSimulationJobResponse)
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
"name")
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
-> DescribeSimulationJobResponse)
-> 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
-> DescribeSimulationJobResponse)
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
-> DescribeSimulationJobResponse)
-> 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
-> DescribeSimulationJobResponse)
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
-> DescribeSimulationJobResponse)
-> Either String (Maybe (NonEmpty SimulationApplicationConfig))
-> Either
String
(Maybe Integer
-> Maybe Text
-> Maybe POSIX
-> Maybe LoggingConfig
-> Maybe Text
-> Maybe Integer
-> Maybe (HashMap Text Text)
-> Int
-> DescribeSimulationJobResponse)
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
-> DescribeSimulationJobResponse)
-> Either String (Maybe Integer)
-> Either
String
(Maybe Text
-> Maybe POSIX
-> Maybe LoggingConfig
-> Maybe Text
-> Maybe Integer
-> Maybe (HashMap Text Text)
-> Int
-> DescribeSimulationJobResponse)
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
-> DescribeSimulationJobResponse)
-> Either String (Maybe Text)
-> Either
String
(Maybe POSIX
-> Maybe LoggingConfig
-> Maybe Text
-> Maybe Integer
-> Maybe (HashMap Text Text)
-> Int
-> DescribeSimulationJobResponse)
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
-> DescribeSimulationJobResponse)
-> Either String (Maybe POSIX)
-> Either
String
(Maybe LoggingConfig
-> Maybe Text
-> Maybe Integer
-> Maybe (HashMap Text Text)
-> Int
-> DescribeSimulationJobResponse)
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
-> DescribeSimulationJobResponse)
-> Either String (Maybe LoggingConfig)
-> Either
String
(Maybe Text
-> Maybe Integer
-> Maybe (HashMap Text Text)
-> Int
-> DescribeSimulationJobResponse)
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
-> DescribeSimulationJobResponse)
-> Either String (Maybe Text)
-> Either
String
(Maybe Integer
-> Maybe (HashMap Text Text)
-> Int
-> DescribeSimulationJobResponse)
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
-> DescribeSimulationJobResponse)
-> Either String (Maybe Integer)
-> Either
String
(Maybe (HashMap Text Text) -> Int -> DescribeSimulationJobResponse)
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 -> DescribeSimulationJobResponse)
-> Either String (Maybe (HashMap Text Text))
-> Either String (Int -> DescribeSimulationJobResponse)
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 -> DescribeSimulationJobResponse)
-> Either String Int -> Either String DescribeSimulationJobResponse
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 DescribeSimulationJob
instance Prelude.NFData DescribeSimulationJob
instance Core.ToHeaders DescribeSimulationJob where
toHeaders :: DescribeSimulationJob -> ResponseHeaders
toHeaders =
ResponseHeaders -> DescribeSimulationJob -> 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 DescribeSimulationJob where
toJSON :: DescribeSimulationJob -> Value
toJSON DescribeSimulationJob' {Text
job :: Text
$sel:job:DescribeSimulationJob' :: DescribeSimulationJob -> Text
..} =
[Pair] -> Value
Core.object
( [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[Pair -> Maybe Pair
forall a. a -> Maybe a
Prelude.Just (Text
"job" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= Text
job)]
)
instance Core.ToPath DescribeSimulationJob where
toPath :: DescribeSimulationJob -> ByteString
toPath = ByteString -> DescribeSimulationJob -> ByteString
forall a b. a -> b -> a
Prelude.const ByteString
"/describeSimulationJob"
instance Core.ToQuery DescribeSimulationJob where
toQuery :: DescribeSimulationJob -> QueryString
toQuery = QueryString -> DescribeSimulationJob -> QueryString
forall a b. a -> b -> a
Prelude.const QueryString
forall a. Monoid a => a
Prelude.mempty
data DescribeSimulationJobResponse = DescribeSimulationJobResponse'
{
DescribeSimulationJobResponse -> Maybe Text
failureReason :: Prelude.Maybe Prelude.Text,
DescribeSimulationJobResponse -> Maybe FailureBehavior
failureBehavior :: Prelude.Maybe FailureBehavior,
DescribeSimulationJobResponse -> Maybe SimulationJobStatus
status :: Prelude.Maybe SimulationJobStatus,
DescribeSimulationJobResponse -> Maybe POSIX
lastUpdatedAt :: Prelude.Maybe Core.POSIX,
DescribeSimulationJobResponse -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
DescribeSimulationJobResponse
-> Maybe (NonEmpty RobotApplicationConfig)
robotApplications :: Prelude.Maybe (Prelude.NonEmpty RobotApplicationConfig),
DescribeSimulationJobResponse -> Maybe SimulationJobErrorCode
failureCode :: Prelude.Maybe SimulationJobErrorCode,
DescribeSimulationJobResponse -> Maybe ComputeResponse
compute :: Prelude.Maybe ComputeResponse,
DescribeSimulationJobResponse -> Maybe NetworkInterface
networkInterface :: Prelude.Maybe NetworkInterface,
DescribeSimulationJobResponse -> Maybe [DataSource]
dataSources :: Prelude.Maybe [DataSource],
DescribeSimulationJobResponse -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
DescribeSimulationJobResponse -> Maybe VPCConfigResponse
vpcConfig :: Prelude.Maybe VPCConfigResponse,
DescribeSimulationJobResponse -> Maybe OutputLocation
outputLocation :: Prelude.Maybe OutputLocation,
DescribeSimulationJobResponse
-> Maybe (NonEmpty SimulationApplicationConfig)
simulationApplications :: Prelude.Maybe (Prelude.NonEmpty SimulationApplicationConfig),
DescribeSimulationJobResponse -> Maybe Integer
simulationTimeMillis :: Prelude.Maybe Prelude.Integer,
DescribeSimulationJobResponse -> Maybe Text
clientRequestToken :: Prelude.Maybe Prelude.Text,
DescribeSimulationJobResponse -> Maybe POSIX
lastStartedAt :: Prelude.Maybe Core.POSIX,
DescribeSimulationJobResponse -> Maybe LoggingConfig
loggingConfig :: Prelude.Maybe LoggingConfig,
DescribeSimulationJobResponse -> Maybe Text
iamRole :: Prelude.Maybe Prelude.Text,
DescribeSimulationJobResponse -> Maybe Integer
maxJobDurationInSeconds :: Prelude.Maybe Prelude.Integer,
DescribeSimulationJobResponse -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
DescribeSimulationJobResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeSimulationJobResponse
-> DescribeSimulationJobResponse -> Bool
(DescribeSimulationJobResponse
-> DescribeSimulationJobResponse -> Bool)
-> (DescribeSimulationJobResponse
-> DescribeSimulationJobResponse -> Bool)
-> Eq DescribeSimulationJobResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeSimulationJobResponse
-> DescribeSimulationJobResponse -> Bool
$c/= :: DescribeSimulationJobResponse
-> DescribeSimulationJobResponse -> Bool
== :: DescribeSimulationJobResponse
-> DescribeSimulationJobResponse -> Bool
$c== :: DescribeSimulationJobResponse
-> DescribeSimulationJobResponse -> Bool
Prelude.Eq, ReadPrec [DescribeSimulationJobResponse]
ReadPrec DescribeSimulationJobResponse
Int -> ReadS DescribeSimulationJobResponse
ReadS [DescribeSimulationJobResponse]
(Int -> ReadS DescribeSimulationJobResponse)
-> ReadS [DescribeSimulationJobResponse]
-> ReadPrec DescribeSimulationJobResponse
-> ReadPrec [DescribeSimulationJobResponse]
-> Read DescribeSimulationJobResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeSimulationJobResponse]
$creadListPrec :: ReadPrec [DescribeSimulationJobResponse]
readPrec :: ReadPrec DescribeSimulationJobResponse
$creadPrec :: ReadPrec DescribeSimulationJobResponse
readList :: ReadS [DescribeSimulationJobResponse]
$creadList :: ReadS [DescribeSimulationJobResponse]
readsPrec :: Int -> ReadS DescribeSimulationJobResponse
$creadsPrec :: Int -> ReadS DescribeSimulationJobResponse
Prelude.Read, Int -> DescribeSimulationJobResponse -> ShowS
[DescribeSimulationJobResponse] -> ShowS
DescribeSimulationJobResponse -> String
(Int -> DescribeSimulationJobResponse -> ShowS)
-> (DescribeSimulationJobResponse -> String)
-> ([DescribeSimulationJobResponse] -> ShowS)
-> Show DescribeSimulationJobResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeSimulationJobResponse] -> ShowS
$cshowList :: [DescribeSimulationJobResponse] -> ShowS
show :: DescribeSimulationJobResponse -> String
$cshow :: DescribeSimulationJobResponse -> String
showsPrec :: Int -> DescribeSimulationJobResponse -> ShowS
$cshowsPrec :: Int -> DescribeSimulationJobResponse -> ShowS
Prelude.Show, (forall x.
DescribeSimulationJobResponse
-> Rep DescribeSimulationJobResponse x)
-> (forall x.
Rep DescribeSimulationJobResponse x
-> DescribeSimulationJobResponse)
-> Generic DescribeSimulationJobResponse
forall x.
Rep DescribeSimulationJobResponse x
-> DescribeSimulationJobResponse
forall x.
DescribeSimulationJobResponse
-> Rep DescribeSimulationJobResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeSimulationJobResponse x
-> DescribeSimulationJobResponse
$cfrom :: forall x.
DescribeSimulationJobResponse
-> Rep DescribeSimulationJobResponse x
Prelude.Generic)
newDescribeSimulationJobResponse ::
Prelude.Int ->
DescribeSimulationJobResponse
newDescribeSimulationJobResponse :: Int -> DescribeSimulationJobResponse
newDescribeSimulationJobResponse Int
pHttpStatus_ =
DescribeSimulationJobResponse' :: Maybe Text
-> Maybe FailureBehavior
-> Maybe SimulationJobStatus
-> Maybe POSIX
-> Maybe Text
-> Maybe (NonEmpty RobotApplicationConfig)
-> Maybe SimulationJobErrorCode
-> Maybe ComputeResponse
-> Maybe NetworkInterface
-> Maybe [DataSource]
-> Maybe Text
-> Maybe VPCConfigResponse
-> Maybe OutputLocation
-> Maybe (NonEmpty SimulationApplicationConfig)
-> Maybe Integer
-> Maybe Text
-> Maybe POSIX
-> Maybe LoggingConfig
-> Maybe Text
-> Maybe Integer
-> Maybe (HashMap Text Text)
-> Int
-> DescribeSimulationJobResponse
DescribeSimulationJobResponse'
{ $sel:failureReason:DescribeSimulationJobResponse' :: Maybe Text
failureReason =
Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:failureBehavior:DescribeSimulationJobResponse' :: Maybe FailureBehavior
failureBehavior = Maybe FailureBehavior
forall a. Maybe a
Prelude.Nothing,
$sel:status:DescribeSimulationJobResponse' :: Maybe SimulationJobStatus
status = Maybe SimulationJobStatus
forall a. Maybe a
Prelude.Nothing,
$sel:lastUpdatedAt:DescribeSimulationJobResponse' :: Maybe POSIX
lastUpdatedAt = Maybe POSIX
forall a. Maybe a
Prelude.Nothing,
$sel:arn:DescribeSimulationJobResponse' :: Maybe Text
arn = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:robotApplications:DescribeSimulationJobResponse' :: Maybe (NonEmpty RobotApplicationConfig)
robotApplications = Maybe (NonEmpty RobotApplicationConfig)
forall a. Maybe a
Prelude.Nothing,
$sel:failureCode:DescribeSimulationJobResponse' :: Maybe SimulationJobErrorCode
failureCode = Maybe SimulationJobErrorCode
forall a. Maybe a
Prelude.Nothing,
$sel:compute:DescribeSimulationJobResponse' :: Maybe ComputeResponse
compute = Maybe ComputeResponse
forall a. Maybe a
Prelude.Nothing,
$sel:networkInterface:DescribeSimulationJobResponse' :: Maybe NetworkInterface
networkInterface = Maybe NetworkInterface
forall a. Maybe a
Prelude.Nothing,
$sel:dataSources:DescribeSimulationJobResponse' :: Maybe [DataSource]
dataSources = Maybe [DataSource]
forall a. Maybe a
Prelude.Nothing,
$sel:name:DescribeSimulationJobResponse' :: Maybe Text
name = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:vpcConfig:DescribeSimulationJobResponse' :: Maybe VPCConfigResponse
vpcConfig = Maybe VPCConfigResponse
forall a. Maybe a
Prelude.Nothing,
$sel:outputLocation:DescribeSimulationJobResponse' :: Maybe OutputLocation
outputLocation = Maybe OutputLocation
forall a. Maybe a
Prelude.Nothing,
$sel:simulationApplications:DescribeSimulationJobResponse' :: Maybe (NonEmpty SimulationApplicationConfig)
simulationApplications = Maybe (NonEmpty SimulationApplicationConfig)
forall a. Maybe a
Prelude.Nothing,
$sel:simulationTimeMillis:DescribeSimulationJobResponse' :: Maybe Integer
simulationTimeMillis = Maybe Integer
forall a. Maybe a
Prelude.Nothing,
$sel:clientRequestToken:DescribeSimulationJobResponse' :: Maybe Text
clientRequestToken = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:lastStartedAt:DescribeSimulationJobResponse' :: Maybe POSIX
lastStartedAt = Maybe POSIX
forall a. Maybe a
Prelude.Nothing,
$sel:loggingConfig:DescribeSimulationJobResponse' :: Maybe LoggingConfig
loggingConfig = Maybe LoggingConfig
forall a. Maybe a
Prelude.Nothing,
$sel:iamRole:DescribeSimulationJobResponse' :: Maybe Text
iamRole = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:maxJobDurationInSeconds:DescribeSimulationJobResponse' :: Maybe Integer
maxJobDurationInSeconds = Maybe Integer
forall a. Maybe a
Prelude.Nothing,
$sel:tags:DescribeSimulationJobResponse' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeSimulationJobResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeSimulationJobResponse_failureReason :: Lens.Lens' DescribeSimulationJobResponse (Prelude.Maybe Prelude.Text)
describeSimulationJobResponse_failureReason :: (Maybe Text -> f (Maybe Text))
-> DescribeSimulationJobResponse -> f DescribeSimulationJobResponse
describeSimulationJobResponse_failureReason = (DescribeSimulationJobResponse -> Maybe Text)
-> (DescribeSimulationJobResponse
-> Maybe Text -> DescribeSimulationJobResponse)
-> Lens
DescribeSimulationJobResponse
DescribeSimulationJobResponse
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationJobResponse' {Maybe Text
failureReason :: Maybe Text
$sel:failureReason:DescribeSimulationJobResponse' :: DescribeSimulationJobResponse -> Maybe Text
failureReason} -> Maybe Text
failureReason) (\s :: DescribeSimulationJobResponse
s@DescribeSimulationJobResponse' {} Maybe Text
a -> DescribeSimulationJobResponse
s {$sel:failureReason:DescribeSimulationJobResponse' :: Maybe Text
failureReason = Maybe Text
a} :: DescribeSimulationJobResponse)
describeSimulationJobResponse_failureBehavior :: Lens.Lens' DescribeSimulationJobResponse (Prelude.Maybe FailureBehavior)
describeSimulationJobResponse_failureBehavior :: (Maybe FailureBehavior -> f (Maybe FailureBehavior))
-> DescribeSimulationJobResponse -> f DescribeSimulationJobResponse
describeSimulationJobResponse_failureBehavior = (DescribeSimulationJobResponse -> Maybe FailureBehavior)
-> (DescribeSimulationJobResponse
-> Maybe FailureBehavior -> DescribeSimulationJobResponse)
-> Lens
DescribeSimulationJobResponse
DescribeSimulationJobResponse
(Maybe FailureBehavior)
(Maybe FailureBehavior)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationJobResponse' {Maybe FailureBehavior
failureBehavior :: Maybe FailureBehavior
$sel:failureBehavior:DescribeSimulationJobResponse' :: DescribeSimulationJobResponse -> Maybe FailureBehavior
failureBehavior} -> Maybe FailureBehavior
failureBehavior) (\s :: DescribeSimulationJobResponse
s@DescribeSimulationJobResponse' {} Maybe FailureBehavior
a -> DescribeSimulationJobResponse
s {$sel:failureBehavior:DescribeSimulationJobResponse' :: Maybe FailureBehavior
failureBehavior = Maybe FailureBehavior
a} :: DescribeSimulationJobResponse)
describeSimulationJobResponse_status :: Lens.Lens' DescribeSimulationJobResponse (Prelude.Maybe SimulationJobStatus)
describeSimulationJobResponse_status :: (Maybe SimulationJobStatus -> f (Maybe SimulationJobStatus))
-> DescribeSimulationJobResponse -> f DescribeSimulationJobResponse
describeSimulationJobResponse_status = (DescribeSimulationJobResponse -> Maybe SimulationJobStatus)
-> (DescribeSimulationJobResponse
-> Maybe SimulationJobStatus -> DescribeSimulationJobResponse)
-> Lens
DescribeSimulationJobResponse
DescribeSimulationJobResponse
(Maybe SimulationJobStatus)
(Maybe SimulationJobStatus)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationJobResponse' {Maybe SimulationJobStatus
status :: Maybe SimulationJobStatus
$sel:status:DescribeSimulationJobResponse' :: DescribeSimulationJobResponse -> Maybe SimulationJobStatus
status} -> Maybe SimulationJobStatus
status) (\s :: DescribeSimulationJobResponse
s@DescribeSimulationJobResponse' {} Maybe SimulationJobStatus
a -> DescribeSimulationJobResponse
s {$sel:status:DescribeSimulationJobResponse' :: Maybe SimulationJobStatus
status = Maybe SimulationJobStatus
a} :: DescribeSimulationJobResponse)
describeSimulationJobResponse_lastUpdatedAt :: Lens.Lens' DescribeSimulationJobResponse (Prelude.Maybe Prelude.UTCTime)
describeSimulationJobResponse_lastUpdatedAt :: (Maybe UTCTime -> f (Maybe UTCTime))
-> DescribeSimulationJobResponse -> f DescribeSimulationJobResponse
describeSimulationJobResponse_lastUpdatedAt = (DescribeSimulationJobResponse -> Maybe POSIX)
-> (DescribeSimulationJobResponse
-> Maybe POSIX -> DescribeSimulationJobResponse)
-> Lens
DescribeSimulationJobResponse
DescribeSimulationJobResponse
(Maybe POSIX)
(Maybe POSIX)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationJobResponse' {Maybe POSIX
lastUpdatedAt :: Maybe POSIX
$sel:lastUpdatedAt:DescribeSimulationJobResponse' :: DescribeSimulationJobResponse -> Maybe POSIX
lastUpdatedAt} -> Maybe POSIX
lastUpdatedAt) (\s :: DescribeSimulationJobResponse
s@DescribeSimulationJobResponse' {} Maybe POSIX
a -> DescribeSimulationJobResponse
s {$sel:lastUpdatedAt:DescribeSimulationJobResponse' :: Maybe POSIX
lastUpdatedAt = Maybe POSIX
a} :: DescribeSimulationJobResponse) ((Maybe POSIX -> f (Maybe POSIX))
-> DescribeSimulationJobResponse
-> f DescribeSimulationJobResponse)
-> ((Maybe UTCTime -> f (Maybe UTCTime))
-> Maybe POSIX -> f (Maybe POSIX))
-> (Maybe UTCTime -> f (Maybe UTCTime))
-> DescribeSimulationJobResponse
-> f DescribeSimulationJobResponse
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
describeSimulationJobResponse_arn :: Lens.Lens' DescribeSimulationJobResponse (Prelude.Maybe Prelude.Text)
describeSimulationJobResponse_arn :: (Maybe Text -> f (Maybe Text))
-> DescribeSimulationJobResponse -> f DescribeSimulationJobResponse
describeSimulationJobResponse_arn = (DescribeSimulationJobResponse -> Maybe Text)
-> (DescribeSimulationJobResponse
-> Maybe Text -> DescribeSimulationJobResponse)
-> Lens
DescribeSimulationJobResponse
DescribeSimulationJobResponse
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationJobResponse' {Maybe Text
arn :: Maybe Text
$sel:arn:DescribeSimulationJobResponse' :: DescribeSimulationJobResponse -> Maybe Text
arn} -> Maybe Text
arn) (\s :: DescribeSimulationJobResponse
s@DescribeSimulationJobResponse' {} Maybe Text
a -> DescribeSimulationJobResponse
s {$sel:arn:DescribeSimulationJobResponse' :: Maybe Text
arn = Maybe Text
a} :: DescribeSimulationJobResponse)
describeSimulationJobResponse_robotApplications :: Lens.Lens' DescribeSimulationJobResponse (Prelude.Maybe (Prelude.NonEmpty RobotApplicationConfig))
describeSimulationJobResponse_robotApplications :: (Maybe (NonEmpty RobotApplicationConfig)
-> f (Maybe (NonEmpty RobotApplicationConfig)))
-> DescribeSimulationJobResponse -> f DescribeSimulationJobResponse
describeSimulationJobResponse_robotApplications = (DescribeSimulationJobResponse
-> Maybe (NonEmpty RobotApplicationConfig))
-> (DescribeSimulationJobResponse
-> Maybe (NonEmpty RobotApplicationConfig)
-> DescribeSimulationJobResponse)
-> Lens
DescribeSimulationJobResponse
DescribeSimulationJobResponse
(Maybe (NonEmpty RobotApplicationConfig))
(Maybe (NonEmpty RobotApplicationConfig))
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationJobResponse' {Maybe (NonEmpty RobotApplicationConfig)
robotApplications :: Maybe (NonEmpty RobotApplicationConfig)
$sel:robotApplications:DescribeSimulationJobResponse' :: DescribeSimulationJobResponse
-> Maybe (NonEmpty RobotApplicationConfig)
robotApplications} -> Maybe (NonEmpty RobotApplicationConfig)
robotApplications) (\s :: DescribeSimulationJobResponse
s@DescribeSimulationJobResponse' {} Maybe (NonEmpty RobotApplicationConfig)
a -> DescribeSimulationJobResponse
s {$sel:robotApplications:DescribeSimulationJobResponse' :: Maybe (NonEmpty RobotApplicationConfig)
robotApplications = Maybe (NonEmpty RobotApplicationConfig)
a} :: DescribeSimulationJobResponse) ((Maybe (NonEmpty RobotApplicationConfig)
-> f (Maybe (NonEmpty RobotApplicationConfig)))
-> DescribeSimulationJobResponse
-> f DescribeSimulationJobResponse)
-> ((Maybe (NonEmpty RobotApplicationConfig)
-> f (Maybe (NonEmpty RobotApplicationConfig)))
-> Maybe (NonEmpty RobotApplicationConfig)
-> f (Maybe (NonEmpty RobotApplicationConfig)))
-> (Maybe (NonEmpty RobotApplicationConfig)
-> f (Maybe (NonEmpty RobotApplicationConfig)))
-> DescribeSimulationJobResponse
-> f DescribeSimulationJobResponse
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
describeSimulationJobResponse_failureCode :: Lens.Lens' DescribeSimulationJobResponse (Prelude.Maybe SimulationJobErrorCode)
describeSimulationJobResponse_failureCode :: (Maybe SimulationJobErrorCode -> f (Maybe SimulationJobErrorCode))
-> DescribeSimulationJobResponse -> f DescribeSimulationJobResponse
describeSimulationJobResponse_failureCode = (DescribeSimulationJobResponse -> Maybe SimulationJobErrorCode)
-> (DescribeSimulationJobResponse
-> Maybe SimulationJobErrorCode -> DescribeSimulationJobResponse)
-> Lens
DescribeSimulationJobResponse
DescribeSimulationJobResponse
(Maybe SimulationJobErrorCode)
(Maybe SimulationJobErrorCode)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationJobResponse' {Maybe SimulationJobErrorCode
failureCode :: Maybe SimulationJobErrorCode
$sel:failureCode:DescribeSimulationJobResponse' :: DescribeSimulationJobResponse -> Maybe SimulationJobErrorCode
failureCode} -> Maybe SimulationJobErrorCode
failureCode) (\s :: DescribeSimulationJobResponse
s@DescribeSimulationJobResponse' {} Maybe SimulationJobErrorCode
a -> DescribeSimulationJobResponse
s {$sel:failureCode:DescribeSimulationJobResponse' :: Maybe SimulationJobErrorCode
failureCode = Maybe SimulationJobErrorCode
a} :: DescribeSimulationJobResponse)
describeSimulationJobResponse_compute :: Lens.Lens' DescribeSimulationJobResponse (Prelude.Maybe ComputeResponse)
describeSimulationJobResponse_compute :: (Maybe ComputeResponse -> f (Maybe ComputeResponse))
-> DescribeSimulationJobResponse -> f DescribeSimulationJobResponse
describeSimulationJobResponse_compute = (DescribeSimulationJobResponse -> Maybe ComputeResponse)
-> (DescribeSimulationJobResponse
-> Maybe ComputeResponse -> DescribeSimulationJobResponse)
-> Lens
DescribeSimulationJobResponse
DescribeSimulationJobResponse
(Maybe ComputeResponse)
(Maybe ComputeResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationJobResponse' {Maybe ComputeResponse
compute :: Maybe ComputeResponse
$sel:compute:DescribeSimulationJobResponse' :: DescribeSimulationJobResponse -> Maybe ComputeResponse
compute} -> Maybe ComputeResponse
compute) (\s :: DescribeSimulationJobResponse
s@DescribeSimulationJobResponse' {} Maybe ComputeResponse
a -> DescribeSimulationJobResponse
s {$sel:compute:DescribeSimulationJobResponse' :: Maybe ComputeResponse
compute = Maybe ComputeResponse
a} :: DescribeSimulationJobResponse)
describeSimulationJobResponse_networkInterface :: Lens.Lens' DescribeSimulationJobResponse (Prelude.Maybe NetworkInterface)
describeSimulationJobResponse_networkInterface :: (Maybe NetworkInterface -> f (Maybe NetworkInterface))
-> DescribeSimulationJobResponse -> f DescribeSimulationJobResponse
describeSimulationJobResponse_networkInterface = (DescribeSimulationJobResponse -> Maybe NetworkInterface)
-> (DescribeSimulationJobResponse
-> Maybe NetworkInterface -> DescribeSimulationJobResponse)
-> Lens
DescribeSimulationJobResponse
DescribeSimulationJobResponse
(Maybe NetworkInterface)
(Maybe NetworkInterface)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationJobResponse' {Maybe NetworkInterface
networkInterface :: Maybe NetworkInterface
$sel:networkInterface:DescribeSimulationJobResponse' :: DescribeSimulationJobResponse -> Maybe NetworkInterface
networkInterface} -> Maybe NetworkInterface
networkInterface) (\s :: DescribeSimulationJobResponse
s@DescribeSimulationJobResponse' {} Maybe NetworkInterface
a -> DescribeSimulationJobResponse
s {$sel:networkInterface:DescribeSimulationJobResponse' :: Maybe NetworkInterface
networkInterface = Maybe NetworkInterface
a} :: DescribeSimulationJobResponse)
describeSimulationJobResponse_dataSources :: Lens.Lens' DescribeSimulationJobResponse (Prelude.Maybe [DataSource])
describeSimulationJobResponse_dataSources :: (Maybe [DataSource] -> f (Maybe [DataSource]))
-> DescribeSimulationJobResponse -> f DescribeSimulationJobResponse
describeSimulationJobResponse_dataSources = (DescribeSimulationJobResponse -> Maybe [DataSource])
-> (DescribeSimulationJobResponse
-> Maybe [DataSource] -> DescribeSimulationJobResponse)
-> Lens
DescribeSimulationJobResponse
DescribeSimulationJobResponse
(Maybe [DataSource])
(Maybe [DataSource])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationJobResponse' {Maybe [DataSource]
dataSources :: Maybe [DataSource]
$sel:dataSources:DescribeSimulationJobResponse' :: DescribeSimulationJobResponse -> Maybe [DataSource]
dataSources} -> Maybe [DataSource]
dataSources) (\s :: DescribeSimulationJobResponse
s@DescribeSimulationJobResponse' {} Maybe [DataSource]
a -> DescribeSimulationJobResponse
s {$sel:dataSources:DescribeSimulationJobResponse' :: Maybe [DataSource]
dataSources = Maybe [DataSource]
a} :: DescribeSimulationJobResponse) ((Maybe [DataSource] -> f (Maybe [DataSource]))
-> DescribeSimulationJobResponse
-> f DescribeSimulationJobResponse)
-> ((Maybe [DataSource] -> f (Maybe [DataSource]))
-> Maybe [DataSource] -> f (Maybe [DataSource]))
-> (Maybe [DataSource] -> f (Maybe [DataSource]))
-> DescribeSimulationJobResponse
-> f DescribeSimulationJobResponse
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
describeSimulationJobResponse_name :: Lens.Lens' DescribeSimulationJobResponse (Prelude.Maybe Prelude.Text)
describeSimulationJobResponse_name :: (Maybe Text -> f (Maybe Text))
-> DescribeSimulationJobResponse -> f DescribeSimulationJobResponse
describeSimulationJobResponse_name = (DescribeSimulationJobResponse -> Maybe Text)
-> (DescribeSimulationJobResponse
-> Maybe Text -> DescribeSimulationJobResponse)
-> Lens
DescribeSimulationJobResponse
DescribeSimulationJobResponse
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationJobResponse' {Maybe Text
name :: Maybe Text
$sel:name:DescribeSimulationJobResponse' :: DescribeSimulationJobResponse -> Maybe Text
name} -> Maybe Text
name) (\s :: DescribeSimulationJobResponse
s@DescribeSimulationJobResponse' {} Maybe Text
a -> DescribeSimulationJobResponse
s {$sel:name:DescribeSimulationJobResponse' :: Maybe Text
name = Maybe Text
a} :: DescribeSimulationJobResponse)
describeSimulationJobResponse_vpcConfig :: Lens.Lens' DescribeSimulationJobResponse (Prelude.Maybe VPCConfigResponse)
describeSimulationJobResponse_vpcConfig :: (Maybe VPCConfigResponse -> f (Maybe VPCConfigResponse))
-> DescribeSimulationJobResponse -> f DescribeSimulationJobResponse
describeSimulationJobResponse_vpcConfig = (DescribeSimulationJobResponse -> Maybe VPCConfigResponse)
-> (DescribeSimulationJobResponse
-> Maybe VPCConfigResponse -> DescribeSimulationJobResponse)
-> Lens
DescribeSimulationJobResponse
DescribeSimulationJobResponse
(Maybe VPCConfigResponse)
(Maybe VPCConfigResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationJobResponse' {Maybe VPCConfigResponse
vpcConfig :: Maybe VPCConfigResponse
$sel:vpcConfig:DescribeSimulationJobResponse' :: DescribeSimulationJobResponse -> Maybe VPCConfigResponse
vpcConfig} -> Maybe VPCConfigResponse
vpcConfig) (\s :: DescribeSimulationJobResponse
s@DescribeSimulationJobResponse' {} Maybe VPCConfigResponse
a -> DescribeSimulationJobResponse
s {$sel:vpcConfig:DescribeSimulationJobResponse' :: Maybe VPCConfigResponse
vpcConfig = Maybe VPCConfigResponse
a} :: DescribeSimulationJobResponse)
describeSimulationJobResponse_outputLocation :: Lens.Lens' DescribeSimulationJobResponse (Prelude.Maybe OutputLocation)
describeSimulationJobResponse_outputLocation :: (Maybe OutputLocation -> f (Maybe OutputLocation))
-> DescribeSimulationJobResponse -> f DescribeSimulationJobResponse
describeSimulationJobResponse_outputLocation = (DescribeSimulationJobResponse -> Maybe OutputLocation)
-> (DescribeSimulationJobResponse
-> Maybe OutputLocation -> DescribeSimulationJobResponse)
-> Lens
DescribeSimulationJobResponse
DescribeSimulationJobResponse
(Maybe OutputLocation)
(Maybe OutputLocation)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationJobResponse' {Maybe OutputLocation
outputLocation :: Maybe OutputLocation
$sel:outputLocation:DescribeSimulationJobResponse' :: DescribeSimulationJobResponse -> Maybe OutputLocation
outputLocation} -> Maybe OutputLocation
outputLocation) (\s :: DescribeSimulationJobResponse
s@DescribeSimulationJobResponse' {} Maybe OutputLocation
a -> DescribeSimulationJobResponse
s {$sel:outputLocation:DescribeSimulationJobResponse' :: Maybe OutputLocation
outputLocation = Maybe OutputLocation
a} :: DescribeSimulationJobResponse)
describeSimulationJobResponse_simulationApplications :: Lens.Lens' DescribeSimulationJobResponse (Prelude.Maybe (Prelude.NonEmpty SimulationApplicationConfig))
describeSimulationJobResponse_simulationApplications :: (Maybe (NonEmpty SimulationApplicationConfig)
-> f (Maybe (NonEmpty SimulationApplicationConfig)))
-> DescribeSimulationJobResponse -> f DescribeSimulationJobResponse
describeSimulationJobResponse_simulationApplications = (DescribeSimulationJobResponse
-> Maybe (NonEmpty SimulationApplicationConfig))
-> (DescribeSimulationJobResponse
-> Maybe (NonEmpty SimulationApplicationConfig)
-> DescribeSimulationJobResponse)
-> Lens
DescribeSimulationJobResponse
DescribeSimulationJobResponse
(Maybe (NonEmpty SimulationApplicationConfig))
(Maybe (NonEmpty SimulationApplicationConfig))
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationJobResponse' {Maybe (NonEmpty SimulationApplicationConfig)
simulationApplications :: Maybe (NonEmpty SimulationApplicationConfig)
$sel:simulationApplications:DescribeSimulationJobResponse' :: DescribeSimulationJobResponse
-> Maybe (NonEmpty SimulationApplicationConfig)
simulationApplications} -> Maybe (NonEmpty SimulationApplicationConfig)
simulationApplications) (\s :: DescribeSimulationJobResponse
s@DescribeSimulationJobResponse' {} Maybe (NonEmpty SimulationApplicationConfig)
a -> DescribeSimulationJobResponse
s {$sel:simulationApplications:DescribeSimulationJobResponse' :: Maybe (NonEmpty SimulationApplicationConfig)
simulationApplications = Maybe (NonEmpty SimulationApplicationConfig)
a} :: DescribeSimulationJobResponse) ((Maybe (NonEmpty SimulationApplicationConfig)
-> f (Maybe (NonEmpty SimulationApplicationConfig)))
-> DescribeSimulationJobResponse
-> f DescribeSimulationJobResponse)
-> ((Maybe (NonEmpty SimulationApplicationConfig)
-> f (Maybe (NonEmpty SimulationApplicationConfig)))
-> Maybe (NonEmpty SimulationApplicationConfig)
-> f (Maybe (NonEmpty SimulationApplicationConfig)))
-> (Maybe (NonEmpty SimulationApplicationConfig)
-> f (Maybe (NonEmpty SimulationApplicationConfig)))
-> DescribeSimulationJobResponse
-> f DescribeSimulationJobResponse
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
describeSimulationJobResponse_simulationTimeMillis :: Lens.Lens' DescribeSimulationJobResponse (Prelude.Maybe Prelude.Integer)
describeSimulationJobResponse_simulationTimeMillis :: (Maybe Integer -> f (Maybe Integer))
-> DescribeSimulationJobResponse -> f DescribeSimulationJobResponse
describeSimulationJobResponse_simulationTimeMillis = (DescribeSimulationJobResponse -> Maybe Integer)
-> (DescribeSimulationJobResponse
-> Maybe Integer -> DescribeSimulationJobResponse)
-> Lens
DescribeSimulationJobResponse
DescribeSimulationJobResponse
(Maybe Integer)
(Maybe Integer)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationJobResponse' {Maybe Integer
simulationTimeMillis :: Maybe Integer
$sel:simulationTimeMillis:DescribeSimulationJobResponse' :: DescribeSimulationJobResponse -> Maybe Integer
simulationTimeMillis} -> Maybe Integer
simulationTimeMillis) (\s :: DescribeSimulationJobResponse
s@DescribeSimulationJobResponse' {} Maybe Integer
a -> DescribeSimulationJobResponse
s {$sel:simulationTimeMillis:DescribeSimulationJobResponse' :: Maybe Integer
simulationTimeMillis = Maybe Integer
a} :: DescribeSimulationJobResponse)
describeSimulationJobResponse_clientRequestToken :: Lens.Lens' DescribeSimulationJobResponse (Prelude.Maybe Prelude.Text)
describeSimulationJobResponse_clientRequestToken :: (Maybe Text -> f (Maybe Text))
-> DescribeSimulationJobResponse -> f DescribeSimulationJobResponse
describeSimulationJobResponse_clientRequestToken = (DescribeSimulationJobResponse -> Maybe Text)
-> (DescribeSimulationJobResponse
-> Maybe Text -> DescribeSimulationJobResponse)
-> Lens
DescribeSimulationJobResponse
DescribeSimulationJobResponse
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationJobResponse' {Maybe Text
clientRequestToken :: Maybe Text
$sel:clientRequestToken:DescribeSimulationJobResponse' :: DescribeSimulationJobResponse -> Maybe Text
clientRequestToken} -> Maybe Text
clientRequestToken) (\s :: DescribeSimulationJobResponse
s@DescribeSimulationJobResponse' {} Maybe Text
a -> DescribeSimulationJobResponse
s {$sel:clientRequestToken:DescribeSimulationJobResponse' :: Maybe Text
clientRequestToken = Maybe Text
a} :: DescribeSimulationJobResponse)
describeSimulationJobResponse_lastStartedAt :: Lens.Lens' DescribeSimulationJobResponse (Prelude.Maybe Prelude.UTCTime)
describeSimulationJobResponse_lastStartedAt :: (Maybe UTCTime -> f (Maybe UTCTime))
-> DescribeSimulationJobResponse -> f DescribeSimulationJobResponse
describeSimulationJobResponse_lastStartedAt = (DescribeSimulationJobResponse -> Maybe POSIX)
-> (DescribeSimulationJobResponse
-> Maybe POSIX -> DescribeSimulationJobResponse)
-> Lens
DescribeSimulationJobResponse
DescribeSimulationJobResponse
(Maybe POSIX)
(Maybe POSIX)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationJobResponse' {Maybe POSIX
lastStartedAt :: Maybe POSIX
$sel:lastStartedAt:DescribeSimulationJobResponse' :: DescribeSimulationJobResponse -> Maybe POSIX
lastStartedAt} -> Maybe POSIX
lastStartedAt) (\s :: DescribeSimulationJobResponse
s@DescribeSimulationJobResponse' {} Maybe POSIX
a -> DescribeSimulationJobResponse
s {$sel:lastStartedAt:DescribeSimulationJobResponse' :: Maybe POSIX
lastStartedAt = Maybe POSIX
a} :: DescribeSimulationJobResponse) ((Maybe POSIX -> f (Maybe POSIX))
-> DescribeSimulationJobResponse
-> f DescribeSimulationJobResponse)
-> ((Maybe UTCTime -> f (Maybe UTCTime))
-> Maybe POSIX -> f (Maybe POSIX))
-> (Maybe UTCTime -> f (Maybe UTCTime))
-> DescribeSimulationJobResponse
-> f DescribeSimulationJobResponse
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
describeSimulationJobResponse_loggingConfig :: Lens.Lens' DescribeSimulationJobResponse (Prelude.Maybe LoggingConfig)
describeSimulationJobResponse_loggingConfig :: (Maybe LoggingConfig -> f (Maybe LoggingConfig))
-> DescribeSimulationJobResponse -> f DescribeSimulationJobResponse
describeSimulationJobResponse_loggingConfig = (DescribeSimulationJobResponse -> Maybe LoggingConfig)
-> (DescribeSimulationJobResponse
-> Maybe LoggingConfig -> DescribeSimulationJobResponse)
-> Lens
DescribeSimulationJobResponse
DescribeSimulationJobResponse
(Maybe LoggingConfig)
(Maybe LoggingConfig)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationJobResponse' {Maybe LoggingConfig
loggingConfig :: Maybe LoggingConfig
$sel:loggingConfig:DescribeSimulationJobResponse' :: DescribeSimulationJobResponse -> Maybe LoggingConfig
loggingConfig} -> Maybe LoggingConfig
loggingConfig) (\s :: DescribeSimulationJobResponse
s@DescribeSimulationJobResponse' {} Maybe LoggingConfig
a -> DescribeSimulationJobResponse
s {$sel:loggingConfig:DescribeSimulationJobResponse' :: Maybe LoggingConfig
loggingConfig = Maybe LoggingConfig
a} :: DescribeSimulationJobResponse)
describeSimulationJobResponse_iamRole :: Lens.Lens' DescribeSimulationJobResponse (Prelude.Maybe Prelude.Text)
describeSimulationJobResponse_iamRole :: (Maybe Text -> f (Maybe Text))
-> DescribeSimulationJobResponse -> f DescribeSimulationJobResponse
describeSimulationJobResponse_iamRole = (DescribeSimulationJobResponse -> Maybe Text)
-> (DescribeSimulationJobResponse
-> Maybe Text -> DescribeSimulationJobResponse)
-> Lens
DescribeSimulationJobResponse
DescribeSimulationJobResponse
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationJobResponse' {Maybe Text
iamRole :: Maybe Text
$sel:iamRole:DescribeSimulationJobResponse' :: DescribeSimulationJobResponse -> Maybe Text
iamRole} -> Maybe Text
iamRole) (\s :: DescribeSimulationJobResponse
s@DescribeSimulationJobResponse' {} Maybe Text
a -> DescribeSimulationJobResponse
s {$sel:iamRole:DescribeSimulationJobResponse' :: Maybe Text
iamRole = Maybe Text
a} :: DescribeSimulationJobResponse)
describeSimulationJobResponse_maxJobDurationInSeconds :: Lens.Lens' DescribeSimulationJobResponse (Prelude.Maybe Prelude.Integer)
describeSimulationJobResponse_maxJobDurationInSeconds :: (Maybe Integer -> f (Maybe Integer))
-> DescribeSimulationJobResponse -> f DescribeSimulationJobResponse
describeSimulationJobResponse_maxJobDurationInSeconds = (DescribeSimulationJobResponse -> Maybe Integer)
-> (DescribeSimulationJobResponse
-> Maybe Integer -> DescribeSimulationJobResponse)
-> Lens
DescribeSimulationJobResponse
DescribeSimulationJobResponse
(Maybe Integer)
(Maybe Integer)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationJobResponse' {Maybe Integer
maxJobDurationInSeconds :: Maybe Integer
$sel:maxJobDurationInSeconds:DescribeSimulationJobResponse' :: DescribeSimulationJobResponse -> Maybe Integer
maxJobDurationInSeconds} -> Maybe Integer
maxJobDurationInSeconds) (\s :: DescribeSimulationJobResponse
s@DescribeSimulationJobResponse' {} Maybe Integer
a -> DescribeSimulationJobResponse
s {$sel:maxJobDurationInSeconds:DescribeSimulationJobResponse' :: Maybe Integer
maxJobDurationInSeconds = Maybe Integer
a} :: DescribeSimulationJobResponse)
describeSimulationJobResponse_tags :: Lens.Lens' DescribeSimulationJobResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
describeSimulationJobResponse_tags :: (Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
-> DescribeSimulationJobResponse -> f DescribeSimulationJobResponse
describeSimulationJobResponse_tags = (DescribeSimulationJobResponse -> Maybe (HashMap Text Text))
-> (DescribeSimulationJobResponse
-> Maybe (HashMap Text Text) -> DescribeSimulationJobResponse)
-> Lens
DescribeSimulationJobResponse
DescribeSimulationJobResponse
(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 (\DescribeSimulationJobResponse' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:DescribeSimulationJobResponse' :: DescribeSimulationJobResponse -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: DescribeSimulationJobResponse
s@DescribeSimulationJobResponse' {} Maybe (HashMap Text Text)
a -> DescribeSimulationJobResponse
s {$sel:tags:DescribeSimulationJobResponse' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: DescribeSimulationJobResponse) ((Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
-> DescribeSimulationJobResponse
-> f DescribeSimulationJobResponse)
-> ((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)))
-> DescribeSimulationJobResponse
-> f DescribeSimulationJobResponse
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
describeSimulationJobResponse_httpStatus :: Lens.Lens' DescribeSimulationJobResponse Prelude.Int
describeSimulationJobResponse_httpStatus :: (Int -> f Int)
-> DescribeSimulationJobResponse -> f DescribeSimulationJobResponse
describeSimulationJobResponse_httpStatus = (DescribeSimulationJobResponse -> Int)
-> (DescribeSimulationJobResponse
-> Int -> DescribeSimulationJobResponse)
-> Lens
DescribeSimulationJobResponse DescribeSimulationJobResponse Int Int
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationJobResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeSimulationJobResponse' :: DescribeSimulationJobResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeSimulationJobResponse
s@DescribeSimulationJobResponse' {} Int
a -> DescribeSimulationJobResponse
s {$sel:httpStatus:DescribeSimulationJobResponse' :: Int
httpStatus = Int
a} :: DescribeSimulationJobResponse)
instance Prelude.NFData DescribeSimulationJobResponse