module Stratosphere.Deadline.Fleet.ServiceManagedEc2FleetConfigurationProperty (
module Exports, ServiceManagedEc2FleetConfigurationProperty(..),
mkServiceManagedEc2FleetConfigurationProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.Deadline.Fleet.ServiceManagedEc2InstanceCapabilitiesProperty as Exports
import {-# SOURCE #-} Stratosphere.Deadline.Fleet.ServiceManagedEc2InstanceMarketOptionsProperty as Exports
import {-# SOURCE #-} Stratosphere.Deadline.Fleet.VpcConfigurationProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data ServiceManagedEc2FleetConfigurationProperty
=
ServiceManagedEc2FleetConfigurationProperty {ServiceManagedEc2FleetConfigurationProperty -> ()
haddock_workaround_ :: (),
ServiceManagedEc2FleetConfigurationProperty
-> ServiceManagedEc2InstanceCapabilitiesProperty
instanceCapabilities :: ServiceManagedEc2InstanceCapabilitiesProperty,
ServiceManagedEc2FleetConfigurationProperty
-> ServiceManagedEc2InstanceMarketOptionsProperty
instanceMarketOptions :: ServiceManagedEc2InstanceMarketOptionsProperty,
ServiceManagedEc2FleetConfigurationProperty -> Maybe (Value Text)
storageProfileId :: (Prelude.Maybe (Value Prelude.Text)),
ServiceManagedEc2FleetConfigurationProperty
-> Maybe VpcConfigurationProperty
vpcConfiguration :: (Prelude.Maybe VpcConfigurationProperty)}
deriving stock (ServiceManagedEc2FleetConfigurationProperty
-> ServiceManagedEc2FleetConfigurationProperty -> Bool
(ServiceManagedEc2FleetConfigurationProperty
-> ServiceManagedEc2FleetConfigurationProperty -> Bool)
-> (ServiceManagedEc2FleetConfigurationProperty
-> ServiceManagedEc2FleetConfigurationProperty -> Bool)
-> Eq ServiceManagedEc2FleetConfigurationProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ServiceManagedEc2FleetConfigurationProperty
-> ServiceManagedEc2FleetConfigurationProperty -> Bool
== :: ServiceManagedEc2FleetConfigurationProperty
-> ServiceManagedEc2FleetConfigurationProperty -> Bool
$c/= :: ServiceManagedEc2FleetConfigurationProperty
-> ServiceManagedEc2FleetConfigurationProperty -> Bool
/= :: ServiceManagedEc2FleetConfigurationProperty
-> ServiceManagedEc2FleetConfigurationProperty -> Bool
Prelude.Eq, Int -> ServiceManagedEc2FleetConfigurationProperty -> ShowS
[ServiceManagedEc2FleetConfigurationProperty] -> ShowS
ServiceManagedEc2FleetConfigurationProperty -> String
(Int -> ServiceManagedEc2FleetConfigurationProperty -> ShowS)
-> (ServiceManagedEc2FleetConfigurationProperty -> String)
-> ([ServiceManagedEc2FleetConfigurationProperty] -> ShowS)
-> Show ServiceManagedEc2FleetConfigurationProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ServiceManagedEc2FleetConfigurationProperty -> ShowS
showsPrec :: Int -> ServiceManagedEc2FleetConfigurationProperty -> ShowS
$cshow :: ServiceManagedEc2FleetConfigurationProperty -> String
show :: ServiceManagedEc2FleetConfigurationProperty -> String
$cshowList :: [ServiceManagedEc2FleetConfigurationProperty] -> ShowS
showList :: [ServiceManagedEc2FleetConfigurationProperty] -> ShowS
Prelude.Show)
mkServiceManagedEc2FleetConfigurationProperty ::
ServiceManagedEc2InstanceCapabilitiesProperty
-> ServiceManagedEc2InstanceMarketOptionsProperty
-> ServiceManagedEc2FleetConfigurationProperty
mkServiceManagedEc2FleetConfigurationProperty :: ServiceManagedEc2InstanceCapabilitiesProperty
-> ServiceManagedEc2InstanceMarketOptionsProperty
-> ServiceManagedEc2FleetConfigurationProperty
mkServiceManagedEc2FleetConfigurationProperty
ServiceManagedEc2InstanceCapabilitiesProperty
instanceCapabilities
ServiceManagedEc2InstanceMarketOptionsProperty
instanceMarketOptions
= ServiceManagedEc2FleetConfigurationProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (),
instanceCapabilities :: ServiceManagedEc2InstanceCapabilitiesProperty
instanceCapabilities = ServiceManagedEc2InstanceCapabilitiesProperty
instanceCapabilities,
instanceMarketOptions :: ServiceManagedEc2InstanceMarketOptionsProperty
instanceMarketOptions = ServiceManagedEc2InstanceMarketOptionsProperty
instanceMarketOptions,
storageProfileId :: Maybe (Value Text)
storageProfileId = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
vpcConfiguration :: Maybe VpcConfigurationProperty
vpcConfiguration = Maybe VpcConfigurationProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties ServiceManagedEc2FleetConfigurationProperty where
toResourceProperties :: ServiceManagedEc2FleetConfigurationProperty -> ResourceProperties
toResourceProperties
ServiceManagedEc2FleetConfigurationProperty {Maybe (Value Text)
Maybe VpcConfigurationProperty
()
ServiceManagedEc2InstanceMarketOptionsProperty
ServiceManagedEc2InstanceCapabilitiesProperty
haddock_workaround_ :: ServiceManagedEc2FleetConfigurationProperty -> ()
instanceCapabilities :: ServiceManagedEc2FleetConfigurationProperty
-> ServiceManagedEc2InstanceCapabilitiesProperty
instanceMarketOptions :: ServiceManagedEc2FleetConfigurationProperty
-> ServiceManagedEc2InstanceMarketOptionsProperty
storageProfileId :: ServiceManagedEc2FleetConfigurationProperty -> Maybe (Value Text)
vpcConfiguration :: ServiceManagedEc2FleetConfigurationProperty
-> Maybe VpcConfigurationProperty
haddock_workaround_ :: ()
instanceCapabilities :: ServiceManagedEc2InstanceCapabilitiesProperty
instanceMarketOptions :: ServiceManagedEc2InstanceMarketOptionsProperty
storageProfileId :: Maybe (Value Text)
vpcConfiguration :: Maybe VpcConfigurationProperty
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::Deadline::Fleet.ServiceManagedEc2FleetConfiguration",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
[Key
"InstanceCapabilities" Key
-> ServiceManagedEc2InstanceCapabilitiesProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ServiceManagedEc2InstanceCapabilitiesProperty
instanceCapabilities,
Key
"InstanceMarketOptions" Key
-> ServiceManagedEc2InstanceMarketOptionsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ServiceManagedEc2InstanceMarketOptionsProperty
instanceMarketOptions]
([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
"StorageProfileId" (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)
storageProfileId,
Key -> VpcConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"VpcConfiguration" (VpcConfigurationProperty -> (Key, Value))
-> Maybe VpcConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe VpcConfigurationProperty
vpcConfiguration]))}
instance JSON.ToJSON ServiceManagedEc2FleetConfigurationProperty where
toJSON :: ServiceManagedEc2FleetConfigurationProperty -> Value
toJSON ServiceManagedEc2FleetConfigurationProperty {Maybe (Value Text)
Maybe VpcConfigurationProperty
()
ServiceManagedEc2InstanceMarketOptionsProperty
ServiceManagedEc2InstanceCapabilitiesProperty
haddock_workaround_ :: ServiceManagedEc2FleetConfigurationProperty -> ()
instanceCapabilities :: ServiceManagedEc2FleetConfigurationProperty
-> ServiceManagedEc2InstanceCapabilitiesProperty
instanceMarketOptions :: ServiceManagedEc2FleetConfigurationProperty
-> ServiceManagedEc2InstanceMarketOptionsProperty
storageProfileId :: ServiceManagedEc2FleetConfigurationProperty -> Maybe (Value Text)
vpcConfiguration :: ServiceManagedEc2FleetConfigurationProperty
-> Maybe VpcConfigurationProperty
haddock_workaround_ :: ()
instanceCapabilities :: ServiceManagedEc2InstanceCapabilitiesProperty
instanceMarketOptions :: ServiceManagedEc2InstanceMarketOptionsProperty
storageProfileId :: Maybe (Value Text)
vpcConfiguration :: Maybe VpcConfigurationProperty
..}
= [(Key, Value)] -> Value
JSON.object
([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
[Key
"InstanceCapabilities" Key
-> ServiceManagedEc2InstanceCapabilitiesProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ServiceManagedEc2InstanceCapabilitiesProperty
instanceCapabilities,
Key
"InstanceMarketOptions" Key
-> ServiceManagedEc2InstanceMarketOptionsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ServiceManagedEc2InstanceMarketOptionsProperty
instanceMarketOptions]
([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
"StorageProfileId" (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)
storageProfileId,
Key -> VpcConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"VpcConfiguration" (VpcConfigurationProperty -> (Key, Value))
-> Maybe VpcConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe VpcConfigurationProperty
vpcConfiguration])))
instance Property "InstanceCapabilities" ServiceManagedEc2FleetConfigurationProperty where
type PropertyType "InstanceCapabilities" ServiceManagedEc2FleetConfigurationProperty = ServiceManagedEc2InstanceCapabilitiesProperty
set :: PropertyType
"InstanceCapabilities" ServiceManagedEc2FleetConfigurationProperty
-> ServiceManagedEc2FleetConfigurationProperty
-> ServiceManagedEc2FleetConfigurationProperty
set PropertyType
"InstanceCapabilities" ServiceManagedEc2FleetConfigurationProperty
newValue ServiceManagedEc2FleetConfigurationProperty {Maybe (Value Text)
Maybe VpcConfigurationProperty
()
ServiceManagedEc2InstanceMarketOptionsProperty
ServiceManagedEc2InstanceCapabilitiesProperty
haddock_workaround_ :: ServiceManagedEc2FleetConfigurationProperty -> ()
instanceCapabilities :: ServiceManagedEc2FleetConfigurationProperty
-> ServiceManagedEc2InstanceCapabilitiesProperty
instanceMarketOptions :: ServiceManagedEc2FleetConfigurationProperty
-> ServiceManagedEc2InstanceMarketOptionsProperty
storageProfileId :: ServiceManagedEc2FleetConfigurationProperty -> Maybe (Value Text)
vpcConfiguration :: ServiceManagedEc2FleetConfigurationProperty
-> Maybe VpcConfigurationProperty
haddock_workaround_ :: ()
instanceCapabilities :: ServiceManagedEc2InstanceCapabilitiesProperty
instanceMarketOptions :: ServiceManagedEc2InstanceMarketOptionsProperty
storageProfileId :: Maybe (Value Text)
vpcConfiguration :: Maybe VpcConfigurationProperty
..}
= ServiceManagedEc2FleetConfigurationProperty
{instanceCapabilities :: ServiceManagedEc2InstanceCapabilitiesProperty
instanceCapabilities = PropertyType
"InstanceCapabilities" ServiceManagedEc2FleetConfigurationProperty
ServiceManagedEc2InstanceCapabilitiesProperty
newValue, Maybe (Value Text)
Maybe VpcConfigurationProperty
()
ServiceManagedEc2InstanceMarketOptionsProperty
haddock_workaround_ :: ()
instanceMarketOptions :: ServiceManagedEc2InstanceMarketOptionsProperty
storageProfileId :: Maybe (Value Text)
vpcConfiguration :: Maybe VpcConfigurationProperty
haddock_workaround_ :: ()
instanceMarketOptions :: ServiceManagedEc2InstanceMarketOptionsProperty
storageProfileId :: Maybe (Value Text)
vpcConfiguration :: Maybe VpcConfigurationProperty
..}
instance Property "InstanceMarketOptions" ServiceManagedEc2FleetConfigurationProperty where
type PropertyType "InstanceMarketOptions" ServiceManagedEc2FleetConfigurationProperty = ServiceManagedEc2InstanceMarketOptionsProperty
set :: PropertyType
"InstanceMarketOptions" ServiceManagedEc2FleetConfigurationProperty
-> ServiceManagedEc2FleetConfigurationProperty
-> ServiceManagedEc2FleetConfigurationProperty
set PropertyType
"InstanceMarketOptions" ServiceManagedEc2FleetConfigurationProperty
newValue ServiceManagedEc2FleetConfigurationProperty {Maybe (Value Text)
Maybe VpcConfigurationProperty
()
ServiceManagedEc2InstanceMarketOptionsProperty
ServiceManagedEc2InstanceCapabilitiesProperty
haddock_workaround_ :: ServiceManagedEc2FleetConfigurationProperty -> ()
instanceCapabilities :: ServiceManagedEc2FleetConfigurationProperty
-> ServiceManagedEc2InstanceCapabilitiesProperty
instanceMarketOptions :: ServiceManagedEc2FleetConfigurationProperty
-> ServiceManagedEc2InstanceMarketOptionsProperty
storageProfileId :: ServiceManagedEc2FleetConfigurationProperty -> Maybe (Value Text)
vpcConfiguration :: ServiceManagedEc2FleetConfigurationProperty
-> Maybe VpcConfigurationProperty
haddock_workaround_ :: ()
instanceCapabilities :: ServiceManagedEc2InstanceCapabilitiesProperty
instanceMarketOptions :: ServiceManagedEc2InstanceMarketOptionsProperty
storageProfileId :: Maybe (Value Text)
vpcConfiguration :: Maybe VpcConfigurationProperty
..}
= ServiceManagedEc2FleetConfigurationProperty
{instanceMarketOptions :: ServiceManagedEc2InstanceMarketOptionsProperty
instanceMarketOptions = PropertyType
"InstanceMarketOptions" ServiceManagedEc2FleetConfigurationProperty
ServiceManagedEc2InstanceMarketOptionsProperty
newValue, Maybe (Value Text)
Maybe VpcConfigurationProperty
()
ServiceManagedEc2InstanceCapabilitiesProperty
haddock_workaround_ :: ()
instanceCapabilities :: ServiceManagedEc2InstanceCapabilitiesProperty
storageProfileId :: Maybe (Value Text)
vpcConfiguration :: Maybe VpcConfigurationProperty
haddock_workaround_ :: ()
instanceCapabilities :: ServiceManagedEc2InstanceCapabilitiesProperty
storageProfileId :: Maybe (Value Text)
vpcConfiguration :: Maybe VpcConfigurationProperty
..}
instance Property "StorageProfileId" ServiceManagedEc2FleetConfigurationProperty where
type PropertyType "StorageProfileId" ServiceManagedEc2FleetConfigurationProperty = Value Prelude.Text
set :: PropertyType
"StorageProfileId" ServiceManagedEc2FleetConfigurationProperty
-> ServiceManagedEc2FleetConfigurationProperty
-> ServiceManagedEc2FleetConfigurationProperty
set PropertyType
"StorageProfileId" ServiceManagedEc2FleetConfigurationProperty
newValue ServiceManagedEc2FleetConfigurationProperty {Maybe (Value Text)
Maybe VpcConfigurationProperty
()
ServiceManagedEc2InstanceMarketOptionsProperty
ServiceManagedEc2InstanceCapabilitiesProperty
haddock_workaround_ :: ServiceManagedEc2FleetConfigurationProperty -> ()
instanceCapabilities :: ServiceManagedEc2FleetConfigurationProperty
-> ServiceManagedEc2InstanceCapabilitiesProperty
instanceMarketOptions :: ServiceManagedEc2FleetConfigurationProperty
-> ServiceManagedEc2InstanceMarketOptionsProperty
storageProfileId :: ServiceManagedEc2FleetConfigurationProperty -> Maybe (Value Text)
vpcConfiguration :: ServiceManagedEc2FleetConfigurationProperty
-> Maybe VpcConfigurationProperty
haddock_workaround_ :: ()
instanceCapabilities :: ServiceManagedEc2InstanceCapabilitiesProperty
instanceMarketOptions :: ServiceManagedEc2InstanceMarketOptionsProperty
storageProfileId :: Maybe (Value Text)
vpcConfiguration :: Maybe VpcConfigurationProperty
..}
= ServiceManagedEc2FleetConfigurationProperty
{storageProfileId :: Maybe (Value Text)
storageProfileId = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
"StorageProfileId" ServiceManagedEc2FleetConfigurationProperty
Value Text
newValue, Maybe VpcConfigurationProperty
()
ServiceManagedEc2InstanceMarketOptionsProperty
ServiceManagedEc2InstanceCapabilitiesProperty
haddock_workaround_ :: ()
instanceCapabilities :: ServiceManagedEc2InstanceCapabilitiesProperty
instanceMarketOptions :: ServiceManagedEc2InstanceMarketOptionsProperty
vpcConfiguration :: Maybe VpcConfigurationProperty
haddock_workaround_ :: ()
instanceCapabilities :: ServiceManagedEc2InstanceCapabilitiesProperty
instanceMarketOptions :: ServiceManagedEc2InstanceMarketOptionsProperty
vpcConfiguration :: Maybe VpcConfigurationProperty
..}
instance Property "VpcConfiguration" ServiceManagedEc2FleetConfigurationProperty where
type PropertyType "VpcConfiguration" ServiceManagedEc2FleetConfigurationProperty = VpcConfigurationProperty
set :: PropertyType
"VpcConfiguration" ServiceManagedEc2FleetConfigurationProperty
-> ServiceManagedEc2FleetConfigurationProperty
-> ServiceManagedEc2FleetConfigurationProperty
set PropertyType
"VpcConfiguration" ServiceManagedEc2FleetConfigurationProperty
newValue ServiceManagedEc2FleetConfigurationProperty {Maybe (Value Text)
Maybe VpcConfigurationProperty
()
ServiceManagedEc2InstanceMarketOptionsProperty
ServiceManagedEc2InstanceCapabilitiesProperty
haddock_workaround_ :: ServiceManagedEc2FleetConfigurationProperty -> ()
instanceCapabilities :: ServiceManagedEc2FleetConfigurationProperty
-> ServiceManagedEc2InstanceCapabilitiesProperty
instanceMarketOptions :: ServiceManagedEc2FleetConfigurationProperty
-> ServiceManagedEc2InstanceMarketOptionsProperty
storageProfileId :: ServiceManagedEc2FleetConfigurationProperty -> Maybe (Value Text)
vpcConfiguration :: ServiceManagedEc2FleetConfigurationProperty
-> Maybe VpcConfigurationProperty
haddock_workaround_ :: ()
instanceCapabilities :: ServiceManagedEc2InstanceCapabilitiesProperty
instanceMarketOptions :: ServiceManagedEc2InstanceMarketOptionsProperty
storageProfileId :: Maybe (Value Text)
vpcConfiguration :: Maybe VpcConfigurationProperty
..}
= ServiceManagedEc2FleetConfigurationProperty
{vpcConfiguration :: Maybe VpcConfigurationProperty
vpcConfiguration = VpcConfigurationProperty -> Maybe VpcConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
"VpcConfiguration" ServiceManagedEc2FleetConfigurationProperty
VpcConfigurationProperty
newValue, Maybe (Value Text)
()
ServiceManagedEc2InstanceMarketOptionsProperty
ServiceManagedEc2InstanceCapabilitiesProperty
haddock_workaround_ :: ()
instanceCapabilities :: ServiceManagedEc2InstanceCapabilitiesProperty
instanceMarketOptions :: ServiceManagedEc2InstanceMarketOptionsProperty
storageProfileId :: Maybe (Value Text)
haddock_workaround_ :: ()
instanceCapabilities :: ServiceManagedEc2InstanceCapabilitiesProperty
instanceMarketOptions :: ServiceManagedEc2InstanceMarketOptionsProperty
storageProfileId :: Maybe (Value Text)
..}