{-# 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.CreateSimulationApplicationVersion
(
CreateSimulationApplicationVersion (..),
newCreateSimulationApplicationVersion,
createSimulationApplicationVersion_currentRevisionId,
createSimulationApplicationVersion_imageDigest,
createSimulationApplicationVersion_s3Etags,
createSimulationApplicationVersion_application,
CreateSimulationApplicationVersionResponse (..),
newCreateSimulationApplicationVersionResponse,
createSimulationApplicationVersionResponse_arn,
createSimulationApplicationVersionResponse_environment,
createSimulationApplicationVersionResponse_lastUpdatedAt,
createSimulationApplicationVersionResponse_name,
createSimulationApplicationVersionResponse_renderingEngine,
createSimulationApplicationVersionResponse_revisionId,
createSimulationApplicationVersionResponse_robotSoftwareSuite,
createSimulationApplicationVersionResponse_simulationSoftwareSuite,
createSimulationApplicationVersionResponse_sources,
createSimulationApplicationVersionResponse_version,
createSimulationApplicationVersionResponse_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 CreateSimulationApplicationVersion = CreateSimulationApplicationVersion'
{
CreateSimulationApplicationVersion -> Maybe Text
currentRevisionId :: Prelude.Maybe Prelude.Text,
CreateSimulationApplicationVersion -> Maybe Text
imageDigest :: Prelude.Maybe Prelude.Text,
CreateSimulationApplicationVersion -> Maybe [Text]
s3Etags :: Prelude.Maybe [Prelude.Text],
CreateSimulationApplicationVersion -> Text
application :: Prelude.Text
}
deriving (CreateSimulationApplicationVersion
-> CreateSimulationApplicationVersion -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateSimulationApplicationVersion
-> CreateSimulationApplicationVersion -> Bool
$c/= :: CreateSimulationApplicationVersion
-> CreateSimulationApplicationVersion -> Bool
== :: CreateSimulationApplicationVersion
-> CreateSimulationApplicationVersion -> Bool
$c== :: CreateSimulationApplicationVersion
-> CreateSimulationApplicationVersion -> Bool
Prelude.Eq, ReadPrec [CreateSimulationApplicationVersion]
ReadPrec CreateSimulationApplicationVersion
Int -> ReadS CreateSimulationApplicationVersion
ReadS [CreateSimulationApplicationVersion]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateSimulationApplicationVersion]
$creadListPrec :: ReadPrec [CreateSimulationApplicationVersion]
readPrec :: ReadPrec CreateSimulationApplicationVersion
$creadPrec :: ReadPrec CreateSimulationApplicationVersion
readList :: ReadS [CreateSimulationApplicationVersion]
$creadList :: ReadS [CreateSimulationApplicationVersion]
readsPrec :: Int -> ReadS CreateSimulationApplicationVersion
$creadsPrec :: Int -> ReadS CreateSimulationApplicationVersion
Prelude.Read, Int -> CreateSimulationApplicationVersion -> ShowS
[CreateSimulationApplicationVersion] -> ShowS
CreateSimulationApplicationVersion -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateSimulationApplicationVersion] -> ShowS
$cshowList :: [CreateSimulationApplicationVersion] -> ShowS
show :: CreateSimulationApplicationVersion -> String
$cshow :: CreateSimulationApplicationVersion -> String
showsPrec :: Int -> CreateSimulationApplicationVersion -> ShowS
$cshowsPrec :: Int -> CreateSimulationApplicationVersion -> ShowS
Prelude.Show, forall x.
Rep CreateSimulationApplicationVersion x
-> CreateSimulationApplicationVersion
forall x.
CreateSimulationApplicationVersion
-> Rep CreateSimulationApplicationVersion x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateSimulationApplicationVersion x
-> CreateSimulationApplicationVersion
$cfrom :: forall x.
CreateSimulationApplicationVersion
-> Rep CreateSimulationApplicationVersion x
Prelude.Generic)
newCreateSimulationApplicationVersion ::
Prelude.Text ->
CreateSimulationApplicationVersion
newCreateSimulationApplicationVersion :: Text -> CreateSimulationApplicationVersion
newCreateSimulationApplicationVersion Text
pApplication_ =
CreateSimulationApplicationVersion'
{ $sel:currentRevisionId:CreateSimulationApplicationVersion' :: Maybe Text
currentRevisionId =
forall a. Maybe a
Prelude.Nothing,
$sel:imageDigest:CreateSimulationApplicationVersion' :: Maybe Text
imageDigest = forall a. Maybe a
Prelude.Nothing,
$sel:s3Etags:CreateSimulationApplicationVersion' :: Maybe [Text]
s3Etags = forall a. Maybe a
Prelude.Nothing,
$sel:application:CreateSimulationApplicationVersion' :: Text
application = Text
pApplication_
}
createSimulationApplicationVersion_currentRevisionId :: Lens.Lens' CreateSimulationApplicationVersion (Prelude.Maybe Prelude.Text)
createSimulationApplicationVersion_currentRevisionId :: Lens' CreateSimulationApplicationVersion (Maybe Text)
createSimulationApplicationVersion_currentRevisionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationApplicationVersion' {Maybe Text
currentRevisionId :: Maybe Text
$sel:currentRevisionId:CreateSimulationApplicationVersion' :: CreateSimulationApplicationVersion -> Maybe Text
currentRevisionId} -> Maybe Text
currentRevisionId) (\s :: CreateSimulationApplicationVersion
s@CreateSimulationApplicationVersion' {} Maybe Text
a -> CreateSimulationApplicationVersion
s {$sel:currentRevisionId:CreateSimulationApplicationVersion' :: Maybe Text
currentRevisionId = Maybe Text
a} :: CreateSimulationApplicationVersion)
createSimulationApplicationVersion_imageDigest :: Lens.Lens' CreateSimulationApplicationVersion (Prelude.Maybe Prelude.Text)
createSimulationApplicationVersion_imageDigest :: Lens' CreateSimulationApplicationVersion (Maybe Text)
createSimulationApplicationVersion_imageDigest = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationApplicationVersion' {Maybe Text
imageDigest :: Maybe Text
$sel:imageDigest:CreateSimulationApplicationVersion' :: CreateSimulationApplicationVersion -> Maybe Text
imageDigest} -> Maybe Text
imageDigest) (\s :: CreateSimulationApplicationVersion
s@CreateSimulationApplicationVersion' {} Maybe Text
a -> CreateSimulationApplicationVersion
s {$sel:imageDigest:CreateSimulationApplicationVersion' :: Maybe Text
imageDigest = Maybe Text
a} :: CreateSimulationApplicationVersion)
createSimulationApplicationVersion_s3Etags :: Lens.Lens' CreateSimulationApplicationVersion (Prelude.Maybe [Prelude.Text])
createSimulationApplicationVersion_s3Etags :: Lens' CreateSimulationApplicationVersion (Maybe [Text])
createSimulationApplicationVersion_s3Etags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationApplicationVersion' {Maybe [Text]
s3Etags :: Maybe [Text]
$sel:s3Etags:CreateSimulationApplicationVersion' :: CreateSimulationApplicationVersion -> Maybe [Text]
s3Etags} -> Maybe [Text]
s3Etags) (\s :: CreateSimulationApplicationVersion
s@CreateSimulationApplicationVersion' {} Maybe [Text]
a -> CreateSimulationApplicationVersion
s {$sel:s3Etags:CreateSimulationApplicationVersion' :: Maybe [Text]
s3Etags = Maybe [Text]
a} :: CreateSimulationApplicationVersion) 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
createSimulationApplicationVersion_application :: Lens.Lens' CreateSimulationApplicationVersion Prelude.Text
createSimulationApplicationVersion_application :: Lens' CreateSimulationApplicationVersion Text
createSimulationApplicationVersion_application = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationApplicationVersion' {Text
application :: Text
$sel:application:CreateSimulationApplicationVersion' :: CreateSimulationApplicationVersion -> Text
application} -> Text
application) (\s :: CreateSimulationApplicationVersion
s@CreateSimulationApplicationVersion' {} Text
a -> CreateSimulationApplicationVersion
s {$sel:application:CreateSimulationApplicationVersion' :: Text
application = Text
a} :: CreateSimulationApplicationVersion)
instance
Core.AWSRequest
CreateSimulationApplicationVersion
where
type
AWSResponse CreateSimulationApplicationVersion =
CreateSimulationApplicationVersionResponse
request :: (Service -> Service)
-> CreateSimulationApplicationVersion
-> Request CreateSimulationApplicationVersion
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 CreateSimulationApplicationVersion
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse CreateSimulationApplicationVersion)))
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 POSIX
-> Maybe Text
-> Maybe RenderingEngine
-> Maybe Text
-> Maybe RobotSoftwareSuite
-> Maybe SimulationSoftwareSuite
-> Maybe [Source]
-> Maybe Text
-> Int
-> CreateSimulationApplicationVersionResponse
CreateSimulationApplicationVersionResponse'
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
"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
"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
CreateSimulationApplicationVersion
where
hashWithSalt :: Int -> CreateSimulationApplicationVersion -> Int
hashWithSalt
Int
_salt
CreateSimulationApplicationVersion' {Maybe [Text]
Maybe Text
Text
application :: Text
s3Etags :: Maybe [Text]
imageDigest :: Maybe Text
currentRevisionId :: Maybe Text
$sel:application:CreateSimulationApplicationVersion' :: CreateSimulationApplicationVersion -> Text
$sel:s3Etags:CreateSimulationApplicationVersion' :: CreateSimulationApplicationVersion -> Maybe [Text]
$sel:imageDigest:CreateSimulationApplicationVersion' :: CreateSimulationApplicationVersion -> Maybe Text
$sel:currentRevisionId:CreateSimulationApplicationVersion' :: CreateSimulationApplicationVersion -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
currentRevisionId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
imageDigest
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
s3Etags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
application
instance
Prelude.NFData
CreateSimulationApplicationVersion
where
rnf :: CreateSimulationApplicationVersion -> ()
rnf CreateSimulationApplicationVersion' {Maybe [Text]
Maybe Text
Text
application :: Text
s3Etags :: Maybe [Text]
imageDigest :: Maybe Text
currentRevisionId :: Maybe Text
$sel:application:CreateSimulationApplicationVersion' :: CreateSimulationApplicationVersion -> Text
$sel:s3Etags:CreateSimulationApplicationVersion' :: CreateSimulationApplicationVersion -> Maybe [Text]
$sel:imageDigest:CreateSimulationApplicationVersion' :: CreateSimulationApplicationVersion -> Maybe Text
$sel:currentRevisionId:CreateSimulationApplicationVersion' :: CreateSimulationApplicationVersion -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
currentRevisionId
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 [Text]
s3Etags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
application
instance
Data.ToHeaders
CreateSimulationApplicationVersion
where
toHeaders :: CreateSimulationApplicationVersion -> 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
CreateSimulationApplicationVersion
where
toJSON :: CreateSimulationApplicationVersion -> Value
toJSON CreateSimulationApplicationVersion' {Maybe [Text]
Maybe Text
Text
application :: Text
s3Etags :: Maybe [Text]
imageDigest :: Maybe Text
currentRevisionId :: Maybe Text
$sel:application:CreateSimulationApplicationVersion' :: CreateSimulationApplicationVersion -> Text
$sel:s3Etags:CreateSimulationApplicationVersion' :: CreateSimulationApplicationVersion -> Maybe [Text]
$sel:imageDigest:CreateSimulationApplicationVersion' :: CreateSimulationApplicationVersion -> Maybe Text
$sel:currentRevisionId:CreateSimulationApplicationVersion' :: CreateSimulationApplicationVersion -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"currentRevisionId" 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
currentRevisionId,
(Key
"imageDigest" 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
imageDigest,
(Key
"s3Etags" 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]
s3Etags,
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
CreateSimulationApplicationVersion
where
toPath :: CreateSimulationApplicationVersion -> ByteString
toPath =
forall a b. a -> b -> a
Prelude.const ByteString
"/createSimulationApplicationVersion"
instance
Data.ToQuery
CreateSimulationApplicationVersion
where
toQuery :: CreateSimulationApplicationVersion -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateSimulationApplicationVersionResponse = CreateSimulationApplicationVersionResponse'
{
CreateSimulationApplicationVersionResponse -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
CreateSimulationApplicationVersionResponse -> Maybe Environment
environment :: Prelude.Maybe Environment,
CreateSimulationApplicationVersionResponse -> Maybe POSIX
lastUpdatedAt :: Prelude.Maybe Data.POSIX,
CreateSimulationApplicationVersionResponse -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
CreateSimulationApplicationVersionResponse -> Maybe RenderingEngine
renderingEngine :: Prelude.Maybe RenderingEngine,
CreateSimulationApplicationVersionResponse -> Maybe Text
revisionId :: Prelude.Maybe Prelude.Text,
CreateSimulationApplicationVersionResponse
-> Maybe RobotSoftwareSuite
robotSoftwareSuite :: Prelude.Maybe RobotSoftwareSuite,
CreateSimulationApplicationVersionResponse
-> Maybe SimulationSoftwareSuite
simulationSoftwareSuite :: Prelude.Maybe SimulationSoftwareSuite,
CreateSimulationApplicationVersionResponse -> Maybe [Source]
sources :: Prelude.Maybe [Source],
CreateSimulationApplicationVersionResponse -> Maybe Text
version :: Prelude.Maybe Prelude.Text,
CreateSimulationApplicationVersionResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateSimulationApplicationVersionResponse
-> CreateSimulationApplicationVersionResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateSimulationApplicationVersionResponse
-> CreateSimulationApplicationVersionResponse -> Bool
$c/= :: CreateSimulationApplicationVersionResponse
-> CreateSimulationApplicationVersionResponse -> Bool
== :: CreateSimulationApplicationVersionResponse
-> CreateSimulationApplicationVersionResponse -> Bool
$c== :: CreateSimulationApplicationVersionResponse
-> CreateSimulationApplicationVersionResponse -> Bool
Prelude.Eq, ReadPrec [CreateSimulationApplicationVersionResponse]
ReadPrec CreateSimulationApplicationVersionResponse
Int -> ReadS CreateSimulationApplicationVersionResponse
ReadS [CreateSimulationApplicationVersionResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateSimulationApplicationVersionResponse]
$creadListPrec :: ReadPrec [CreateSimulationApplicationVersionResponse]
readPrec :: ReadPrec CreateSimulationApplicationVersionResponse
$creadPrec :: ReadPrec CreateSimulationApplicationVersionResponse
readList :: ReadS [CreateSimulationApplicationVersionResponse]
$creadList :: ReadS [CreateSimulationApplicationVersionResponse]
readsPrec :: Int -> ReadS CreateSimulationApplicationVersionResponse
$creadsPrec :: Int -> ReadS CreateSimulationApplicationVersionResponse
Prelude.Read, Int -> CreateSimulationApplicationVersionResponse -> ShowS
[CreateSimulationApplicationVersionResponse] -> ShowS
CreateSimulationApplicationVersionResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateSimulationApplicationVersionResponse] -> ShowS
$cshowList :: [CreateSimulationApplicationVersionResponse] -> ShowS
show :: CreateSimulationApplicationVersionResponse -> String
$cshow :: CreateSimulationApplicationVersionResponse -> String
showsPrec :: Int -> CreateSimulationApplicationVersionResponse -> ShowS
$cshowsPrec :: Int -> CreateSimulationApplicationVersionResponse -> ShowS
Prelude.Show, forall x.
Rep CreateSimulationApplicationVersionResponse x
-> CreateSimulationApplicationVersionResponse
forall x.
CreateSimulationApplicationVersionResponse
-> Rep CreateSimulationApplicationVersionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateSimulationApplicationVersionResponse x
-> CreateSimulationApplicationVersionResponse
$cfrom :: forall x.
CreateSimulationApplicationVersionResponse
-> Rep CreateSimulationApplicationVersionResponse x
Prelude.Generic)
newCreateSimulationApplicationVersionResponse ::
Prelude.Int ->
CreateSimulationApplicationVersionResponse
newCreateSimulationApplicationVersionResponse :: Int -> CreateSimulationApplicationVersionResponse
newCreateSimulationApplicationVersionResponse
Int
pHttpStatus_ =
CreateSimulationApplicationVersionResponse'
{ $sel:arn:CreateSimulationApplicationVersionResponse' :: Maybe Text
arn =
forall a. Maybe a
Prelude.Nothing,
$sel:environment:CreateSimulationApplicationVersionResponse' :: Maybe Environment
environment = forall a. Maybe a
Prelude.Nothing,
$sel:lastUpdatedAt:CreateSimulationApplicationVersionResponse' :: Maybe POSIX
lastUpdatedAt = forall a. Maybe a
Prelude.Nothing,
$sel:name:CreateSimulationApplicationVersionResponse' :: Maybe Text
name = forall a. Maybe a
Prelude.Nothing,
$sel:renderingEngine:CreateSimulationApplicationVersionResponse' :: Maybe RenderingEngine
renderingEngine =
forall a. Maybe a
Prelude.Nothing,
$sel:revisionId:CreateSimulationApplicationVersionResponse' :: Maybe Text
revisionId = forall a. Maybe a
Prelude.Nothing,
$sel:robotSoftwareSuite:CreateSimulationApplicationVersionResponse' :: Maybe RobotSoftwareSuite
robotSoftwareSuite =
forall a. Maybe a
Prelude.Nothing,
$sel:simulationSoftwareSuite:CreateSimulationApplicationVersionResponse' :: Maybe SimulationSoftwareSuite
simulationSoftwareSuite =
forall a. Maybe a
Prelude.Nothing,
$sel:sources:CreateSimulationApplicationVersionResponse' :: Maybe [Source]
sources = forall a. Maybe a
Prelude.Nothing,
$sel:version:CreateSimulationApplicationVersionResponse' :: Maybe Text
version = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateSimulationApplicationVersionResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createSimulationApplicationVersionResponse_arn :: Lens.Lens' CreateSimulationApplicationVersionResponse (Prelude.Maybe Prelude.Text)
createSimulationApplicationVersionResponse_arn :: Lens' CreateSimulationApplicationVersionResponse (Maybe Text)
createSimulationApplicationVersionResponse_arn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationApplicationVersionResponse' {Maybe Text
arn :: Maybe Text
$sel:arn:CreateSimulationApplicationVersionResponse' :: CreateSimulationApplicationVersionResponse -> Maybe Text
arn} -> Maybe Text
arn) (\s :: CreateSimulationApplicationVersionResponse
s@CreateSimulationApplicationVersionResponse' {} Maybe Text
a -> CreateSimulationApplicationVersionResponse
s {$sel:arn:CreateSimulationApplicationVersionResponse' :: Maybe Text
arn = Maybe Text
a} :: CreateSimulationApplicationVersionResponse)
createSimulationApplicationVersionResponse_environment :: Lens.Lens' CreateSimulationApplicationVersionResponse (Prelude.Maybe Environment)
createSimulationApplicationVersionResponse_environment :: Lens'
CreateSimulationApplicationVersionResponse (Maybe Environment)
createSimulationApplicationVersionResponse_environment = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationApplicationVersionResponse' {Maybe Environment
environment :: Maybe Environment
$sel:environment:CreateSimulationApplicationVersionResponse' :: CreateSimulationApplicationVersionResponse -> Maybe Environment
environment} -> Maybe Environment
environment) (\s :: CreateSimulationApplicationVersionResponse
s@CreateSimulationApplicationVersionResponse' {} Maybe Environment
a -> CreateSimulationApplicationVersionResponse
s {$sel:environment:CreateSimulationApplicationVersionResponse' :: Maybe Environment
environment = Maybe Environment
a} :: CreateSimulationApplicationVersionResponse)
createSimulationApplicationVersionResponse_lastUpdatedAt :: Lens.Lens' CreateSimulationApplicationVersionResponse (Prelude.Maybe Prelude.UTCTime)
createSimulationApplicationVersionResponse_lastUpdatedAt :: Lens' CreateSimulationApplicationVersionResponse (Maybe UTCTime)
createSimulationApplicationVersionResponse_lastUpdatedAt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationApplicationVersionResponse' {Maybe POSIX
lastUpdatedAt :: Maybe POSIX
$sel:lastUpdatedAt:CreateSimulationApplicationVersionResponse' :: CreateSimulationApplicationVersionResponse -> Maybe POSIX
lastUpdatedAt} -> Maybe POSIX
lastUpdatedAt) (\s :: CreateSimulationApplicationVersionResponse
s@CreateSimulationApplicationVersionResponse' {} Maybe POSIX
a -> CreateSimulationApplicationVersionResponse
s {$sel:lastUpdatedAt:CreateSimulationApplicationVersionResponse' :: Maybe POSIX
lastUpdatedAt = Maybe POSIX
a} :: CreateSimulationApplicationVersionResponse) 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
createSimulationApplicationVersionResponse_name :: Lens.Lens' CreateSimulationApplicationVersionResponse (Prelude.Maybe Prelude.Text)
createSimulationApplicationVersionResponse_name :: Lens' CreateSimulationApplicationVersionResponse (Maybe Text)
createSimulationApplicationVersionResponse_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationApplicationVersionResponse' {Maybe Text
name :: Maybe Text
$sel:name:CreateSimulationApplicationVersionResponse' :: CreateSimulationApplicationVersionResponse -> Maybe Text
name} -> Maybe Text
name) (\s :: CreateSimulationApplicationVersionResponse
s@CreateSimulationApplicationVersionResponse' {} Maybe Text
a -> CreateSimulationApplicationVersionResponse
s {$sel:name:CreateSimulationApplicationVersionResponse' :: Maybe Text
name = Maybe Text
a} :: CreateSimulationApplicationVersionResponse)
createSimulationApplicationVersionResponse_renderingEngine :: Lens.Lens' CreateSimulationApplicationVersionResponse (Prelude.Maybe RenderingEngine)
createSimulationApplicationVersionResponse_renderingEngine :: Lens'
CreateSimulationApplicationVersionResponse (Maybe RenderingEngine)
createSimulationApplicationVersionResponse_renderingEngine = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationApplicationVersionResponse' {Maybe RenderingEngine
renderingEngine :: Maybe RenderingEngine
$sel:renderingEngine:CreateSimulationApplicationVersionResponse' :: CreateSimulationApplicationVersionResponse -> Maybe RenderingEngine
renderingEngine} -> Maybe RenderingEngine
renderingEngine) (\s :: CreateSimulationApplicationVersionResponse
s@CreateSimulationApplicationVersionResponse' {} Maybe RenderingEngine
a -> CreateSimulationApplicationVersionResponse
s {$sel:renderingEngine:CreateSimulationApplicationVersionResponse' :: Maybe RenderingEngine
renderingEngine = Maybe RenderingEngine
a} :: CreateSimulationApplicationVersionResponse)
createSimulationApplicationVersionResponse_revisionId :: Lens.Lens' CreateSimulationApplicationVersionResponse (Prelude.Maybe Prelude.Text)
createSimulationApplicationVersionResponse_revisionId :: Lens' CreateSimulationApplicationVersionResponse (Maybe Text)
createSimulationApplicationVersionResponse_revisionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationApplicationVersionResponse' {Maybe Text
revisionId :: Maybe Text
$sel:revisionId:CreateSimulationApplicationVersionResponse' :: CreateSimulationApplicationVersionResponse -> Maybe Text
revisionId} -> Maybe Text
revisionId) (\s :: CreateSimulationApplicationVersionResponse
s@CreateSimulationApplicationVersionResponse' {} Maybe Text
a -> CreateSimulationApplicationVersionResponse
s {$sel:revisionId:CreateSimulationApplicationVersionResponse' :: Maybe Text
revisionId = Maybe Text
a} :: CreateSimulationApplicationVersionResponse)
createSimulationApplicationVersionResponse_robotSoftwareSuite :: Lens.Lens' CreateSimulationApplicationVersionResponse (Prelude.Maybe RobotSoftwareSuite)
createSimulationApplicationVersionResponse_robotSoftwareSuite :: Lens'
CreateSimulationApplicationVersionResponse
(Maybe RobotSoftwareSuite)
createSimulationApplicationVersionResponse_robotSoftwareSuite = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationApplicationVersionResponse' {Maybe RobotSoftwareSuite
robotSoftwareSuite :: Maybe RobotSoftwareSuite
$sel:robotSoftwareSuite:CreateSimulationApplicationVersionResponse' :: CreateSimulationApplicationVersionResponse
-> Maybe RobotSoftwareSuite
robotSoftwareSuite} -> Maybe RobotSoftwareSuite
robotSoftwareSuite) (\s :: CreateSimulationApplicationVersionResponse
s@CreateSimulationApplicationVersionResponse' {} Maybe RobotSoftwareSuite
a -> CreateSimulationApplicationVersionResponse
s {$sel:robotSoftwareSuite:CreateSimulationApplicationVersionResponse' :: Maybe RobotSoftwareSuite
robotSoftwareSuite = Maybe RobotSoftwareSuite
a} :: CreateSimulationApplicationVersionResponse)
createSimulationApplicationVersionResponse_simulationSoftwareSuite :: Lens.Lens' CreateSimulationApplicationVersionResponse (Prelude.Maybe SimulationSoftwareSuite)
createSimulationApplicationVersionResponse_simulationSoftwareSuite :: Lens'
CreateSimulationApplicationVersionResponse
(Maybe SimulationSoftwareSuite)
createSimulationApplicationVersionResponse_simulationSoftwareSuite = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationApplicationVersionResponse' {Maybe SimulationSoftwareSuite
simulationSoftwareSuite :: Maybe SimulationSoftwareSuite
$sel:simulationSoftwareSuite:CreateSimulationApplicationVersionResponse' :: CreateSimulationApplicationVersionResponse
-> Maybe SimulationSoftwareSuite
simulationSoftwareSuite} -> Maybe SimulationSoftwareSuite
simulationSoftwareSuite) (\s :: CreateSimulationApplicationVersionResponse
s@CreateSimulationApplicationVersionResponse' {} Maybe SimulationSoftwareSuite
a -> CreateSimulationApplicationVersionResponse
s {$sel:simulationSoftwareSuite:CreateSimulationApplicationVersionResponse' :: Maybe SimulationSoftwareSuite
simulationSoftwareSuite = Maybe SimulationSoftwareSuite
a} :: CreateSimulationApplicationVersionResponse)
createSimulationApplicationVersionResponse_sources :: Lens.Lens' CreateSimulationApplicationVersionResponse (Prelude.Maybe [Source])
createSimulationApplicationVersionResponse_sources :: Lens' CreateSimulationApplicationVersionResponse (Maybe [Source])
createSimulationApplicationVersionResponse_sources = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationApplicationVersionResponse' {Maybe [Source]
sources :: Maybe [Source]
$sel:sources:CreateSimulationApplicationVersionResponse' :: CreateSimulationApplicationVersionResponse -> Maybe [Source]
sources} -> Maybe [Source]
sources) (\s :: CreateSimulationApplicationVersionResponse
s@CreateSimulationApplicationVersionResponse' {} Maybe [Source]
a -> CreateSimulationApplicationVersionResponse
s {$sel:sources:CreateSimulationApplicationVersionResponse' :: Maybe [Source]
sources = Maybe [Source]
a} :: CreateSimulationApplicationVersionResponse) 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
createSimulationApplicationVersionResponse_version :: Lens.Lens' CreateSimulationApplicationVersionResponse (Prelude.Maybe Prelude.Text)
createSimulationApplicationVersionResponse_version :: Lens' CreateSimulationApplicationVersionResponse (Maybe Text)
createSimulationApplicationVersionResponse_version = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationApplicationVersionResponse' {Maybe Text
version :: Maybe Text
$sel:version:CreateSimulationApplicationVersionResponse' :: CreateSimulationApplicationVersionResponse -> Maybe Text
version} -> Maybe Text
version) (\s :: CreateSimulationApplicationVersionResponse
s@CreateSimulationApplicationVersionResponse' {} Maybe Text
a -> CreateSimulationApplicationVersionResponse
s {$sel:version:CreateSimulationApplicationVersionResponse' :: Maybe Text
version = Maybe Text
a} :: CreateSimulationApplicationVersionResponse)
createSimulationApplicationVersionResponse_httpStatus :: Lens.Lens' CreateSimulationApplicationVersionResponse Prelude.Int
createSimulationApplicationVersionResponse_httpStatus :: Lens' CreateSimulationApplicationVersionResponse Int
createSimulationApplicationVersionResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSimulationApplicationVersionResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateSimulationApplicationVersionResponse' :: CreateSimulationApplicationVersionResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateSimulationApplicationVersionResponse
s@CreateSimulationApplicationVersionResponse' {} Int
a -> CreateSimulationApplicationVersionResponse
s {$sel:httpStatus:CreateSimulationApplicationVersionResponse' :: Int
httpStatus = Int
a} :: CreateSimulationApplicationVersionResponse)
instance
Prelude.NFData
CreateSimulationApplicationVersionResponse
where
rnf :: CreateSimulationApplicationVersionResponse -> ()
rnf CreateSimulationApplicationVersionResponse' {Int
Maybe [Source]
Maybe Text
Maybe POSIX
Maybe Environment
Maybe RenderingEngine
Maybe RobotSoftwareSuite
Maybe SimulationSoftwareSuite
httpStatus :: Int
version :: Maybe Text
sources :: Maybe [Source]
simulationSoftwareSuite :: Maybe SimulationSoftwareSuite
robotSoftwareSuite :: Maybe RobotSoftwareSuite
revisionId :: Maybe Text
renderingEngine :: Maybe RenderingEngine
name :: Maybe Text
lastUpdatedAt :: Maybe POSIX
environment :: Maybe Environment
arn :: Maybe Text
$sel:httpStatus:CreateSimulationApplicationVersionResponse' :: CreateSimulationApplicationVersionResponse -> Int
$sel:version:CreateSimulationApplicationVersionResponse' :: CreateSimulationApplicationVersionResponse -> Maybe Text
$sel:sources:CreateSimulationApplicationVersionResponse' :: CreateSimulationApplicationVersionResponse -> Maybe [Source]
$sel:simulationSoftwareSuite:CreateSimulationApplicationVersionResponse' :: CreateSimulationApplicationVersionResponse
-> Maybe SimulationSoftwareSuite
$sel:robotSoftwareSuite:CreateSimulationApplicationVersionResponse' :: CreateSimulationApplicationVersionResponse
-> Maybe RobotSoftwareSuite
$sel:revisionId:CreateSimulationApplicationVersionResponse' :: CreateSimulationApplicationVersionResponse -> Maybe Text
$sel:renderingEngine:CreateSimulationApplicationVersionResponse' :: CreateSimulationApplicationVersionResponse -> Maybe RenderingEngine
$sel:name:CreateSimulationApplicationVersionResponse' :: CreateSimulationApplicationVersionResponse -> Maybe Text
$sel:lastUpdatedAt:CreateSimulationApplicationVersionResponse' :: CreateSimulationApplicationVersionResponse -> Maybe POSIX
$sel:environment:CreateSimulationApplicationVersionResponse' :: CreateSimulationApplicationVersionResponse -> Maybe Environment
$sel:arn:CreateSimulationApplicationVersionResponse' :: CreateSimulationApplicationVersionResponse -> 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 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 Text
version
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus