module Stratosphere.ImageBuilder.InfrastructureConfiguration (
        module Exports, InfrastructureConfiguration(..),
        mkInfrastructureConfiguration
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.ImageBuilder.InfrastructureConfiguration.InstanceMetadataOptionsProperty as Exports
import {-# SOURCE #-} Stratosphere.ImageBuilder.InfrastructureConfiguration.LoggingProperty as Exports
import {-# SOURCE #-} Stratosphere.ImageBuilder.InfrastructureConfiguration.PlacementProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data InfrastructureConfiguration
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html>
    InfrastructureConfiguration {InfrastructureConfiguration -> ()
haddock_workaround_ :: (),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-description>
                                 InfrastructureConfiguration -> Maybe (Value Text)
description :: (Prelude.Maybe (Value Prelude.Text)),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-instancemetadataoptions>
                                 InfrastructureConfiguration
-> Maybe InstanceMetadataOptionsProperty
instanceMetadataOptions :: (Prelude.Maybe InstanceMetadataOptionsProperty),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-instanceprofilename>
                                 InfrastructureConfiguration -> Value Text
instanceProfileName :: (Value Prelude.Text),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-instancetypes>
                                 InfrastructureConfiguration -> Maybe (ValueList Text)
instanceTypes :: (Prelude.Maybe (ValueList Prelude.Text)),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-keypair>
                                 InfrastructureConfiguration -> Maybe (Value Text)
keyPair :: (Prelude.Maybe (Value Prelude.Text)),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-logging>
                                 InfrastructureConfiguration -> Maybe LoggingProperty
logging :: (Prelude.Maybe LoggingProperty),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-name>
                                 InfrastructureConfiguration -> Value Text
name :: (Value Prelude.Text),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-placement>
                                 InfrastructureConfiguration -> Maybe PlacementProperty
placement :: (Prelude.Maybe PlacementProperty),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-resourcetags>
                                 InfrastructureConfiguration -> Maybe (Map Text (Value Text))
resourceTags :: (Prelude.Maybe (Prelude.Map Prelude.Text (Value Prelude.Text))),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-securitygroupids>
                                 InfrastructureConfiguration -> Maybe (ValueList Text)
securityGroupIds :: (Prelude.Maybe (ValueList Prelude.Text)),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-snstopicarn>
                                 InfrastructureConfiguration -> Maybe (Value Text)
snsTopicArn :: (Prelude.Maybe (Value Prelude.Text)),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-subnetid>
                                 InfrastructureConfiguration -> Maybe (Value Text)
subnetId :: (Prelude.Maybe (Value Prelude.Text)),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-tags>
                                 InfrastructureConfiguration -> Maybe (Map Text (Value Text))
tags :: (Prelude.Maybe (Prelude.Map Prelude.Text (Value Prelude.Text))),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-terminateinstanceonfailure>
                                 InfrastructureConfiguration -> Maybe (Value Bool)
terminateInstanceOnFailure :: (Prelude.Maybe (Value Prelude.Bool))}
  deriving stock (InfrastructureConfiguration -> InfrastructureConfiguration -> Bool
(InfrastructureConfiguration
 -> InfrastructureConfiguration -> Bool)
-> (InfrastructureConfiguration
    -> InfrastructureConfiguration -> Bool)
-> Eq InfrastructureConfiguration
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: InfrastructureConfiguration -> InfrastructureConfiguration -> Bool
== :: InfrastructureConfiguration -> InfrastructureConfiguration -> Bool
$c/= :: InfrastructureConfiguration -> InfrastructureConfiguration -> Bool
/= :: InfrastructureConfiguration -> InfrastructureConfiguration -> Bool
Prelude.Eq, Int -> InfrastructureConfiguration -> ShowS
[InfrastructureConfiguration] -> ShowS
InfrastructureConfiguration -> String
(Int -> InfrastructureConfiguration -> ShowS)
-> (InfrastructureConfiguration -> String)
-> ([InfrastructureConfiguration] -> ShowS)
-> Show InfrastructureConfiguration
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> InfrastructureConfiguration -> ShowS
showsPrec :: Int -> InfrastructureConfiguration -> ShowS
$cshow :: InfrastructureConfiguration -> String
show :: InfrastructureConfiguration -> String
$cshowList :: [InfrastructureConfiguration] -> ShowS
showList :: [InfrastructureConfiguration] -> ShowS
Prelude.Show)
mkInfrastructureConfiguration ::
  Value Prelude.Text
  -> Value Prelude.Text -> InfrastructureConfiguration
mkInfrastructureConfiguration :: Value Text -> Value Text -> InfrastructureConfiguration
mkInfrastructureConfiguration Value Text
instanceProfileName Value Text
name
  = InfrastructureConfiguration
      {haddock_workaround_ :: ()
haddock_workaround_ = (),
       instanceProfileName :: Value Text
instanceProfileName = Value Text
instanceProfileName, name :: Value Text
name = Value Text
name,
       description :: Maybe (Value Text)
description = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceMetadataOptions = Maybe InstanceMetadataOptionsProperty
forall a. Maybe a
Prelude.Nothing,
       instanceTypes :: Maybe (ValueList Text)
instanceTypes = Maybe (ValueList Text)
forall a. Maybe a
Prelude.Nothing, keyPair :: Maybe (Value Text)
keyPair = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       logging :: Maybe LoggingProperty
logging = Maybe LoggingProperty
forall a. Maybe a
Prelude.Nothing, placement :: Maybe PlacementProperty
placement = Maybe PlacementProperty
forall a. Maybe a
Prelude.Nothing,
       resourceTags :: Maybe (Map Text (Value Text))
resourceTags = Maybe (Map Text (Value Text))
forall a. Maybe a
Prelude.Nothing, securityGroupIds :: Maybe (ValueList Text)
securityGroupIds = Maybe (ValueList Text)
forall a. Maybe a
Prelude.Nothing,
       snsTopicArn :: Maybe (Value Text)
snsTopicArn = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, subnetId :: Maybe (Value Text)
subnetId = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       tags :: Maybe (Map Text (Value Text))
tags = Maybe (Map Text (Value Text))
forall a. Maybe a
Prelude.Nothing,
       terminateInstanceOnFailure :: Maybe (Value Bool)
terminateInstanceOnFailure = Maybe (Value Bool)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties InfrastructureConfiguration where
  toResourceProperties :: InfrastructureConfiguration -> ResourceProperties
toResourceProperties InfrastructureConfiguration {Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Text)
Maybe InstanceMetadataOptionsProperty
Maybe PlacementProperty
Maybe LoggingProperty
()
Value Text
haddock_workaround_ :: InfrastructureConfiguration -> ()
description :: InfrastructureConfiguration -> Maybe (Value Text)
instanceMetadataOptions :: InfrastructureConfiguration
-> Maybe InstanceMetadataOptionsProperty
instanceProfileName :: InfrastructureConfiguration -> Value Text
instanceTypes :: InfrastructureConfiguration -> Maybe (ValueList Text)
keyPair :: InfrastructureConfiguration -> Maybe (Value Text)
logging :: InfrastructureConfiguration -> Maybe LoggingProperty
name :: InfrastructureConfiguration -> Value Text
placement :: InfrastructureConfiguration -> Maybe PlacementProperty
resourceTags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
securityGroupIds :: InfrastructureConfiguration -> Maybe (ValueList Text)
snsTopicArn :: InfrastructureConfiguration -> Maybe (Value Text)
subnetId :: InfrastructureConfiguration -> Maybe (Value Text)
tags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: InfrastructureConfiguration -> Maybe (Value Bool)
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::ImageBuilder::InfrastructureConfiguration",
         supportsTags :: Bool
supportsTags = Bool
Prelude.True,
         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
"InstanceProfileName" 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..= Value Text
instanceProfileName,
                            Key
"Name" 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..= Value Text
name]
                           ([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
"Description" (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)
description,
                               Key -> InstanceMetadataOptionsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"InstanceMetadataOptions"
                                 (InstanceMetadataOptionsProperty -> (Key, Value))
-> Maybe InstanceMetadataOptionsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe InstanceMetadataOptionsProperty
instanceMetadataOptions,
                               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
"InstanceTypes" (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)
instanceTypes,
                               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
"KeyPair" (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)
keyPair,
                               Key -> LoggingProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Logging" (LoggingProperty -> (Key, Value))
-> Maybe LoggingProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe LoggingProperty
logging,
                               Key -> PlacementProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Placement" (PlacementProperty -> (Key, Value))
-> Maybe PlacementProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe PlacementProperty
placement,
                               Key -> Map Text (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
"ResourceTags" (Map Text (Value Text) -> (Key, Value))
-> Maybe (Map Text (Value Text)) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Map Text (Value Text))
resourceTags,
                               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
"SecurityGroupIds" (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)
securityGroupIds,
                               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
"SnsTopicArn" (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)
snsTopicArn,
                               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
"SubnetId" (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)
subnetId,
                               Key -> Map Text (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
"Tags" (Map Text (Value Text) -> (Key, Value))
-> Maybe (Map Text (Value Text)) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Map Text (Value Text))
tags,
                               Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"TerminateInstanceOnFailure"
                                 (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
terminateInstanceOnFailure]))}
instance JSON.ToJSON InfrastructureConfiguration where
  toJSON :: InfrastructureConfiguration -> Value
toJSON InfrastructureConfiguration {Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Text)
Maybe InstanceMetadataOptionsProperty
Maybe PlacementProperty
Maybe LoggingProperty
()
Value Text
haddock_workaround_ :: InfrastructureConfiguration -> ()
description :: InfrastructureConfiguration -> Maybe (Value Text)
instanceMetadataOptions :: InfrastructureConfiguration
-> Maybe InstanceMetadataOptionsProperty
instanceProfileName :: InfrastructureConfiguration -> Value Text
instanceTypes :: InfrastructureConfiguration -> Maybe (ValueList Text)
keyPair :: InfrastructureConfiguration -> Maybe (Value Text)
logging :: InfrastructureConfiguration -> Maybe LoggingProperty
name :: InfrastructureConfiguration -> Value Text
placement :: InfrastructureConfiguration -> Maybe PlacementProperty
resourceTags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
securityGroupIds :: InfrastructureConfiguration -> Maybe (ValueList Text)
snsTopicArn :: InfrastructureConfiguration -> Maybe (Value Text)
subnetId :: InfrastructureConfiguration -> Maybe (Value Text)
tags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: InfrastructureConfiguration -> Maybe (Value Bool)
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
..}
    = [(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
"InstanceProfileName" 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..= Value Text
instanceProfileName,
               Key
"Name" 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..= Value Text
name]
              ([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
"Description" (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)
description,
                  Key -> InstanceMetadataOptionsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"InstanceMetadataOptions"
                    (InstanceMetadataOptionsProperty -> (Key, Value))
-> Maybe InstanceMetadataOptionsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe InstanceMetadataOptionsProperty
instanceMetadataOptions,
                  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
"InstanceTypes" (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)
instanceTypes,
                  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
"KeyPair" (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)
keyPair,
                  Key -> LoggingProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Logging" (LoggingProperty -> (Key, Value))
-> Maybe LoggingProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe LoggingProperty
logging,
                  Key -> PlacementProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Placement" (PlacementProperty -> (Key, Value))
-> Maybe PlacementProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe PlacementProperty
placement,
                  Key -> Map Text (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
"ResourceTags" (Map Text (Value Text) -> (Key, Value))
-> Maybe (Map Text (Value Text)) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Map Text (Value Text))
resourceTags,
                  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
"SecurityGroupIds" (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)
securityGroupIds,
                  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
"SnsTopicArn" (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)
snsTopicArn,
                  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
"SubnetId" (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)
subnetId,
                  Key -> Map Text (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
"Tags" (Map Text (Value Text) -> (Key, Value))
-> Maybe (Map Text (Value Text)) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Map Text (Value Text))
tags,
                  Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"TerminateInstanceOnFailure"
                    (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
terminateInstanceOnFailure])))
instance Property "Description" InfrastructureConfiguration where
  type PropertyType "Description" InfrastructureConfiguration = Value Prelude.Text
  set :: PropertyType "Description" InfrastructureConfiguration
-> InfrastructureConfiguration -> InfrastructureConfiguration
set PropertyType "Description" InfrastructureConfiguration
newValue InfrastructureConfiguration {Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Text)
Maybe InstanceMetadataOptionsProperty
Maybe PlacementProperty
Maybe LoggingProperty
()
Value Text
haddock_workaround_ :: InfrastructureConfiguration -> ()
description :: InfrastructureConfiguration -> Maybe (Value Text)
instanceMetadataOptions :: InfrastructureConfiguration
-> Maybe InstanceMetadataOptionsProperty
instanceProfileName :: InfrastructureConfiguration -> Value Text
instanceTypes :: InfrastructureConfiguration -> Maybe (ValueList Text)
keyPair :: InfrastructureConfiguration -> Maybe (Value Text)
logging :: InfrastructureConfiguration -> Maybe LoggingProperty
name :: InfrastructureConfiguration -> Value Text
placement :: InfrastructureConfiguration -> Maybe PlacementProperty
resourceTags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
securityGroupIds :: InfrastructureConfiguration -> Maybe (ValueList Text)
snsTopicArn :: InfrastructureConfiguration -> Maybe (Value Text)
subnetId :: InfrastructureConfiguration -> Maybe (Value Text)
tags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: InfrastructureConfiguration -> Maybe (Value Bool)
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
..}
    = InfrastructureConfiguration
        {description :: Maybe (Value Text)
description = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Description" InfrastructureConfiguration
Value Text
newValue, Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Text)
Maybe InstanceMetadataOptionsProperty
Maybe PlacementProperty
Maybe LoggingProperty
()
Value Text
haddock_workaround_ :: ()
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
haddock_workaround_ :: ()
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
..}
instance Property "InstanceMetadataOptions" InfrastructureConfiguration where
  type PropertyType "InstanceMetadataOptions" InfrastructureConfiguration = InstanceMetadataOptionsProperty
  set :: PropertyType "InstanceMetadataOptions" InfrastructureConfiguration
-> InfrastructureConfiguration -> InfrastructureConfiguration
set PropertyType "InstanceMetadataOptions" InfrastructureConfiguration
newValue InfrastructureConfiguration {Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Text)
Maybe InstanceMetadataOptionsProperty
Maybe PlacementProperty
Maybe LoggingProperty
()
Value Text
haddock_workaround_ :: InfrastructureConfiguration -> ()
description :: InfrastructureConfiguration -> Maybe (Value Text)
instanceMetadataOptions :: InfrastructureConfiguration
-> Maybe InstanceMetadataOptionsProperty
instanceProfileName :: InfrastructureConfiguration -> Value Text
instanceTypes :: InfrastructureConfiguration -> Maybe (ValueList Text)
keyPair :: InfrastructureConfiguration -> Maybe (Value Text)
logging :: InfrastructureConfiguration -> Maybe LoggingProperty
name :: InfrastructureConfiguration -> Value Text
placement :: InfrastructureConfiguration -> Maybe PlacementProperty
resourceTags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
securityGroupIds :: InfrastructureConfiguration -> Maybe (ValueList Text)
snsTopicArn :: InfrastructureConfiguration -> Maybe (Value Text)
subnetId :: InfrastructureConfiguration -> Maybe (Value Text)
tags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: InfrastructureConfiguration -> Maybe (Value Bool)
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
..}
    = InfrastructureConfiguration
        {instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceMetadataOptions = InstanceMetadataOptionsProperty
-> Maybe InstanceMetadataOptionsProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "InstanceMetadataOptions" InfrastructureConfiguration
InstanceMetadataOptionsProperty
newValue, Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Text)
Maybe PlacementProperty
Maybe LoggingProperty
()
Value Text
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
..}
instance Property "InstanceProfileName" InfrastructureConfiguration where
  type PropertyType "InstanceProfileName" InfrastructureConfiguration = Value Prelude.Text
  set :: PropertyType "InstanceProfileName" InfrastructureConfiguration
-> InfrastructureConfiguration -> InfrastructureConfiguration
set PropertyType "InstanceProfileName" InfrastructureConfiguration
newValue InfrastructureConfiguration {Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Text)
Maybe InstanceMetadataOptionsProperty
Maybe PlacementProperty
Maybe LoggingProperty
()
Value Text
haddock_workaround_ :: InfrastructureConfiguration -> ()
description :: InfrastructureConfiguration -> Maybe (Value Text)
instanceMetadataOptions :: InfrastructureConfiguration
-> Maybe InstanceMetadataOptionsProperty
instanceProfileName :: InfrastructureConfiguration -> Value Text
instanceTypes :: InfrastructureConfiguration -> Maybe (ValueList Text)
keyPair :: InfrastructureConfiguration -> Maybe (Value Text)
logging :: InfrastructureConfiguration -> Maybe LoggingProperty
name :: InfrastructureConfiguration -> Value Text
placement :: InfrastructureConfiguration -> Maybe PlacementProperty
resourceTags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
securityGroupIds :: InfrastructureConfiguration -> Maybe (ValueList Text)
snsTopicArn :: InfrastructureConfiguration -> Maybe (Value Text)
subnetId :: InfrastructureConfiguration -> Maybe (Value Text)
tags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: InfrastructureConfiguration -> Maybe (Value Bool)
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
..}
    = InfrastructureConfiguration {instanceProfileName :: Value Text
instanceProfileName = PropertyType "InstanceProfileName" InfrastructureConfiguration
Value Text
newValue, Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Text)
Maybe InstanceMetadataOptionsProperty
Maybe PlacementProperty
Maybe LoggingProperty
()
Value Text
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
..}
instance Property "InstanceTypes" InfrastructureConfiguration where
  type PropertyType "InstanceTypes" InfrastructureConfiguration = ValueList Prelude.Text
  set :: PropertyType "InstanceTypes" InfrastructureConfiguration
-> InfrastructureConfiguration -> InfrastructureConfiguration
set PropertyType "InstanceTypes" InfrastructureConfiguration
newValue InfrastructureConfiguration {Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Text)
Maybe InstanceMetadataOptionsProperty
Maybe PlacementProperty
Maybe LoggingProperty
()
Value Text
haddock_workaround_ :: InfrastructureConfiguration -> ()
description :: InfrastructureConfiguration -> Maybe (Value Text)
instanceMetadataOptions :: InfrastructureConfiguration
-> Maybe InstanceMetadataOptionsProperty
instanceProfileName :: InfrastructureConfiguration -> Value Text
instanceTypes :: InfrastructureConfiguration -> Maybe (ValueList Text)
keyPair :: InfrastructureConfiguration -> Maybe (Value Text)
logging :: InfrastructureConfiguration -> Maybe LoggingProperty
name :: InfrastructureConfiguration -> Value Text
placement :: InfrastructureConfiguration -> Maybe PlacementProperty
resourceTags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
securityGroupIds :: InfrastructureConfiguration -> Maybe (ValueList Text)
snsTopicArn :: InfrastructureConfiguration -> Maybe (Value Text)
subnetId :: InfrastructureConfiguration -> Maybe (Value Text)
tags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: InfrastructureConfiguration -> Maybe (Value Bool)
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
..}
    = InfrastructureConfiguration
        {instanceTypes :: Maybe (ValueList Text)
instanceTypes = ValueList Text -> Maybe (ValueList Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "InstanceTypes" InfrastructureConfiguration
ValueList Text
newValue, Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Text)
Maybe InstanceMetadataOptionsProperty
Maybe PlacementProperty
Maybe LoggingProperty
()
Value Text
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
..}
instance Property "KeyPair" InfrastructureConfiguration where
  type PropertyType "KeyPair" InfrastructureConfiguration = Value Prelude.Text
  set :: PropertyType "KeyPair" InfrastructureConfiguration
-> InfrastructureConfiguration -> InfrastructureConfiguration
set PropertyType "KeyPair" InfrastructureConfiguration
newValue InfrastructureConfiguration {Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Text)
Maybe InstanceMetadataOptionsProperty
Maybe PlacementProperty
Maybe LoggingProperty
()
Value Text
haddock_workaround_ :: InfrastructureConfiguration -> ()
description :: InfrastructureConfiguration -> Maybe (Value Text)
instanceMetadataOptions :: InfrastructureConfiguration
-> Maybe InstanceMetadataOptionsProperty
instanceProfileName :: InfrastructureConfiguration -> Value Text
instanceTypes :: InfrastructureConfiguration -> Maybe (ValueList Text)
keyPair :: InfrastructureConfiguration -> Maybe (Value Text)
logging :: InfrastructureConfiguration -> Maybe LoggingProperty
name :: InfrastructureConfiguration -> Value Text
placement :: InfrastructureConfiguration -> Maybe PlacementProperty
resourceTags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
securityGroupIds :: InfrastructureConfiguration -> Maybe (ValueList Text)
snsTopicArn :: InfrastructureConfiguration -> Maybe (Value Text)
subnetId :: InfrastructureConfiguration -> Maybe (Value Text)
tags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: InfrastructureConfiguration -> Maybe (Value Bool)
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
..}
    = InfrastructureConfiguration {keyPair :: Maybe (Value Text)
keyPair = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "KeyPair" InfrastructureConfiguration
Value Text
newValue, Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Text)
Maybe InstanceMetadataOptionsProperty
Maybe PlacementProperty
Maybe LoggingProperty
()
Value Text
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
..}
instance Property "Logging" InfrastructureConfiguration where
  type PropertyType "Logging" InfrastructureConfiguration = LoggingProperty
  set :: PropertyType "Logging" InfrastructureConfiguration
-> InfrastructureConfiguration -> InfrastructureConfiguration
set PropertyType "Logging" InfrastructureConfiguration
newValue InfrastructureConfiguration {Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Text)
Maybe InstanceMetadataOptionsProperty
Maybe PlacementProperty
Maybe LoggingProperty
()
Value Text
haddock_workaround_ :: InfrastructureConfiguration -> ()
description :: InfrastructureConfiguration -> Maybe (Value Text)
instanceMetadataOptions :: InfrastructureConfiguration
-> Maybe InstanceMetadataOptionsProperty
instanceProfileName :: InfrastructureConfiguration -> Value Text
instanceTypes :: InfrastructureConfiguration -> Maybe (ValueList Text)
keyPair :: InfrastructureConfiguration -> Maybe (Value Text)
logging :: InfrastructureConfiguration -> Maybe LoggingProperty
name :: InfrastructureConfiguration -> Value Text
placement :: InfrastructureConfiguration -> Maybe PlacementProperty
resourceTags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
securityGroupIds :: InfrastructureConfiguration -> Maybe (ValueList Text)
snsTopicArn :: InfrastructureConfiguration -> Maybe (Value Text)
subnetId :: InfrastructureConfiguration -> Maybe (Value Text)
tags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: InfrastructureConfiguration -> Maybe (Value Bool)
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
..}
    = InfrastructureConfiguration {logging :: Maybe LoggingProperty
logging = LoggingProperty -> Maybe LoggingProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Logging" InfrastructureConfiguration
LoggingProperty
newValue, Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Text)
Maybe InstanceMetadataOptionsProperty
Maybe PlacementProperty
()
Value Text
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
..}
instance Property "Name" InfrastructureConfiguration where
  type PropertyType "Name" InfrastructureConfiguration = Value Prelude.Text
  set :: PropertyType "Name" InfrastructureConfiguration
-> InfrastructureConfiguration -> InfrastructureConfiguration
set PropertyType "Name" InfrastructureConfiguration
newValue InfrastructureConfiguration {Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Text)
Maybe InstanceMetadataOptionsProperty
Maybe PlacementProperty
Maybe LoggingProperty
()
Value Text
haddock_workaround_ :: InfrastructureConfiguration -> ()
description :: InfrastructureConfiguration -> Maybe (Value Text)
instanceMetadataOptions :: InfrastructureConfiguration
-> Maybe InstanceMetadataOptionsProperty
instanceProfileName :: InfrastructureConfiguration -> Value Text
instanceTypes :: InfrastructureConfiguration -> Maybe (ValueList Text)
keyPair :: InfrastructureConfiguration -> Maybe (Value Text)
logging :: InfrastructureConfiguration -> Maybe LoggingProperty
name :: InfrastructureConfiguration -> Value Text
placement :: InfrastructureConfiguration -> Maybe PlacementProperty
resourceTags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
securityGroupIds :: InfrastructureConfiguration -> Maybe (ValueList Text)
snsTopicArn :: InfrastructureConfiguration -> Maybe (Value Text)
subnetId :: InfrastructureConfiguration -> Maybe (Value Text)
tags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: InfrastructureConfiguration -> Maybe (Value Bool)
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
..}
    = InfrastructureConfiguration {name :: Value Text
name = PropertyType "Name" InfrastructureConfiguration
Value Text
newValue, Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Text)
Maybe InstanceMetadataOptionsProperty
Maybe PlacementProperty
Maybe LoggingProperty
()
Value Text
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
..}
instance Property "Placement" InfrastructureConfiguration where
  type PropertyType "Placement" InfrastructureConfiguration = PlacementProperty
  set :: PropertyType "Placement" InfrastructureConfiguration
-> InfrastructureConfiguration -> InfrastructureConfiguration
set PropertyType "Placement" InfrastructureConfiguration
newValue InfrastructureConfiguration {Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Text)
Maybe InstanceMetadataOptionsProperty
Maybe PlacementProperty
Maybe LoggingProperty
()
Value Text
haddock_workaround_ :: InfrastructureConfiguration -> ()
description :: InfrastructureConfiguration -> Maybe (Value Text)
instanceMetadataOptions :: InfrastructureConfiguration
-> Maybe InstanceMetadataOptionsProperty
instanceProfileName :: InfrastructureConfiguration -> Value Text
instanceTypes :: InfrastructureConfiguration -> Maybe (ValueList Text)
keyPair :: InfrastructureConfiguration -> Maybe (Value Text)
logging :: InfrastructureConfiguration -> Maybe LoggingProperty
name :: InfrastructureConfiguration -> Value Text
placement :: InfrastructureConfiguration -> Maybe PlacementProperty
resourceTags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
securityGroupIds :: InfrastructureConfiguration -> Maybe (ValueList Text)
snsTopicArn :: InfrastructureConfiguration -> Maybe (Value Text)
subnetId :: InfrastructureConfiguration -> Maybe (Value Text)
tags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: InfrastructureConfiguration -> Maybe (Value Bool)
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
..}
    = InfrastructureConfiguration
        {placement :: Maybe PlacementProperty
placement = PlacementProperty -> Maybe PlacementProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Placement" InfrastructureConfiguration
PlacementProperty
newValue, Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Text)
Maybe InstanceMetadataOptionsProperty
Maybe LoggingProperty
()
Value Text
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
..}
instance Property "ResourceTags" InfrastructureConfiguration where
  type PropertyType "ResourceTags" InfrastructureConfiguration = Prelude.Map Prelude.Text (Value Prelude.Text)
  set :: PropertyType "ResourceTags" InfrastructureConfiguration
-> InfrastructureConfiguration -> InfrastructureConfiguration
set PropertyType "ResourceTags" InfrastructureConfiguration
newValue InfrastructureConfiguration {Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Text)
Maybe InstanceMetadataOptionsProperty
Maybe PlacementProperty
Maybe LoggingProperty
()
Value Text
haddock_workaround_ :: InfrastructureConfiguration -> ()
description :: InfrastructureConfiguration -> Maybe (Value Text)
instanceMetadataOptions :: InfrastructureConfiguration
-> Maybe InstanceMetadataOptionsProperty
instanceProfileName :: InfrastructureConfiguration -> Value Text
instanceTypes :: InfrastructureConfiguration -> Maybe (ValueList Text)
keyPair :: InfrastructureConfiguration -> Maybe (Value Text)
logging :: InfrastructureConfiguration -> Maybe LoggingProperty
name :: InfrastructureConfiguration -> Value Text
placement :: InfrastructureConfiguration -> Maybe PlacementProperty
resourceTags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
securityGroupIds :: InfrastructureConfiguration -> Maybe (ValueList Text)
snsTopicArn :: InfrastructureConfiguration -> Maybe (Value Text)
subnetId :: InfrastructureConfiguration -> Maybe (Value Text)
tags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: InfrastructureConfiguration -> Maybe (Value Bool)
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
..}
    = InfrastructureConfiguration
        {resourceTags :: Maybe (Map Text (Value Text))
resourceTags = Map Text (Value Text) -> Maybe (Map Text (Value Text))
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure Map Text (Value Text)
PropertyType "ResourceTags" InfrastructureConfiguration
newValue, Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Text)
Maybe InstanceMetadataOptionsProperty
Maybe PlacementProperty
Maybe LoggingProperty
()
Value Text
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
..}
instance Property "SecurityGroupIds" InfrastructureConfiguration where
  type PropertyType "SecurityGroupIds" InfrastructureConfiguration = ValueList Prelude.Text
  set :: PropertyType "SecurityGroupIds" InfrastructureConfiguration
-> InfrastructureConfiguration -> InfrastructureConfiguration
set PropertyType "SecurityGroupIds" InfrastructureConfiguration
newValue InfrastructureConfiguration {Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Text)
Maybe InstanceMetadataOptionsProperty
Maybe PlacementProperty
Maybe LoggingProperty
()
Value Text
haddock_workaround_ :: InfrastructureConfiguration -> ()
description :: InfrastructureConfiguration -> Maybe (Value Text)
instanceMetadataOptions :: InfrastructureConfiguration
-> Maybe InstanceMetadataOptionsProperty
instanceProfileName :: InfrastructureConfiguration -> Value Text
instanceTypes :: InfrastructureConfiguration -> Maybe (ValueList Text)
keyPair :: InfrastructureConfiguration -> Maybe (Value Text)
logging :: InfrastructureConfiguration -> Maybe LoggingProperty
name :: InfrastructureConfiguration -> Value Text
placement :: InfrastructureConfiguration -> Maybe PlacementProperty
resourceTags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
securityGroupIds :: InfrastructureConfiguration -> Maybe (ValueList Text)
snsTopicArn :: InfrastructureConfiguration -> Maybe (Value Text)
subnetId :: InfrastructureConfiguration -> Maybe (Value Text)
tags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: InfrastructureConfiguration -> Maybe (Value Bool)
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
..}
    = InfrastructureConfiguration
        {securityGroupIds :: Maybe (ValueList Text)
securityGroupIds = ValueList Text -> Maybe (ValueList Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "SecurityGroupIds" InfrastructureConfiguration
ValueList Text
newValue, Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Text)
Maybe InstanceMetadataOptionsProperty
Maybe PlacementProperty
Maybe LoggingProperty
()
Value Text
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
..}
instance Property "SnsTopicArn" InfrastructureConfiguration where
  type PropertyType "SnsTopicArn" InfrastructureConfiguration = Value Prelude.Text
  set :: PropertyType "SnsTopicArn" InfrastructureConfiguration
-> InfrastructureConfiguration -> InfrastructureConfiguration
set PropertyType "SnsTopicArn" InfrastructureConfiguration
newValue InfrastructureConfiguration {Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Text)
Maybe InstanceMetadataOptionsProperty
Maybe PlacementProperty
Maybe LoggingProperty
()
Value Text
haddock_workaround_ :: InfrastructureConfiguration -> ()
description :: InfrastructureConfiguration -> Maybe (Value Text)
instanceMetadataOptions :: InfrastructureConfiguration
-> Maybe InstanceMetadataOptionsProperty
instanceProfileName :: InfrastructureConfiguration -> Value Text
instanceTypes :: InfrastructureConfiguration -> Maybe (ValueList Text)
keyPair :: InfrastructureConfiguration -> Maybe (Value Text)
logging :: InfrastructureConfiguration -> Maybe LoggingProperty
name :: InfrastructureConfiguration -> Value Text
placement :: InfrastructureConfiguration -> Maybe PlacementProperty
resourceTags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
securityGroupIds :: InfrastructureConfiguration -> Maybe (ValueList Text)
snsTopicArn :: InfrastructureConfiguration -> Maybe (Value Text)
subnetId :: InfrastructureConfiguration -> Maybe (Value Text)
tags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: InfrastructureConfiguration -> Maybe (Value Bool)
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
..}
    = InfrastructureConfiguration
        {snsTopicArn :: Maybe (Value Text)
snsTopicArn = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "SnsTopicArn" InfrastructureConfiguration
Value Text
newValue, Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Text)
Maybe InstanceMetadataOptionsProperty
Maybe PlacementProperty
Maybe LoggingProperty
()
Value Text
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
..}
instance Property "SubnetId" InfrastructureConfiguration where
  type PropertyType "SubnetId" InfrastructureConfiguration = Value Prelude.Text
  set :: PropertyType "SubnetId" InfrastructureConfiguration
-> InfrastructureConfiguration -> InfrastructureConfiguration
set PropertyType "SubnetId" InfrastructureConfiguration
newValue InfrastructureConfiguration {Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Text)
Maybe InstanceMetadataOptionsProperty
Maybe PlacementProperty
Maybe LoggingProperty
()
Value Text
haddock_workaround_ :: InfrastructureConfiguration -> ()
description :: InfrastructureConfiguration -> Maybe (Value Text)
instanceMetadataOptions :: InfrastructureConfiguration
-> Maybe InstanceMetadataOptionsProperty
instanceProfileName :: InfrastructureConfiguration -> Value Text
instanceTypes :: InfrastructureConfiguration -> Maybe (ValueList Text)
keyPair :: InfrastructureConfiguration -> Maybe (Value Text)
logging :: InfrastructureConfiguration -> Maybe LoggingProperty
name :: InfrastructureConfiguration -> Value Text
placement :: InfrastructureConfiguration -> Maybe PlacementProperty
resourceTags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
securityGroupIds :: InfrastructureConfiguration -> Maybe (ValueList Text)
snsTopicArn :: InfrastructureConfiguration -> Maybe (Value Text)
subnetId :: InfrastructureConfiguration -> Maybe (Value Text)
tags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: InfrastructureConfiguration -> Maybe (Value Bool)
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
..}
    = InfrastructureConfiguration
        {subnetId :: Maybe (Value Text)
subnetId = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "SubnetId" InfrastructureConfiguration
Value Text
newValue, Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Text)
Maybe InstanceMetadataOptionsProperty
Maybe PlacementProperty
Maybe LoggingProperty
()
Value Text
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
..}
instance Property "Tags" InfrastructureConfiguration where
  type PropertyType "Tags" InfrastructureConfiguration = Prelude.Map Prelude.Text (Value Prelude.Text)
  set :: PropertyType "Tags" InfrastructureConfiguration
-> InfrastructureConfiguration -> InfrastructureConfiguration
set PropertyType "Tags" InfrastructureConfiguration
newValue InfrastructureConfiguration {Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Text)
Maybe InstanceMetadataOptionsProperty
Maybe PlacementProperty
Maybe LoggingProperty
()
Value Text
haddock_workaround_ :: InfrastructureConfiguration -> ()
description :: InfrastructureConfiguration -> Maybe (Value Text)
instanceMetadataOptions :: InfrastructureConfiguration
-> Maybe InstanceMetadataOptionsProperty
instanceProfileName :: InfrastructureConfiguration -> Value Text
instanceTypes :: InfrastructureConfiguration -> Maybe (ValueList Text)
keyPair :: InfrastructureConfiguration -> Maybe (Value Text)
logging :: InfrastructureConfiguration -> Maybe LoggingProperty
name :: InfrastructureConfiguration -> Value Text
placement :: InfrastructureConfiguration -> Maybe PlacementProperty
resourceTags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
securityGroupIds :: InfrastructureConfiguration -> Maybe (ValueList Text)
snsTopicArn :: InfrastructureConfiguration -> Maybe (Value Text)
subnetId :: InfrastructureConfiguration -> Maybe (Value Text)
tags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: InfrastructureConfiguration -> Maybe (Value Bool)
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
..}
    = InfrastructureConfiguration {tags :: Maybe (Map Text (Value Text))
tags = Map Text (Value Text) -> Maybe (Map Text (Value Text))
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure Map Text (Value Text)
PropertyType "Tags" InfrastructureConfiguration
newValue, Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Text)
Maybe InstanceMetadataOptionsProperty
Maybe PlacementProperty
Maybe LoggingProperty
()
Value Text
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
terminateInstanceOnFailure :: Maybe (Value Bool)
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
terminateInstanceOnFailure :: Maybe (Value Bool)
..}
instance Property "TerminateInstanceOnFailure" InfrastructureConfiguration where
  type PropertyType "TerminateInstanceOnFailure" InfrastructureConfiguration = Value Prelude.Bool
  set :: PropertyType
  "TerminateInstanceOnFailure" InfrastructureConfiguration
-> InfrastructureConfiguration -> InfrastructureConfiguration
set PropertyType
  "TerminateInstanceOnFailure" InfrastructureConfiguration
newValue InfrastructureConfiguration {Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Text)
Maybe InstanceMetadataOptionsProperty
Maybe PlacementProperty
Maybe LoggingProperty
()
Value Text
haddock_workaround_ :: InfrastructureConfiguration -> ()
description :: InfrastructureConfiguration -> Maybe (Value Text)
instanceMetadataOptions :: InfrastructureConfiguration
-> Maybe InstanceMetadataOptionsProperty
instanceProfileName :: InfrastructureConfiguration -> Value Text
instanceTypes :: InfrastructureConfiguration -> Maybe (ValueList Text)
keyPair :: InfrastructureConfiguration -> Maybe (Value Text)
logging :: InfrastructureConfiguration -> Maybe LoggingProperty
name :: InfrastructureConfiguration -> Value Text
placement :: InfrastructureConfiguration -> Maybe PlacementProperty
resourceTags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
securityGroupIds :: InfrastructureConfiguration -> Maybe (ValueList Text)
snsTopicArn :: InfrastructureConfiguration -> Maybe (Value Text)
subnetId :: InfrastructureConfiguration -> Maybe (Value Text)
tags :: InfrastructureConfiguration -> Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: InfrastructureConfiguration -> Maybe (Value Bool)
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
terminateInstanceOnFailure :: Maybe (Value Bool)
..}
    = InfrastructureConfiguration
        {terminateInstanceOnFailure :: Maybe (Value Bool)
terminateInstanceOnFailure = Value Bool -> Maybe (Value Bool)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
  "TerminateInstanceOnFailure" InfrastructureConfiguration
Value Bool
newValue, Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Text)
Maybe InstanceMetadataOptionsProperty
Maybe PlacementProperty
Maybe LoggingProperty
()
Value Text
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
description :: Maybe (Value Text)
instanceMetadataOptions :: Maybe InstanceMetadataOptionsProperty
instanceProfileName :: Value Text
instanceTypes :: Maybe (ValueList Text)
keyPair :: Maybe (Value Text)
logging :: Maybe LoggingProperty
name :: Value Text
placement :: Maybe PlacementProperty
resourceTags :: Maybe (Map Text (Value Text))
securityGroupIds :: Maybe (ValueList Text)
snsTopicArn :: Maybe (Value Text)
subnetId :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
..}