module Stratosphere.AppRunner.Service.ImageConfigurationProperty (
        module Exports, ImageConfigurationProperty(..),
        mkImageConfigurationProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.AppRunner.Service.KeyValuePairProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data ImageConfigurationProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apprunner-service-imageconfiguration.html>
    ImageConfigurationProperty {ImageConfigurationProperty -> ()
haddock_workaround_ :: (),
                                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apprunner-service-imageconfiguration.html#cfn-apprunner-service-imageconfiguration-port>
                                ImageConfigurationProperty -> Maybe (Value Text)
port :: (Prelude.Maybe (Value Prelude.Text)),
                                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apprunner-service-imageconfiguration.html#cfn-apprunner-service-imageconfiguration-runtimeenvironmentsecrets>
                                ImageConfigurationProperty -> Maybe [KeyValuePairProperty]
runtimeEnvironmentSecrets :: (Prelude.Maybe [KeyValuePairProperty]),
                                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apprunner-service-imageconfiguration.html#cfn-apprunner-service-imageconfiguration-runtimeenvironmentvariables>
                                ImageConfigurationProperty -> Maybe [KeyValuePairProperty]
runtimeEnvironmentVariables :: (Prelude.Maybe [KeyValuePairProperty]),
                                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apprunner-service-imageconfiguration.html#cfn-apprunner-service-imageconfiguration-startcommand>
                                ImageConfigurationProperty -> Maybe (Value Text)
startCommand :: (Prelude.Maybe (Value Prelude.Text))}
  deriving stock (ImageConfigurationProperty -> ImageConfigurationProperty -> Bool
(ImageConfigurationProperty -> ImageConfigurationProperty -> Bool)
-> (ImageConfigurationProperty
    -> ImageConfigurationProperty -> Bool)
-> Eq ImageConfigurationProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ImageConfigurationProperty -> ImageConfigurationProperty -> Bool
== :: ImageConfigurationProperty -> ImageConfigurationProperty -> Bool
$c/= :: ImageConfigurationProperty -> ImageConfigurationProperty -> Bool
/= :: ImageConfigurationProperty -> ImageConfigurationProperty -> Bool
Prelude.Eq, Int -> ImageConfigurationProperty -> ShowS
[ImageConfigurationProperty] -> ShowS
ImageConfigurationProperty -> String
(Int -> ImageConfigurationProperty -> ShowS)
-> (ImageConfigurationProperty -> String)
-> ([ImageConfigurationProperty] -> ShowS)
-> Show ImageConfigurationProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ImageConfigurationProperty -> ShowS
showsPrec :: Int -> ImageConfigurationProperty -> ShowS
$cshow :: ImageConfigurationProperty -> String
show :: ImageConfigurationProperty -> String
$cshowList :: [ImageConfigurationProperty] -> ShowS
showList :: [ImageConfigurationProperty] -> ShowS
Prelude.Show)
mkImageConfigurationProperty :: ImageConfigurationProperty
mkImageConfigurationProperty :: ImageConfigurationProperty
mkImageConfigurationProperty
  = ImageConfigurationProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), port :: Maybe (Value Text)
port = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       runtimeEnvironmentSecrets :: Maybe [KeyValuePairProperty]
runtimeEnvironmentSecrets = Maybe [KeyValuePairProperty]
forall a. Maybe a
Prelude.Nothing,
       runtimeEnvironmentVariables :: Maybe [KeyValuePairProperty]
runtimeEnvironmentVariables = Maybe [KeyValuePairProperty]
forall a. Maybe a
Prelude.Nothing,
       startCommand :: Maybe (Value Text)
startCommand = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties ImageConfigurationProperty where
  toResourceProperties :: ImageConfigurationProperty -> ResourceProperties
toResourceProperties ImageConfigurationProperty {Maybe [KeyValuePairProperty]
Maybe (Value Text)
()
haddock_workaround_ :: ImageConfigurationProperty -> ()
port :: ImageConfigurationProperty -> Maybe (Value Text)
runtimeEnvironmentSecrets :: ImageConfigurationProperty -> Maybe [KeyValuePairProperty]
runtimeEnvironmentVariables :: ImageConfigurationProperty -> Maybe [KeyValuePairProperty]
startCommand :: ImageConfigurationProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
port :: Maybe (Value Text)
runtimeEnvironmentSecrets :: Maybe [KeyValuePairProperty]
runtimeEnvironmentVariables :: Maybe [KeyValuePairProperty]
startCommand :: Maybe (Value Text)
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::AppRunner::Service.ImageConfiguration",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
                        ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                           [Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Port" (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)
port,
                            Key -> [KeyValuePairProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"RuntimeEnvironmentSecrets"
                              ([KeyValuePairProperty] -> (Key, Value))
-> Maybe [KeyValuePairProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [KeyValuePairProperty]
runtimeEnvironmentSecrets,
                            Key -> [KeyValuePairProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"RuntimeEnvironmentVariables"
                              ([KeyValuePairProperty] -> (Key, Value))
-> Maybe [KeyValuePairProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [KeyValuePairProperty]
runtimeEnvironmentVariables,
                            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
"StartCommand" (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)
startCommand])}
instance JSON.ToJSON ImageConfigurationProperty where
  toJSON :: ImageConfigurationProperty -> Value
toJSON ImageConfigurationProperty {Maybe [KeyValuePairProperty]
Maybe (Value Text)
()
haddock_workaround_ :: ImageConfigurationProperty -> ()
port :: ImageConfigurationProperty -> Maybe (Value Text)
runtimeEnvironmentSecrets :: ImageConfigurationProperty -> Maybe [KeyValuePairProperty]
runtimeEnvironmentVariables :: ImageConfigurationProperty -> Maybe [KeyValuePairProperty]
startCommand :: ImageConfigurationProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
port :: Maybe (Value Text)
runtimeEnvironmentSecrets :: Maybe [KeyValuePairProperty]
runtimeEnvironmentVariables :: Maybe [KeyValuePairProperty]
startCommand :: Maybe (Value Text)
..}
    = [(Key, Value)] -> Value
JSON.object
        ([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
              [Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Port" (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)
port,
               Key -> [KeyValuePairProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"RuntimeEnvironmentSecrets"
                 ([KeyValuePairProperty] -> (Key, Value))
-> Maybe [KeyValuePairProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [KeyValuePairProperty]
runtimeEnvironmentSecrets,
               Key -> [KeyValuePairProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"RuntimeEnvironmentVariables"
                 ([KeyValuePairProperty] -> (Key, Value))
-> Maybe [KeyValuePairProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [KeyValuePairProperty]
runtimeEnvironmentVariables,
               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
"StartCommand" (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)
startCommand]))
instance Property "Port" ImageConfigurationProperty where
  type PropertyType "Port" ImageConfigurationProperty = Value Prelude.Text
  set :: PropertyType "Port" ImageConfigurationProperty
-> ImageConfigurationProperty -> ImageConfigurationProperty
set PropertyType "Port" ImageConfigurationProperty
newValue ImageConfigurationProperty {Maybe [KeyValuePairProperty]
Maybe (Value Text)
()
haddock_workaround_ :: ImageConfigurationProperty -> ()
port :: ImageConfigurationProperty -> Maybe (Value Text)
runtimeEnvironmentSecrets :: ImageConfigurationProperty -> Maybe [KeyValuePairProperty]
runtimeEnvironmentVariables :: ImageConfigurationProperty -> Maybe [KeyValuePairProperty]
startCommand :: ImageConfigurationProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
port :: Maybe (Value Text)
runtimeEnvironmentSecrets :: Maybe [KeyValuePairProperty]
runtimeEnvironmentVariables :: Maybe [KeyValuePairProperty]
startCommand :: Maybe (Value Text)
..}
    = ImageConfigurationProperty {port :: Maybe (Value Text)
port = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Port" ImageConfigurationProperty
Value Text
newValue, Maybe [KeyValuePairProperty]
Maybe (Value Text)
()
haddock_workaround_ :: ()
runtimeEnvironmentSecrets :: Maybe [KeyValuePairProperty]
runtimeEnvironmentVariables :: Maybe [KeyValuePairProperty]
startCommand :: Maybe (Value Text)
haddock_workaround_ :: ()
runtimeEnvironmentSecrets :: Maybe [KeyValuePairProperty]
runtimeEnvironmentVariables :: Maybe [KeyValuePairProperty]
startCommand :: Maybe (Value Text)
..}
instance Property "RuntimeEnvironmentSecrets" ImageConfigurationProperty where
  type PropertyType "RuntimeEnvironmentSecrets" ImageConfigurationProperty = [KeyValuePairProperty]
  set :: PropertyType "RuntimeEnvironmentSecrets" ImageConfigurationProperty
-> ImageConfigurationProperty -> ImageConfigurationProperty
set PropertyType "RuntimeEnvironmentSecrets" ImageConfigurationProperty
newValue ImageConfigurationProperty {Maybe [KeyValuePairProperty]
Maybe (Value Text)
()
haddock_workaround_ :: ImageConfigurationProperty -> ()
port :: ImageConfigurationProperty -> Maybe (Value Text)
runtimeEnvironmentSecrets :: ImageConfigurationProperty -> Maybe [KeyValuePairProperty]
runtimeEnvironmentVariables :: ImageConfigurationProperty -> Maybe [KeyValuePairProperty]
startCommand :: ImageConfigurationProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
port :: Maybe (Value Text)
runtimeEnvironmentSecrets :: Maybe [KeyValuePairProperty]
runtimeEnvironmentVariables :: Maybe [KeyValuePairProperty]
startCommand :: Maybe (Value Text)
..}
    = ImageConfigurationProperty
        {runtimeEnvironmentSecrets :: Maybe [KeyValuePairProperty]
runtimeEnvironmentSecrets = [KeyValuePairProperty] -> Maybe [KeyValuePairProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [KeyValuePairProperty]
PropertyType "RuntimeEnvironmentSecrets" ImageConfigurationProperty
newValue, Maybe [KeyValuePairProperty]
Maybe (Value Text)
()
haddock_workaround_ :: ()
port :: Maybe (Value Text)
runtimeEnvironmentVariables :: Maybe [KeyValuePairProperty]
startCommand :: Maybe (Value Text)
haddock_workaround_ :: ()
port :: Maybe (Value Text)
runtimeEnvironmentVariables :: Maybe [KeyValuePairProperty]
startCommand :: Maybe (Value Text)
..}
instance Property "RuntimeEnvironmentVariables" ImageConfigurationProperty where
  type PropertyType "RuntimeEnvironmentVariables" ImageConfigurationProperty = [KeyValuePairProperty]
  set :: PropertyType
  "RuntimeEnvironmentVariables" ImageConfigurationProperty
-> ImageConfigurationProperty -> ImageConfigurationProperty
set PropertyType
  "RuntimeEnvironmentVariables" ImageConfigurationProperty
newValue ImageConfigurationProperty {Maybe [KeyValuePairProperty]
Maybe (Value Text)
()
haddock_workaround_ :: ImageConfigurationProperty -> ()
port :: ImageConfigurationProperty -> Maybe (Value Text)
runtimeEnvironmentSecrets :: ImageConfigurationProperty -> Maybe [KeyValuePairProperty]
runtimeEnvironmentVariables :: ImageConfigurationProperty -> Maybe [KeyValuePairProperty]
startCommand :: ImageConfigurationProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
port :: Maybe (Value Text)
runtimeEnvironmentSecrets :: Maybe [KeyValuePairProperty]
runtimeEnvironmentVariables :: Maybe [KeyValuePairProperty]
startCommand :: Maybe (Value Text)
..}
    = ImageConfigurationProperty
        {runtimeEnvironmentVariables :: Maybe [KeyValuePairProperty]
runtimeEnvironmentVariables = [KeyValuePairProperty] -> Maybe [KeyValuePairProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [KeyValuePairProperty]
PropertyType
  "RuntimeEnvironmentVariables" ImageConfigurationProperty
newValue, Maybe [KeyValuePairProperty]
Maybe (Value Text)
()
haddock_workaround_ :: ()
port :: Maybe (Value Text)
runtimeEnvironmentSecrets :: Maybe [KeyValuePairProperty]
startCommand :: Maybe (Value Text)
haddock_workaround_ :: ()
port :: Maybe (Value Text)
runtimeEnvironmentSecrets :: Maybe [KeyValuePairProperty]
startCommand :: Maybe (Value Text)
..}
instance Property "StartCommand" ImageConfigurationProperty where
  type PropertyType "StartCommand" ImageConfigurationProperty = Value Prelude.Text
  set :: PropertyType "StartCommand" ImageConfigurationProperty
-> ImageConfigurationProperty -> ImageConfigurationProperty
set PropertyType "StartCommand" ImageConfigurationProperty
newValue ImageConfigurationProperty {Maybe [KeyValuePairProperty]
Maybe (Value Text)
()
haddock_workaround_ :: ImageConfigurationProperty -> ()
port :: ImageConfigurationProperty -> Maybe (Value Text)
runtimeEnvironmentSecrets :: ImageConfigurationProperty -> Maybe [KeyValuePairProperty]
runtimeEnvironmentVariables :: ImageConfigurationProperty -> Maybe [KeyValuePairProperty]
startCommand :: ImageConfigurationProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
port :: Maybe (Value Text)
runtimeEnvironmentSecrets :: Maybe [KeyValuePairProperty]
runtimeEnvironmentVariables :: Maybe [KeyValuePairProperty]
startCommand :: Maybe (Value Text)
..}
    = ImageConfigurationProperty
        {startCommand :: Maybe (Value Text)
startCommand = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "StartCommand" ImageConfigurationProperty
Value Text
newValue, Maybe [KeyValuePairProperty]
Maybe (Value Text)
()
haddock_workaround_ :: ()
port :: Maybe (Value Text)
runtimeEnvironmentSecrets :: Maybe [KeyValuePairProperty]
runtimeEnvironmentVariables :: Maybe [KeyValuePairProperty]
haddock_workaround_ :: ()
port :: Maybe (Value Text)
runtimeEnvironmentSecrets :: Maybe [KeyValuePairProperty]
runtimeEnvironmentVariables :: Maybe [KeyValuePairProperty]
..}