{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.RobOMaker.Types.SimulationApplicationConfig 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 Amazonka.RobOMaker.Types.LaunchConfig
import Amazonka.RobOMaker.Types.Tool
import Amazonka.RobOMaker.Types.UploadConfiguration
import Amazonka.RobOMaker.Types.WorldConfig
data SimulationApplicationConfig = SimulationApplicationConfig'
{
SimulationApplicationConfig -> Maybe Text
applicationVersion :: Prelude.Maybe Prelude.Text,
SimulationApplicationConfig -> Maybe [Tool]
tools :: Prelude.Maybe [Tool],
SimulationApplicationConfig -> Maybe [UploadConfiguration]
uploadConfigurations :: Prelude.Maybe [UploadConfiguration],
SimulationApplicationConfig -> Maybe Bool
useDefaultTools :: Prelude.Maybe Prelude.Bool,
SimulationApplicationConfig -> Maybe Bool
useDefaultUploadConfigurations :: Prelude.Maybe Prelude.Bool,
SimulationApplicationConfig -> Maybe [WorldConfig]
worldConfigs :: Prelude.Maybe [WorldConfig],
SimulationApplicationConfig -> Text
application :: Prelude.Text,
SimulationApplicationConfig -> LaunchConfig
launchConfig :: LaunchConfig
}
deriving (SimulationApplicationConfig -> SimulationApplicationConfig -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SimulationApplicationConfig -> SimulationApplicationConfig -> Bool
$c/= :: SimulationApplicationConfig -> SimulationApplicationConfig -> Bool
== :: SimulationApplicationConfig -> SimulationApplicationConfig -> Bool
$c== :: SimulationApplicationConfig -> SimulationApplicationConfig -> Bool
Prelude.Eq, ReadPrec [SimulationApplicationConfig]
ReadPrec SimulationApplicationConfig
Int -> ReadS SimulationApplicationConfig
ReadS [SimulationApplicationConfig]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SimulationApplicationConfig]
$creadListPrec :: ReadPrec [SimulationApplicationConfig]
readPrec :: ReadPrec SimulationApplicationConfig
$creadPrec :: ReadPrec SimulationApplicationConfig
readList :: ReadS [SimulationApplicationConfig]
$creadList :: ReadS [SimulationApplicationConfig]
readsPrec :: Int -> ReadS SimulationApplicationConfig
$creadsPrec :: Int -> ReadS SimulationApplicationConfig
Prelude.Read, Int -> SimulationApplicationConfig -> ShowS
[SimulationApplicationConfig] -> ShowS
SimulationApplicationConfig -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SimulationApplicationConfig] -> ShowS
$cshowList :: [SimulationApplicationConfig] -> ShowS
show :: SimulationApplicationConfig -> String
$cshow :: SimulationApplicationConfig -> String
showsPrec :: Int -> SimulationApplicationConfig -> ShowS
$cshowsPrec :: Int -> SimulationApplicationConfig -> ShowS
Prelude.Show, forall x.
Rep SimulationApplicationConfig x -> SimulationApplicationConfig
forall x.
SimulationApplicationConfig -> Rep SimulationApplicationConfig x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep SimulationApplicationConfig x -> SimulationApplicationConfig
$cfrom :: forall x.
SimulationApplicationConfig -> Rep SimulationApplicationConfig x
Prelude.Generic)
newSimulationApplicationConfig ::
Prelude.Text ->
LaunchConfig ->
SimulationApplicationConfig
newSimulationApplicationConfig :: Text -> LaunchConfig -> SimulationApplicationConfig
newSimulationApplicationConfig
Text
pApplication_
LaunchConfig
pLaunchConfig_ =
SimulationApplicationConfig'
{ $sel:applicationVersion:SimulationApplicationConfig' :: Maybe Text
applicationVersion =
forall a. Maybe a
Prelude.Nothing,
$sel:tools:SimulationApplicationConfig' :: Maybe [Tool]
tools = forall a. Maybe a
Prelude.Nothing,
$sel:uploadConfigurations:SimulationApplicationConfig' :: Maybe [UploadConfiguration]
uploadConfigurations = forall a. Maybe a
Prelude.Nothing,
$sel:useDefaultTools:SimulationApplicationConfig' :: Maybe Bool
useDefaultTools = forall a. Maybe a
Prelude.Nothing,
$sel:useDefaultUploadConfigurations:SimulationApplicationConfig' :: Maybe Bool
useDefaultUploadConfigurations =
forall a. Maybe a
Prelude.Nothing,
$sel:worldConfigs:SimulationApplicationConfig' :: Maybe [WorldConfig]
worldConfigs = forall a. Maybe a
Prelude.Nothing,
$sel:application:SimulationApplicationConfig' :: Text
application = Text
pApplication_,
$sel:launchConfig:SimulationApplicationConfig' :: LaunchConfig
launchConfig = LaunchConfig
pLaunchConfig_
}
simulationApplicationConfig_applicationVersion :: Lens.Lens' SimulationApplicationConfig (Prelude.Maybe Prelude.Text)
simulationApplicationConfig_applicationVersion :: Lens' SimulationApplicationConfig (Maybe Text)
simulationApplicationConfig_applicationVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SimulationApplicationConfig' {Maybe Text
applicationVersion :: Maybe Text
$sel:applicationVersion:SimulationApplicationConfig' :: SimulationApplicationConfig -> Maybe Text
applicationVersion} -> Maybe Text
applicationVersion) (\s :: SimulationApplicationConfig
s@SimulationApplicationConfig' {} Maybe Text
a -> SimulationApplicationConfig
s {$sel:applicationVersion:SimulationApplicationConfig' :: Maybe Text
applicationVersion = Maybe Text
a} :: SimulationApplicationConfig)
simulationApplicationConfig_tools :: Lens.Lens' SimulationApplicationConfig (Prelude.Maybe [Tool])
simulationApplicationConfig_tools :: Lens' SimulationApplicationConfig (Maybe [Tool])
simulationApplicationConfig_tools = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SimulationApplicationConfig' {Maybe [Tool]
tools :: Maybe [Tool]
$sel:tools:SimulationApplicationConfig' :: SimulationApplicationConfig -> Maybe [Tool]
tools} -> Maybe [Tool]
tools) (\s :: SimulationApplicationConfig
s@SimulationApplicationConfig' {} Maybe [Tool]
a -> SimulationApplicationConfig
s {$sel:tools:SimulationApplicationConfig' :: Maybe [Tool]
tools = Maybe [Tool]
a} :: SimulationApplicationConfig) 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
simulationApplicationConfig_uploadConfigurations :: Lens.Lens' SimulationApplicationConfig (Prelude.Maybe [UploadConfiguration])
simulationApplicationConfig_uploadConfigurations :: Lens' SimulationApplicationConfig (Maybe [UploadConfiguration])
simulationApplicationConfig_uploadConfigurations = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SimulationApplicationConfig' {Maybe [UploadConfiguration]
uploadConfigurations :: Maybe [UploadConfiguration]
$sel:uploadConfigurations:SimulationApplicationConfig' :: SimulationApplicationConfig -> Maybe [UploadConfiguration]
uploadConfigurations} -> Maybe [UploadConfiguration]
uploadConfigurations) (\s :: SimulationApplicationConfig
s@SimulationApplicationConfig' {} Maybe [UploadConfiguration]
a -> SimulationApplicationConfig
s {$sel:uploadConfigurations:SimulationApplicationConfig' :: Maybe [UploadConfiguration]
uploadConfigurations = Maybe [UploadConfiguration]
a} :: SimulationApplicationConfig) 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
simulationApplicationConfig_useDefaultTools :: Lens.Lens' SimulationApplicationConfig (Prelude.Maybe Prelude.Bool)
simulationApplicationConfig_useDefaultTools :: Lens' SimulationApplicationConfig (Maybe Bool)
simulationApplicationConfig_useDefaultTools = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SimulationApplicationConfig' {Maybe Bool
useDefaultTools :: Maybe Bool
$sel:useDefaultTools:SimulationApplicationConfig' :: SimulationApplicationConfig -> Maybe Bool
useDefaultTools} -> Maybe Bool
useDefaultTools) (\s :: SimulationApplicationConfig
s@SimulationApplicationConfig' {} Maybe Bool
a -> SimulationApplicationConfig
s {$sel:useDefaultTools:SimulationApplicationConfig' :: Maybe Bool
useDefaultTools = Maybe Bool
a} :: SimulationApplicationConfig)
simulationApplicationConfig_useDefaultUploadConfigurations :: Lens.Lens' SimulationApplicationConfig (Prelude.Maybe Prelude.Bool)
simulationApplicationConfig_useDefaultUploadConfigurations :: Lens' SimulationApplicationConfig (Maybe Bool)
simulationApplicationConfig_useDefaultUploadConfigurations = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SimulationApplicationConfig' {Maybe Bool
useDefaultUploadConfigurations :: Maybe Bool
$sel:useDefaultUploadConfigurations:SimulationApplicationConfig' :: SimulationApplicationConfig -> Maybe Bool
useDefaultUploadConfigurations} -> Maybe Bool
useDefaultUploadConfigurations) (\s :: SimulationApplicationConfig
s@SimulationApplicationConfig' {} Maybe Bool
a -> SimulationApplicationConfig
s {$sel:useDefaultUploadConfigurations:SimulationApplicationConfig' :: Maybe Bool
useDefaultUploadConfigurations = Maybe Bool
a} :: SimulationApplicationConfig)
simulationApplicationConfig_worldConfigs :: Lens.Lens' SimulationApplicationConfig (Prelude.Maybe [WorldConfig])
simulationApplicationConfig_worldConfigs :: Lens' SimulationApplicationConfig (Maybe [WorldConfig])
simulationApplicationConfig_worldConfigs = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SimulationApplicationConfig' {Maybe [WorldConfig]
worldConfigs :: Maybe [WorldConfig]
$sel:worldConfigs:SimulationApplicationConfig' :: SimulationApplicationConfig -> Maybe [WorldConfig]
worldConfigs} -> Maybe [WorldConfig]
worldConfigs) (\s :: SimulationApplicationConfig
s@SimulationApplicationConfig' {} Maybe [WorldConfig]
a -> SimulationApplicationConfig
s {$sel:worldConfigs:SimulationApplicationConfig' :: Maybe [WorldConfig]
worldConfigs = Maybe [WorldConfig]
a} :: SimulationApplicationConfig) 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
simulationApplicationConfig_application :: Lens.Lens' SimulationApplicationConfig Prelude.Text
simulationApplicationConfig_application :: Lens' SimulationApplicationConfig Text
simulationApplicationConfig_application = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SimulationApplicationConfig' {Text
application :: Text
$sel:application:SimulationApplicationConfig' :: SimulationApplicationConfig -> Text
application} -> Text
application) (\s :: SimulationApplicationConfig
s@SimulationApplicationConfig' {} Text
a -> SimulationApplicationConfig
s {$sel:application:SimulationApplicationConfig' :: Text
application = Text
a} :: SimulationApplicationConfig)
simulationApplicationConfig_launchConfig :: Lens.Lens' SimulationApplicationConfig LaunchConfig
simulationApplicationConfig_launchConfig :: Lens' SimulationApplicationConfig LaunchConfig
simulationApplicationConfig_launchConfig = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SimulationApplicationConfig' {LaunchConfig
launchConfig :: LaunchConfig
$sel:launchConfig:SimulationApplicationConfig' :: SimulationApplicationConfig -> LaunchConfig
launchConfig} -> LaunchConfig
launchConfig) (\s :: SimulationApplicationConfig
s@SimulationApplicationConfig' {} LaunchConfig
a -> SimulationApplicationConfig
s {$sel:launchConfig:SimulationApplicationConfig' :: LaunchConfig
launchConfig = LaunchConfig
a} :: SimulationApplicationConfig)
instance Data.FromJSON SimulationApplicationConfig where
parseJSON :: Value -> Parser SimulationApplicationConfig
parseJSON =
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
String
"SimulationApplicationConfig"
( \Object
x ->
Maybe Text
-> Maybe [Tool]
-> Maybe [UploadConfiguration]
-> Maybe Bool
-> Maybe Bool
-> Maybe [WorldConfig]
-> Text
-> LaunchConfig
-> SimulationApplicationConfig
SimulationApplicationConfig'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"applicationVersion")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"tools" forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"uploadConfigurations"
forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"useDefaultTools")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"useDefaultUploadConfigurations")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"worldConfigs" forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"application")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"launchConfig")
)
instance Prelude.Hashable SimulationApplicationConfig where
hashWithSalt :: Int -> SimulationApplicationConfig -> Int
hashWithSalt Int
_salt SimulationApplicationConfig' {Maybe Bool
Maybe [Tool]
Maybe [UploadConfiguration]
Maybe [WorldConfig]
Maybe Text
Text
LaunchConfig
launchConfig :: LaunchConfig
application :: Text
worldConfigs :: Maybe [WorldConfig]
useDefaultUploadConfigurations :: Maybe Bool
useDefaultTools :: Maybe Bool
uploadConfigurations :: Maybe [UploadConfiguration]
tools :: Maybe [Tool]
applicationVersion :: Maybe Text
$sel:launchConfig:SimulationApplicationConfig' :: SimulationApplicationConfig -> LaunchConfig
$sel:application:SimulationApplicationConfig' :: SimulationApplicationConfig -> Text
$sel:worldConfigs:SimulationApplicationConfig' :: SimulationApplicationConfig -> Maybe [WorldConfig]
$sel:useDefaultUploadConfigurations:SimulationApplicationConfig' :: SimulationApplicationConfig -> Maybe Bool
$sel:useDefaultTools:SimulationApplicationConfig' :: SimulationApplicationConfig -> Maybe Bool
$sel:uploadConfigurations:SimulationApplicationConfig' :: SimulationApplicationConfig -> Maybe [UploadConfiguration]
$sel:tools:SimulationApplicationConfig' :: SimulationApplicationConfig -> Maybe [Tool]
$sel:applicationVersion:SimulationApplicationConfig' :: SimulationApplicationConfig -> 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` Maybe [Tool]
tools
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [UploadConfiguration]
uploadConfigurations
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
useDefaultTools
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
useDefaultUploadConfigurations
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [WorldConfig]
worldConfigs
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
application
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` LaunchConfig
launchConfig
instance Prelude.NFData SimulationApplicationConfig where
rnf :: SimulationApplicationConfig -> ()
rnf SimulationApplicationConfig' {Maybe Bool
Maybe [Tool]
Maybe [UploadConfiguration]
Maybe [WorldConfig]
Maybe Text
Text
LaunchConfig
launchConfig :: LaunchConfig
application :: Text
worldConfigs :: Maybe [WorldConfig]
useDefaultUploadConfigurations :: Maybe Bool
useDefaultTools :: Maybe Bool
uploadConfigurations :: Maybe [UploadConfiguration]
tools :: Maybe [Tool]
applicationVersion :: Maybe Text
$sel:launchConfig:SimulationApplicationConfig' :: SimulationApplicationConfig -> LaunchConfig
$sel:application:SimulationApplicationConfig' :: SimulationApplicationConfig -> Text
$sel:worldConfigs:SimulationApplicationConfig' :: SimulationApplicationConfig -> Maybe [WorldConfig]
$sel:useDefaultUploadConfigurations:SimulationApplicationConfig' :: SimulationApplicationConfig -> Maybe Bool
$sel:useDefaultTools:SimulationApplicationConfig' :: SimulationApplicationConfig -> Maybe Bool
$sel:uploadConfigurations:SimulationApplicationConfig' :: SimulationApplicationConfig -> Maybe [UploadConfiguration]
$sel:tools:SimulationApplicationConfig' :: SimulationApplicationConfig -> Maybe [Tool]
$sel:applicationVersion:SimulationApplicationConfig' :: SimulationApplicationConfig -> 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 Maybe [Tool]
tools
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [UploadConfiguration]
uploadConfigurations
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
useDefaultTools
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
useDefaultUploadConfigurations
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [WorldConfig]
worldConfigs
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
application
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf LaunchConfig
launchConfig
instance Data.ToJSON SimulationApplicationConfig where
toJSON :: SimulationApplicationConfig -> Value
toJSON SimulationApplicationConfig' {Maybe Bool
Maybe [Tool]
Maybe [UploadConfiguration]
Maybe [WorldConfig]
Maybe Text
Text
LaunchConfig
launchConfig :: LaunchConfig
application :: Text
worldConfigs :: Maybe [WorldConfig]
useDefaultUploadConfigurations :: Maybe Bool
useDefaultTools :: Maybe Bool
uploadConfigurations :: Maybe [UploadConfiguration]
tools :: Maybe [Tool]
applicationVersion :: Maybe Text
$sel:launchConfig:SimulationApplicationConfig' :: SimulationApplicationConfig -> LaunchConfig
$sel:application:SimulationApplicationConfig' :: SimulationApplicationConfig -> Text
$sel:worldConfigs:SimulationApplicationConfig' :: SimulationApplicationConfig -> Maybe [WorldConfig]
$sel:useDefaultUploadConfigurations:SimulationApplicationConfig' :: SimulationApplicationConfig -> Maybe Bool
$sel:useDefaultTools:SimulationApplicationConfig' :: SimulationApplicationConfig -> Maybe Bool
$sel:uploadConfigurations:SimulationApplicationConfig' :: SimulationApplicationConfig -> Maybe [UploadConfiguration]
$sel:tools:SimulationApplicationConfig' :: SimulationApplicationConfig -> Maybe [Tool]
$sel:applicationVersion:SimulationApplicationConfig' :: SimulationApplicationConfig -> 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,
(Key
"tools" 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 [Tool]
tools,
(Key
"uploadConfigurations" 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 [UploadConfiguration]
uploadConfigurations,
(Key
"useDefaultTools" 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 Bool
useDefaultTools,
(Key
"useDefaultUploadConfigurations" 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 Bool
useDefaultUploadConfigurations,
(Key
"worldConfigs" 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 [WorldConfig]
worldConfigs,
forall a. a -> Maybe a
Prelude.Just (Key
"application" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
application),
forall a. a -> Maybe a
Prelude.Just (Key
"launchConfig" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= LaunchConfig
launchConfig)
]
)