module Stratosphere.Batch.ComputeEnvironment.LaunchTemplateSpecificationOverrideProperty (
LaunchTemplateSpecificationOverrideProperty(..),
mkLaunchTemplateSpecificationOverrideProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data LaunchTemplateSpecificationOverrideProperty
=
LaunchTemplateSpecificationOverrideProperty {LaunchTemplateSpecificationOverrideProperty -> ()
haddock_workaround_ :: (),
LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
launchTemplateId :: (Prelude.Maybe (Value Prelude.Text)),
LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
launchTemplateName :: (Prelude.Maybe (Value Prelude.Text)),
LaunchTemplateSpecificationOverrideProperty
-> Maybe (ValueList Text)
targetInstanceTypes :: (Prelude.Maybe (ValueList Prelude.Text)),
LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
userdataType :: (Prelude.Maybe (Value Prelude.Text)),
LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
version :: (Prelude.Maybe (Value Prelude.Text))}
deriving stock (LaunchTemplateSpecificationOverrideProperty
-> LaunchTemplateSpecificationOverrideProperty -> Bool
(LaunchTemplateSpecificationOverrideProperty
-> LaunchTemplateSpecificationOverrideProperty -> Bool)
-> (LaunchTemplateSpecificationOverrideProperty
-> LaunchTemplateSpecificationOverrideProperty -> Bool)
-> Eq LaunchTemplateSpecificationOverrideProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LaunchTemplateSpecificationOverrideProperty
-> LaunchTemplateSpecificationOverrideProperty -> Bool
== :: LaunchTemplateSpecificationOverrideProperty
-> LaunchTemplateSpecificationOverrideProperty -> Bool
$c/= :: LaunchTemplateSpecificationOverrideProperty
-> LaunchTemplateSpecificationOverrideProperty -> Bool
/= :: LaunchTemplateSpecificationOverrideProperty
-> LaunchTemplateSpecificationOverrideProperty -> Bool
Prelude.Eq, Int -> LaunchTemplateSpecificationOverrideProperty -> ShowS
[LaunchTemplateSpecificationOverrideProperty] -> ShowS
LaunchTemplateSpecificationOverrideProperty -> String
(Int -> LaunchTemplateSpecificationOverrideProperty -> ShowS)
-> (LaunchTemplateSpecificationOverrideProperty -> String)
-> ([LaunchTemplateSpecificationOverrideProperty] -> ShowS)
-> Show LaunchTemplateSpecificationOverrideProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> LaunchTemplateSpecificationOverrideProperty -> ShowS
showsPrec :: Int -> LaunchTemplateSpecificationOverrideProperty -> ShowS
$cshow :: LaunchTemplateSpecificationOverrideProperty -> String
show :: LaunchTemplateSpecificationOverrideProperty -> String
$cshowList :: [LaunchTemplateSpecificationOverrideProperty] -> ShowS
showList :: [LaunchTemplateSpecificationOverrideProperty] -> ShowS
Prelude.Show)
mkLaunchTemplateSpecificationOverrideProperty ::
LaunchTemplateSpecificationOverrideProperty
mkLaunchTemplateSpecificationOverrideProperty :: LaunchTemplateSpecificationOverrideProperty
mkLaunchTemplateSpecificationOverrideProperty
= LaunchTemplateSpecificationOverrideProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), launchTemplateId :: Maybe (Value Text)
launchTemplateId = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
launchTemplateName :: Maybe (Value Text)
launchTemplateName = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
targetInstanceTypes :: Maybe (ValueList Text)
targetInstanceTypes = Maybe (ValueList Text)
forall a. Maybe a
Prelude.Nothing,
userdataType :: Maybe (Value Text)
userdataType = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, version :: Maybe (Value Text)
version = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties LaunchTemplateSpecificationOverrideProperty where
toResourceProperties :: LaunchTemplateSpecificationOverrideProperty -> ResourceProperties
toResourceProperties
LaunchTemplateSpecificationOverrideProperty {Maybe (ValueList Text)
Maybe (Value Text)
()
haddock_workaround_ :: LaunchTemplateSpecificationOverrideProperty -> ()
launchTemplateId :: LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
launchTemplateName :: LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
targetInstanceTypes :: LaunchTemplateSpecificationOverrideProperty
-> Maybe (ValueList Text)
userdataType :: LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
version :: LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
launchTemplateId :: Maybe (Value Text)
launchTemplateName :: Maybe (Value Text)
targetInstanceTypes :: Maybe (ValueList Text)
userdataType :: Maybe (Value Text)
version :: Maybe (Value Text)
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::Batch::ComputeEnvironment.LaunchTemplateSpecificationOverride",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"LaunchTemplateId" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
launchTemplateId,
Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"LaunchTemplateName" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
launchTemplateName,
Key -> ValueList Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"TargetInstanceTypes" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
targetInstanceTypes,
Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"UserdataType" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
userdataType,
Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Version" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
version])}
instance JSON.ToJSON LaunchTemplateSpecificationOverrideProperty where
toJSON :: LaunchTemplateSpecificationOverrideProperty -> Value
toJSON LaunchTemplateSpecificationOverrideProperty {Maybe (ValueList Text)
Maybe (Value Text)
()
haddock_workaround_ :: LaunchTemplateSpecificationOverrideProperty -> ()
launchTemplateId :: LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
launchTemplateName :: LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
targetInstanceTypes :: LaunchTemplateSpecificationOverrideProperty
-> Maybe (ValueList Text)
userdataType :: LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
version :: LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
launchTemplateId :: Maybe (Value Text)
launchTemplateName :: Maybe (Value Text)
targetInstanceTypes :: Maybe (ValueList Text)
userdataType :: Maybe (Value Text)
version :: Maybe (Value Text)
..}
= [(Key, Value)] -> Value
JSON.object
([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"LaunchTemplateId" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
launchTemplateId,
Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"LaunchTemplateName" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
launchTemplateName,
Key -> ValueList Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"TargetInstanceTypes" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
targetInstanceTypes,
Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"UserdataType" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
userdataType,
Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Version" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
version]))
instance Property "LaunchTemplateId" LaunchTemplateSpecificationOverrideProperty where
type PropertyType "LaunchTemplateId" LaunchTemplateSpecificationOverrideProperty = Value Prelude.Text
set :: PropertyType
"LaunchTemplateId" LaunchTemplateSpecificationOverrideProperty
-> LaunchTemplateSpecificationOverrideProperty
-> LaunchTemplateSpecificationOverrideProperty
set PropertyType
"LaunchTemplateId" LaunchTemplateSpecificationOverrideProperty
newValue LaunchTemplateSpecificationOverrideProperty {Maybe (ValueList Text)
Maybe (Value Text)
()
haddock_workaround_ :: LaunchTemplateSpecificationOverrideProperty -> ()
launchTemplateId :: LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
launchTemplateName :: LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
targetInstanceTypes :: LaunchTemplateSpecificationOverrideProperty
-> Maybe (ValueList Text)
userdataType :: LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
version :: LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
launchTemplateId :: Maybe (Value Text)
launchTemplateName :: Maybe (Value Text)
targetInstanceTypes :: Maybe (ValueList Text)
userdataType :: Maybe (Value Text)
version :: Maybe (Value Text)
..}
= LaunchTemplateSpecificationOverrideProperty
{launchTemplateId :: Maybe (Value Text)
launchTemplateId = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
"LaunchTemplateId" LaunchTemplateSpecificationOverrideProperty
Value Text
newValue, Maybe (ValueList Text)
Maybe (Value Text)
()
haddock_workaround_ :: ()
launchTemplateName :: Maybe (Value Text)
targetInstanceTypes :: Maybe (ValueList Text)
userdataType :: Maybe (Value Text)
version :: Maybe (Value Text)
haddock_workaround_ :: ()
launchTemplateName :: Maybe (Value Text)
targetInstanceTypes :: Maybe (ValueList Text)
userdataType :: Maybe (Value Text)
version :: Maybe (Value Text)
..}
instance Property "LaunchTemplateName" LaunchTemplateSpecificationOverrideProperty where
type PropertyType "LaunchTemplateName" LaunchTemplateSpecificationOverrideProperty = Value Prelude.Text
set :: PropertyType
"LaunchTemplateName" LaunchTemplateSpecificationOverrideProperty
-> LaunchTemplateSpecificationOverrideProperty
-> LaunchTemplateSpecificationOverrideProperty
set PropertyType
"LaunchTemplateName" LaunchTemplateSpecificationOverrideProperty
newValue LaunchTemplateSpecificationOverrideProperty {Maybe (ValueList Text)
Maybe (Value Text)
()
haddock_workaround_ :: LaunchTemplateSpecificationOverrideProperty -> ()
launchTemplateId :: LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
launchTemplateName :: LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
targetInstanceTypes :: LaunchTemplateSpecificationOverrideProperty
-> Maybe (ValueList Text)
userdataType :: LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
version :: LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
launchTemplateId :: Maybe (Value Text)
launchTemplateName :: Maybe (Value Text)
targetInstanceTypes :: Maybe (ValueList Text)
userdataType :: Maybe (Value Text)
version :: Maybe (Value Text)
..}
= LaunchTemplateSpecificationOverrideProperty
{launchTemplateName :: Maybe (Value Text)
launchTemplateName = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
"LaunchTemplateName" LaunchTemplateSpecificationOverrideProperty
Value Text
newValue, Maybe (ValueList Text)
Maybe (Value Text)
()
haddock_workaround_ :: ()
launchTemplateId :: Maybe (Value Text)
targetInstanceTypes :: Maybe (ValueList Text)
userdataType :: Maybe (Value Text)
version :: Maybe (Value Text)
haddock_workaround_ :: ()
launchTemplateId :: Maybe (Value Text)
targetInstanceTypes :: Maybe (ValueList Text)
userdataType :: Maybe (Value Text)
version :: Maybe (Value Text)
..}
instance Property "TargetInstanceTypes" LaunchTemplateSpecificationOverrideProperty where
type PropertyType "TargetInstanceTypes" LaunchTemplateSpecificationOverrideProperty = ValueList Prelude.Text
set :: PropertyType
"TargetInstanceTypes" LaunchTemplateSpecificationOverrideProperty
-> LaunchTemplateSpecificationOverrideProperty
-> LaunchTemplateSpecificationOverrideProperty
set PropertyType
"TargetInstanceTypes" LaunchTemplateSpecificationOverrideProperty
newValue LaunchTemplateSpecificationOverrideProperty {Maybe (ValueList Text)
Maybe (Value Text)
()
haddock_workaround_ :: LaunchTemplateSpecificationOverrideProperty -> ()
launchTemplateId :: LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
launchTemplateName :: LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
targetInstanceTypes :: LaunchTemplateSpecificationOverrideProperty
-> Maybe (ValueList Text)
userdataType :: LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
version :: LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
launchTemplateId :: Maybe (Value Text)
launchTemplateName :: Maybe (Value Text)
targetInstanceTypes :: Maybe (ValueList Text)
userdataType :: Maybe (Value Text)
version :: Maybe (Value Text)
..}
= LaunchTemplateSpecificationOverrideProperty
{targetInstanceTypes :: Maybe (ValueList Text)
targetInstanceTypes = ValueList Text -> Maybe (ValueList Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
"TargetInstanceTypes" LaunchTemplateSpecificationOverrideProperty
ValueList Text
newValue, Maybe (Value Text)
()
haddock_workaround_ :: ()
launchTemplateId :: Maybe (Value Text)
launchTemplateName :: Maybe (Value Text)
userdataType :: Maybe (Value Text)
version :: Maybe (Value Text)
haddock_workaround_ :: ()
launchTemplateId :: Maybe (Value Text)
launchTemplateName :: Maybe (Value Text)
userdataType :: Maybe (Value Text)
version :: Maybe (Value Text)
..}
instance Property "UserdataType" LaunchTemplateSpecificationOverrideProperty where
type PropertyType "UserdataType" LaunchTemplateSpecificationOverrideProperty = Value Prelude.Text
set :: PropertyType
"UserdataType" LaunchTemplateSpecificationOverrideProperty
-> LaunchTemplateSpecificationOverrideProperty
-> LaunchTemplateSpecificationOverrideProperty
set PropertyType
"UserdataType" LaunchTemplateSpecificationOverrideProperty
newValue LaunchTemplateSpecificationOverrideProperty {Maybe (ValueList Text)
Maybe (Value Text)
()
haddock_workaround_ :: LaunchTemplateSpecificationOverrideProperty -> ()
launchTemplateId :: LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
launchTemplateName :: LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
targetInstanceTypes :: LaunchTemplateSpecificationOverrideProperty
-> Maybe (ValueList Text)
userdataType :: LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
version :: LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
launchTemplateId :: Maybe (Value Text)
launchTemplateName :: Maybe (Value Text)
targetInstanceTypes :: Maybe (ValueList Text)
userdataType :: Maybe (Value Text)
version :: Maybe (Value Text)
..}
= LaunchTemplateSpecificationOverrideProperty
{userdataType :: Maybe (Value Text)
userdataType = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
"UserdataType" LaunchTemplateSpecificationOverrideProperty
Value Text
newValue, Maybe (ValueList Text)
Maybe (Value Text)
()
haddock_workaround_ :: ()
launchTemplateId :: Maybe (Value Text)
launchTemplateName :: Maybe (Value Text)
targetInstanceTypes :: Maybe (ValueList Text)
version :: Maybe (Value Text)
haddock_workaround_ :: ()
launchTemplateId :: Maybe (Value Text)
launchTemplateName :: Maybe (Value Text)
targetInstanceTypes :: Maybe (ValueList Text)
version :: Maybe (Value Text)
..}
instance Property "Version" LaunchTemplateSpecificationOverrideProperty where
type PropertyType "Version" LaunchTemplateSpecificationOverrideProperty = Value Prelude.Text
set :: PropertyType "Version" LaunchTemplateSpecificationOverrideProperty
-> LaunchTemplateSpecificationOverrideProperty
-> LaunchTemplateSpecificationOverrideProperty
set PropertyType "Version" LaunchTemplateSpecificationOverrideProperty
newValue LaunchTemplateSpecificationOverrideProperty {Maybe (ValueList Text)
Maybe (Value Text)
()
haddock_workaround_ :: LaunchTemplateSpecificationOverrideProperty -> ()
launchTemplateId :: LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
launchTemplateName :: LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
targetInstanceTypes :: LaunchTemplateSpecificationOverrideProperty
-> Maybe (ValueList Text)
userdataType :: LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
version :: LaunchTemplateSpecificationOverrideProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
launchTemplateId :: Maybe (Value Text)
launchTemplateName :: Maybe (Value Text)
targetInstanceTypes :: Maybe (ValueList Text)
userdataType :: Maybe (Value Text)
version :: Maybe (Value Text)
..}
= LaunchTemplateSpecificationOverrideProperty
{version :: Maybe (Value Text)
version = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Version" LaunchTemplateSpecificationOverrideProperty
Value Text
newValue, Maybe (ValueList Text)
Maybe (Value Text)
()
haddock_workaround_ :: ()
launchTemplateId :: Maybe (Value Text)
launchTemplateName :: Maybe (Value Text)
targetInstanceTypes :: Maybe (ValueList Text)
userdataType :: Maybe (Value Text)
haddock_workaround_ :: ()
launchTemplateId :: Maybe (Value Text)
launchTemplateName :: Maybe (Value Text)
targetInstanceTypes :: Maybe (ValueList Text)
userdataType :: Maybe (Value Text)
..}