{-# 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.DescribeSimulationApplication
(
DescribeSimulationApplication (..),
newDescribeSimulationApplication,
describeSimulationApplication_applicationVersion,
describeSimulationApplication_application,
DescribeSimulationApplicationResponse (..),
newDescribeSimulationApplicationResponse,
describeSimulationApplicationResponse_arn,
describeSimulationApplicationResponse_environment,
describeSimulationApplicationResponse_imageDigest,
describeSimulationApplicationResponse_lastUpdatedAt,
describeSimulationApplicationResponse_name,
describeSimulationApplicationResponse_renderingEngine,
describeSimulationApplicationResponse_revisionId,
describeSimulationApplicationResponse_robotSoftwareSuite,
describeSimulationApplicationResponse_simulationSoftwareSuite,
describeSimulationApplicationResponse_sources,
describeSimulationApplicationResponse_tags,
describeSimulationApplicationResponse_version,
describeSimulationApplicationResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.RobOMaker.Types
data DescribeSimulationApplication = DescribeSimulationApplication'
{
DescribeSimulationApplication -> Maybe Text
applicationVersion :: Prelude.Maybe Prelude.Text,
DescribeSimulationApplication -> Text
application :: Prelude.Text
}
deriving (DescribeSimulationApplication
-> DescribeSimulationApplication -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeSimulationApplication
-> DescribeSimulationApplication -> Bool
$c/= :: DescribeSimulationApplication
-> DescribeSimulationApplication -> Bool
== :: DescribeSimulationApplication
-> DescribeSimulationApplication -> Bool
$c== :: DescribeSimulationApplication
-> DescribeSimulationApplication -> Bool
Prelude.Eq, ReadPrec [DescribeSimulationApplication]
ReadPrec DescribeSimulationApplication
Int -> ReadS DescribeSimulationApplication
ReadS [DescribeSimulationApplication]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeSimulationApplication]
$creadListPrec :: ReadPrec [DescribeSimulationApplication]
readPrec :: ReadPrec DescribeSimulationApplication
$creadPrec :: ReadPrec DescribeSimulationApplication
readList :: ReadS [DescribeSimulationApplication]
$creadList :: ReadS [DescribeSimulationApplication]
readsPrec :: Int -> ReadS DescribeSimulationApplication
$creadsPrec :: Int -> ReadS DescribeSimulationApplication
Prelude.Read, Int -> DescribeSimulationApplication -> ShowS
[DescribeSimulationApplication] -> ShowS
DescribeSimulationApplication -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeSimulationApplication] -> ShowS
$cshowList :: [DescribeSimulationApplication] -> ShowS
show :: DescribeSimulationApplication -> String
$cshow :: DescribeSimulationApplication -> String
showsPrec :: Int -> DescribeSimulationApplication -> ShowS
$cshowsPrec :: Int -> DescribeSimulationApplication -> ShowS
Prelude.Show, forall x.
Rep DescribeSimulationApplication x
-> DescribeSimulationApplication
forall x.
DescribeSimulationApplication
-> Rep DescribeSimulationApplication x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeSimulationApplication x
-> DescribeSimulationApplication
$cfrom :: forall x.
DescribeSimulationApplication
-> Rep DescribeSimulationApplication x
Prelude.Generic)
newDescribeSimulationApplication ::
Prelude.Text ->
DescribeSimulationApplication
newDescribeSimulationApplication :: Text -> DescribeSimulationApplication
newDescribeSimulationApplication Text
pApplication_ =
DescribeSimulationApplication'
{ $sel:applicationVersion:DescribeSimulationApplication' :: Maybe Text
applicationVersion =
forall a. Maybe a
Prelude.Nothing,
$sel:application:DescribeSimulationApplication' :: Text
application = Text
pApplication_
}
describeSimulationApplication_applicationVersion :: Lens.Lens' DescribeSimulationApplication (Prelude.Maybe Prelude.Text)
describeSimulationApplication_applicationVersion :: Lens' DescribeSimulationApplication (Maybe Text)
describeSimulationApplication_applicationVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationApplication' {Maybe Text
applicationVersion :: Maybe Text
$sel:applicationVersion:DescribeSimulationApplication' :: DescribeSimulationApplication -> Maybe Text
applicationVersion} -> Maybe Text
applicationVersion) (\s :: DescribeSimulationApplication
s@DescribeSimulationApplication' {} Maybe Text
a -> DescribeSimulationApplication
s {$sel:applicationVersion:DescribeSimulationApplication' :: Maybe Text
applicationVersion = Maybe Text
a} :: DescribeSimulationApplication)
describeSimulationApplication_application :: Lens.Lens' DescribeSimulationApplication Prelude.Text
describeSimulationApplication_application :: Lens' DescribeSimulationApplication Text
describeSimulationApplication_application = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationApplication' {Text
application :: Text
$sel:application:DescribeSimulationApplication' :: DescribeSimulationApplication -> Text
application} -> Text
application) (\s :: DescribeSimulationApplication
s@DescribeSimulationApplication' {} Text
a -> DescribeSimulationApplication
s {$sel:application:DescribeSimulationApplication' :: Text
application = Text
a} :: DescribeSimulationApplication)
instance
Core.AWSRequest
DescribeSimulationApplication
where
type
AWSResponse DescribeSimulationApplication =
DescribeSimulationApplicationResponse
request :: (Service -> Service)
-> DescribeSimulationApplication
-> Request DescribeSimulationApplication
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DescribeSimulationApplication
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeSimulationApplication)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe Text
-> Maybe Environment
-> Maybe Text
-> Maybe POSIX
-> Maybe Text
-> Maybe RenderingEngine
-> Maybe Text
-> Maybe RobotSoftwareSuite
-> Maybe SimulationSoftwareSuite
-> Maybe [Source]
-> Maybe (HashMap Text Text)
-> Maybe Text
-> Int
-> DescribeSimulationApplicationResponse
DescribeSimulationApplicationResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"arn")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"environment")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"imageDigest")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"lastUpdatedAt")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"name")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"renderingEngine")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"revisionId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"robotSoftwareSuite")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"simulationSoftwareSuite")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"sources" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"tags" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"version")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance
Prelude.Hashable
DescribeSimulationApplication
where
hashWithSalt :: Int -> DescribeSimulationApplication -> Int
hashWithSalt Int
_salt DescribeSimulationApplication' {Maybe Text
Text
application :: Text
applicationVersion :: Maybe Text
$sel:application:DescribeSimulationApplication' :: DescribeSimulationApplication -> Text
$sel:applicationVersion:DescribeSimulationApplication' :: DescribeSimulationApplication -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
applicationVersion
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
application
instance Prelude.NFData DescribeSimulationApplication where
rnf :: DescribeSimulationApplication -> ()
rnf DescribeSimulationApplication' {Maybe Text
Text
application :: Text
applicationVersion :: Maybe Text
$sel:application:DescribeSimulationApplication' :: DescribeSimulationApplication -> Text
$sel:applicationVersion:DescribeSimulationApplication' :: DescribeSimulationApplication -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
applicationVersion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
application
instance Data.ToHeaders DescribeSimulationApplication where
toHeaders :: DescribeSimulationApplication -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON DescribeSimulationApplication where
toJSON :: DescribeSimulationApplication -> Value
toJSON DescribeSimulationApplication' {Maybe Text
Text
application :: Text
applicationVersion :: Maybe Text
$sel:application:DescribeSimulationApplication' :: DescribeSimulationApplication -> Text
$sel:applicationVersion:DescribeSimulationApplication' :: DescribeSimulationApplication -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"applicationVersion" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
applicationVersion,
forall a. a -> Maybe a
Prelude.Just (Key
"application" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
application)
]
)
instance Data.ToPath DescribeSimulationApplication where
toPath :: DescribeSimulationApplication -> ByteString
toPath =
forall a b. a -> b -> a
Prelude.const ByteString
"/describeSimulationApplication"
instance Data.ToQuery DescribeSimulationApplication where
toQuery :: DescribeSimulationApplication -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeSimulationApplicationResponse = DescribeSimulationApplicationResponse'
{
DescribeSimulationApplicationResponse -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
DescribeSimulationApplicationResponse -> Maybe Environment
environment :: Prelude.Maybe Environment,
DescribeSimulationApplicationResponse -> Maybe Text
imageDigest :: Prelude.Maybe Prelude.Text,
DescribeSimulationApplicationResponse -> Maybe POSIX
lastUpdatedAt :: Prelude.Maybe Data.POSIX,
DescribeSimulationApplicationResponse -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
DescribeSimulationApplicationResponse -> Maybe RenderingEngine
renderingEngine :: Prelude.Maybe RenderingEngine,
DescribeSimulationApplicationResponse -> Maybe Text
revisionId :: Prelude.Maybe Prelude.Text,
DescribeSimulationApplicationResponse -> Maybe RobotSoftwareSuite
robotSoftwareSuite :: Prelude.Maybe RobotSoftwareSuite,
DescribeSimulationApplicationResponse
-> Maybe SimulationSoftwareSuite
simulationSoftwareSuite :: Prelude.Maybe SimulationSoftwareSuite,
DescribeSimulationApplicationResponse -> Maybe [Source]
sources :: Prelude.Maybe [Source],
DescribeSimulationApplicationResponse -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
DescribeSimulationApplicationResponse -> Maybe Text
version :: Prelude.Maybe Prelude.Text,
DescribeSimulationApplicationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeSimulationApplicationResponse
-> DescribeSimulationApplicationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeSimulationApplicationResponse
-> DescribeSimulationApplicationResponse -> Bool
$c/= :: DescribeSimulationApplicationResponse
-> DescribeSimulationApplicationResponse -> Bool
== :: DescribeSimulationApplicationResponse
-> DescribeSimulationApplicationResponse -> Bool
$c== :: DescribeSimulationApplicationResponse
-> DescribeSimulationApplicationResponse -> Bool
Prelude.Eq, ReadPrec [DescribeSimulationApplicationResponse]
ReadPrec DescribeSimulationApplicationResponse
Int -> ReadS DescribeSimulationApplicationResponse
ReadS [DescribeSimulationApplicationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeSimulationApplicationResponse]
$creadListPrec :: ReadPrec [DescribeSimulationApplicationResponse]
readPrec :: ReadPrec DescribeSimulationApplicationResponse
$creadPrec :: ReadPrec DescribeSimulationApplicationResponse
readList :: ReadS [DescribeSimulationApplicationResponse]
$creadList :: ReadS [DescribeSimulationApplicationResponse]
readsPrec :: Int -> ReadS DescribeSimulationApplicationResponse
$creadsPrec :: Int -> ReadS DescribeSimulationApplicationResponse
Prelude.Read, Int -> DescribeSimulationApplicationResponse -> ShowS
[DescribeSimulationApplicationResponse] -> ShowS
DescribeSimulationApplicationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeSimulationApplicationResponse] -> ShowS
$cshowList :: [DescribeSimulationApplicationResponse] -> ShowS
show :: DescribeSimulationApplicationResponse -> String
$cshow :: DescribeSimulationApplicationResponse -> String
showsPrec :: Int -> DescribeSimulationApplicationResponse -> ShowS
$cshowsPrec :: Int -> DescribeSimulationApplicationResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeSimulationApplicationResponse x
-> DescribeSimulationApplicationResponse
forall x.
DescribeSimulationApplicationResponse
-> Rep DescribeSimulationApplicationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeSimulationApplicationResponse x
-> DescribeSimulationApplicationResponse
$cfrom :: forall x.
DescribeSimulationApplicationResponse
-> Rep DescribeSimulationApplicationResponse x
Prelude.Generic)
newDescribeSimulationApplicationResponse ::
Prelude.Int ->
DescribeSimulationApplicationResponse
newDescribeSimulationApplicationResponse :: Int -> DescribeSimulationApplicationResponse
newDescribeSimulationApplicationResponse Int
pHttpStatus_ =
DescribeSimulationApplicationResponse'
{ $sel:arn:DescribeSimulationApplicationResponse' :: Maybe Text
arn =
forall a. Maybe a
Prelude.Nothing,
$sel:environment:DescribeSimulationApplicationResponse' :: Maybe Environment
environment = forall a. Maybe a
Prelude.Nothing,
$sel:imageDigest:DescribeSimulationApplicationResponse' :: Maybe Text
imageDigest = forall a. Maybe a
Prelude.Nothing,
$sel:lastUpdatedAt:DescribeSimulationApplicationResponse' :: Maybe POSIX
lastUpdatedAt = forall a. Maybe a
Prelude.Nothing,
$sel:name:DescribeSimulationApplicationResponse' :: Maybe Text
name = forall a. Maybe a
Prelude.Nothing,
$sel:renderingEngine:DescribeSimulationApplicationResponse' :: Maybe RenderingEngine
renderingEngine = forall a. Maybe a
Prelude.Nothing,
$sel:revisionId:DescribeSimulationApplicationResponse' :: Maybe Text
revisionId = forall a. Maybe a
Prelude.Nothing,
$sel:robotSoftwareSuite:DescribeSimulationApplicationResponse' :: Maybe RobotSoftwareSuite
robotSoftwareSuite = forall a. Maybe a
Prelude.Nothing,
$sel:simulationSoftwareSuite:DescribeSimulationApplicationResponse' :: Maybe SimulationSoftwareSuite
simulationSoftwareSuite =
forall a. Maybe a
Prelude.Nothing,
$sel:sources:DescribeSimulationApplicationResponse' :: Maybe [Source]
sources = forall a. Maybe a
Prelude.Nothing,
$sel:tags:DescribeSimulationApplicationResponse' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:version:DescribeSimulationApplicationResponse' :: Maybe Text
version = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeSimulationApplicationResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeSimulationApplicationResponse_arn :: Lens.Lens' DescribeSimulationApplicationResponse (Prelude.Maybe Prelude.Text)
describeSimulationApplicationResponse_arn :: Lens' DescribeSimulationApplicationResponse (Maybe Text)
describeSimulationApplicationResponse_arn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationApplicationResponse' {Maybe Text
arn :: Maybe Text
$sel:arn:DescribeSimulationApplicationResponse' :: DescribeSimulationApplicationResponse -> Maybe Text
arn} -> Maybe Text
arn) (\s :: DescribeSimulationApplicationResponse
s@DescribeSimulationApplicationResponse' {} Maybe Text
a -> DescribeSimulationApplicationResponse
s {$sel:arn:DescribeSimulationApplicationResponse' :: Maybe Text
arn = Maybe Text
a} :: DescribeSimulationApplicationResponse)
describeSimulationApplicationResponse_environment :: Lens.Lens' DescribeSimulationApplicationResponse (Prelude.Maybe Environment)
describeSimulationApplicationResponse_environment :: Lens' DescribeSimulationApplicationResponse (Maybe Environment)
describeSimulationApplicationResponse_environment = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationApplicationResponse' {Maybe Environment
environment :: Maybe Environment
$sel:environment:DescribeSimulationApplicationResponse' :: DescribeSimulationApplicationResponse -> Maybe Environment
environment} -> Maybe Environment
environment) (\s :: DescribeSimulationApplicationResponse
s@DescribeSimulationApplicationResponse' {} Maybe Environment
a -> DescribeSimulationApplicationResponse
s {$sel:environment:DescribeSimulationApplicationResponse' :: Maybe Environment
environment = Maybe Environment
a} :: DescribeSimulationApplicationResponse)
describeSimulationApplicationResponse_imageDigest :: Lens.Lens' DescribeSimulationApplicationResponse (Prelude.Maybe Prelude.Text)
describeSimulationApplicationResponse_imageDigest :: Lens' DescribeSimulationApplicationResponse (Maybe Text)
describeSimulationApplicationResponse_imageDigest = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationApplicationResponse' {Maybe Text
imageDigest :: Maybe Text
$sel:imageDigest:DescribeSimulationApplicationResponse' :: DescribeSimulationApplicationResponse -> Maybe Text
imageDigest} -> Maybe Text
imageDigest) (\s :: DescribeSimulationApplicationResponse
s@DescribeSimulationApplicationResponse' {} Maybe Text
a -> DescribeSimulationApplicationResponse
s {$sel:imageDigest:DescribeSimulationApplicationResponse' :: Maybe Text
imageDigest = Maybe Text
a} :: DescribeSimulationApplicationResponse)
describeSimulationApplicationResponse_lastUpdatedAt :: Lens.Lens' DescribeSimulationApplicationResponse (Prelude.Maybe Prelude.UTCTime)
describeSimulationApplicationResponse_lastUpdatedAt :: Lens' DescribeSimulationApplicationResponse (Maybe UTCTime)
describeSimulationApplicationResponse_lastUpdatedAt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationApplicationResponse' {Maybe POSIX
lastUpdatedAt :: Maybe POSIX
$sel:lastUpdatedAt:DescribeSimulationApplicationResponse' :: DescribeSimulationApplicationResponse -> Maybe POSIX
lastUpdatedAt} -> Maybe POSIX
lastUpdatedAt) (\s :: DescribeSimulationApplicationResponse
s@DescribeSimulationApplicationResponse' {} Maybe POSIX
a -> DescribeSimulationApplicationResponse
s {$sel:lastUpdatedAt:DescribeSimulationApplicationResponse' :: Maybe POSIX
lastUpdatedAt = Maybe POSIX
a} :: DescribeSimulationApplicationResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
describeSimulationApplicationResponse_name :: Lens.Lens' DescribeSimulationApplicationResponse (Prelude.Maybe Prelude.Text)
describeSimulationApplicationResponse_name :: Lens' DescribeSimulationApplicationResponse (Maybe Text)
describeSimulationApplicationResponse_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationApplicationResponse' {Maybe Text
name :: Maybe Text
$sel:name:DescribeSimulationApplicationResponse' :: DescribeSimulationApplicationResponse -> Maybe Text
name} -> Maybe Text
name) (\s :: DescribeSimulationApplicationResponse
s@DescribeSimulationApplicationResponse' {} Maybe Text
a -> DescribeSimulationApplicationResponse
s {$sel:name:DescribeSimulationApplicationResponse' :: Maybe Text
name = Maybe Text
a} :: DescribeSimulationApplicationResponse)
describeSimulationApplicationResponse_renderingEngine :: Lens.Lens' DescribeSimulationApplicationResponse (Prelude.Maybe RenderingEngine)
describeSimulationApplicationResponse_renderingEngine :: Lens' DescribeSimulationApplicationResponse (Maybe RenderingEngine)
describeSimulationApplicationResponse_renderingEngine = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationApplicationResponse' {Maybe RenderingEngine
renderingEngine :: Maybe RenderingEngine
$sel:renderingEngine:DescribeSimulationApplicationResponse' :: DescribeSimulationApplicationResponse -> Maybe RenderingEngine
renderingEngine} -> Maybe RenderingEngine
renderingEngine) (\s :: DescribeSimulationApplicationResponse
s@DescribeSimulationApplicationResponse' {} Maybe RenderingEngine
a -> DescribeSimulationApplicationResponse
s {$sel:renderingEngine:DescribeSimulationApplicationResponse' :: Maybe RenderingEngine
renderingEngine = Maybe RenderingEngine
a} :: DescribeSimulationApplicationResponse)
describeSimulationApplicationResponse_revisionId :: Lens.Lens' DescribeSimulationApplicationResponse (Prelude.Maybe Prelude.Text)
describeSimulationApplicationResponse_revisionId :: Lens' DescribeSimulationApplicationResponse (Maybe Text)
describeSimulationApplicationResponse_revisionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationApplicationResponse' {Maybe Text
revisionId :: Maybe Text
$sel:revisionId:DescribeSimulationApplicationResponse' :: DescribeSimulationApplicationResponse -> Maybe Text
revisionId} -> Maybe Text
revisionId) (\s :: DescribeSimulationApplicationResponse
s@DescribeSimulationApplicationResponse' {} Maybe Text
a -> DescribeSimulationApplicationResponse
s {$sel:revisionId:DescribeSimulationApplicationResponse' :: Maybe Text
revisionId = Maybe Text
a} :: DescribeSimulationApplicationResponse)
describeSimulationApplicationResponse_robotSoftwareSuite :: Lens.Lens' DescribeSimulationApplicationResponse (Prelude.Maybe RobotSoftwareSuite)
describeSimulationApplicationResponse_robotSoftwareSuite :: Lens'
DescribeSimulationApplicationResponse (Maybe RobotSoftwareSuite)
describeSimulationApplicationResponse_robotSoftwareSuite = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationApplicationResponse' {Maybe RobotSoftwareSuite
robotSoftwareSuite :: Maybe RobotSoftwareSuite
$sel:robotSoftwareSuite:DescribeSimulationApplicationResponse' :: DescribeSimulationApplicationResponse -> Maybe RobotSoftwareSuite
robotSoftwareSuite} -> Maybe RobotSoftwareSuite
robotSoftwareSuite) (\s :: DescribeSimulationApplicationResponse
s@DescribeSimulationApplicationResponse' {} Maybe RobotSoftwareSuite
a -> DescribeSimulationApplicationResponse
s {$sel:robotSoftwareSuite:DescribeSimulationApplicationResponse' :: Maybe RobotSoftwareSuite
robotSoftwareSuite = Maybe RobotSoftwareSuite
a} :: DescribeSimulationApplicationResponse)
describeSimulationApplicationResponse_simulationSoftwareSuite :: Lens.Lens' DescribeSimulationApplicationResponse (Prelude.Maybe SimulationSoftwareSuite)
describeSimulationApplicationResponse_simulationSoftwareSuite :: Lens'
DescribeSimulationApplicationResponse
(Maybe SimulationSoftwareSuite)
describeSimulationApplicationResponse_simulationSoftwareSuite = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationApplicationResponse' {Maybe SimulationSoftwareSuite
simulationSoftwareSuite :: Maybe SimulationSoftwareSuite
$sel:simulationSoftwareSuite:DescribeSimulationApplicationResponse' :: DescribeSimulationApplicationResponse
-> Maybe SimulationSoftwareSuite
simulationSoftwareSuite} -> Maybe SimulationSoftwareSuite
simulationSoftwareSuite) (\s :: DescribeSimulationApplicationResponse
s@DescribeSimulationApplicationResponse' {} Maybe SimulationSoftwareSuite
a -> DescribeSimulationApplicationResponse
s {$sel:simulationSoftwareSuite:DescribeSimulationApplicationResponse' :: Maybe SimulationSoftwareSuite
simulationSoftwareSuite = Maybe SimulationSoftwareSuite
a} :: DescribeSimulationApplicationResponse)
describeSimulationApplicationResponse_sources :: Lens.Lens' DescribeSimulationApplicationResponse (Prelude.Maybe [Source])
describeSimulationApplicationResponse_sources :: Lens' DescribeSimulationApplicationResponse (Maybe [Source])
describeSimulationApplicationResponse_sources = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationApplicationResponse' {Maybe [Source]
sources :: Maybe [Source]
$sel:sources:DescribeSimulationApplicationResponse' :: DescribeSimulationApplicationResponse -> Maybe [Source]
sources} -> Maybe [Source]
sources) (\s :: DescribeSimulationApplicationResponse
s@DescribeSimulationApplicationResponse' {} Maybe [Source]
a -> DescribeSimulationApplicationResponse
s {$sel:sources:DescribeSimulationApplicationResponse' :: Maybe [Source]
sources = Maybe [Source]
a} :: DescribeSimulationApplicationResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
describeSimulationApplicationResponse_tags :: Lens.Lens' DescribeSimulationApplicationResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
describeSimulationApplicationResponse_tags :: Lens'
DescribeSimulationApplicationResponse (Maybe (HashMap Text Text))
describeSimulationApplicationResponse_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationApplicationResponse' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:DescribeSimulationApplicationResponse' :: DescribeSimulationApplicationResponse -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: DescribeSimulationApplicationResponse
s@DescribeSimulationApplicationResponse' {} Maybe (HashMap Text Text)
a -> DescribeSimulationApplicationResponse
s {$sel:tags:DescribeSimulationApplicationResponse' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: DescribeSimulationApplicationResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
describeSimulationApplicationResponse_version :: Lens.Lens' DescribeSimulationApplicationResponse (Prelude.Maybe Prelude.Text)
describeSimulationApplicationResponse_version :: Lens' DescribeSimulationApplicationResponse (Maybe Text)
describeSimulationApplicationResponse_version = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationApplicationResponse' {Maybe Text
version :: Maybe Text
$sel:version:DescribeSimulationApplicationResponse' :: DescribeSimulationApplicationResponse -> Maybe Text
version} -> Maybe Text
version) (\s :: DescribeSimulationApplicationResponse
s@DescribeSimulationApplicationResponse' {} Maybe Text
a -> DescribeSimulationApplicationResponse
s {$sel:version:DescribeSimulationApplicationResponse' :: Maybe Text
version = Maybe Text
a} :: DescribeSimulationApplicationResponse)
describeSimulationApplicationResponse_httpStatus :: Lens.Lens' DescribeSimulationApplicationResponse Prelude.Int
describeSimulationApplicationResponse_httpStatus :: Lens' DescribeSimulationApplicationResponse Int
describeSimulationApplicationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSimulationApplicationResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeSimulationApplicationResponse' :: DescribeSimulationApplicationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeSimulationApplicationResponse
s@DescribeSimulationApplicationResponse' {} Int
a -> DescribeSimulationApplicationResponse
s {$sel:httpStatus:DescribeSimulationApplicationResponse' :: Int
httpStatus = Int
a} :: DescribeSimulationApplicationResponse)
instance
Prelude.NFData
DescribeSimulationApplicationResponse
where
rnf :: DescribeSimulationApplicationResponse -> ()
rnf DescribeSimulationApplicationResponse' {Int
Maybe [Source]
Maybe Text
Maybe (HashMap Text Text)
Maybe POSIX
Maybe Environment
Maybe RenderingEngine
Maybe RobotSoftwareSuite
Maybe SimulationSoftwareSuite
httpStatus :: Int
version :: Maybe Text
tags :: Maybe (HashMap Text Text)
sources :: Maybe [Source]
simulationSoftwareSuite :: Maybe SimulationSoftwareSuite
robotSoftwareSuite :: Maybe RobotSoftwareSuite
revisionId :: Maybe Text
renderingEngine :: Maybe RenderingEngine
name :: Maybe Text
lastUpdatedAt :: Maybe POSIX
imageDigest :: Maybe Text
environment :: Maybe Environment
arn :: Maybe Text
$sel:httpStatus:DescribeSimulationApplicationResponse' :: DescribeSimulationApplicationResponse -> Int
$sel:version:DescribeSimulationApplicationResponse' :: DescribeSimulationApplicationResponse -> Maybe Text
$sel:tags:DescribeSimulationApplicationResponse' :: DescribeSimulationApplicationResponse -> Maybe (HashMap Text Text)
$sel:sources:DescribeSimulationApplicationResponse' :: DescribeSimulationApplicationResponse -> Maybe [Source]
$sel:simulationSoftwareSuite:DescribeSimulationApplicationResponse' :: DescribeSimulationApplicationResponse
-> Maybe SimulationSoftwareSuite
$sel:robotSoftwareSuite:DescribeSimulationApplicationResponse' :: DescribeSimulationApplicationResponse -> Maybe RobotSoftwareSuite
$sel:revisionId:DescribeSimulationApplicationResponse' :: DescribeSimulationApplicationResponse -> Maybe Text
$sel:renderingEngine:DescribeSimulationApplicationResponse' :: DescribeSimulationApplicationResponse -> Maybe RenderingEngine
$sel:name:DescribeSimulationApplicationResponse' :: DescribeSimulationApplicationResponse -> Maybe Text
$sel:lastUpdatedAt:DescribeSimulationApplicationResponse' :: DescribeSimulationApplicationResponse -> Maybe POSIX
$sel:imageDigest:DescribeSimulationApplicationResponse' :: DescribeSimulationApplicationResponse -> Maybe Text
$sel:environment:DescribeSimulationApplicationResponse' :: DescribeSimulationApplicationResponse -> Maybe Environment
$sel:arn:DescribeSimulationApplicationResponse' :: DescribeSimulationApplicationResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
arn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Environment
environment
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
imageDigest
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
lastUpdatedAt
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe RenderingEngine
renderingEngine
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
revisionId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe RobotSoftwareSuite
robotSoftwareSuite
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe SimulationSoftwareSuite
simulationSoftwareSuite
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Source]
sources
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
version
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus