module Stratosphere.ElasticBeanstalk.ConfigurationTemplate.SourceConfigurationProperty (
SourceConfigurationProperty(..), mkSourceConfigurationProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data SourceConfigurationProperty
=
SourceConfigurationProperty {SourceConfigurationProperty -> ()
haddock_workaround_ :: (),
SourceConfigurationProperty -> Value Text
applicationName :: (Value Prelude.Text),
SourceConfigurationProperty -> Value Text
templateName :: (Value Prelude.Text)}
deriving stock (SourceConfigurationProperty -> SourceConfigurationProperty -> Bool
(SourceConfigurationProperty
-> SourceConfigurationProperty -> Bool)
-> (SourceConfigurationProperty
-> SourceConfigurationProperty -> Bool)
-> Eq SourceConfigurationProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SourceConfigurationProperty -> SourceConfigurationProperty -> Bool
== :: SourceConfigurationProperty -> SourceConfigurationProperty -> Bool
$c/= :: SourceConfigurationProperty -> SourceConfigurationProperty -> Bool
/= :: SourceConfigurationProperty -> SourceConfigurationProperty -> Bool
Prelude.Eq, Int -> SourceConfigurationProperty -> ShowS
[SourceConfigurationProperty] -> ShowS
SourceConfigurationProperty -> String
(Int -> SourceConfigurationProperty -> ShowS)
-> (SourceConfigurationProperty -> String)
-> ([SourceConfigurationProperty] -> ShowS)
-> Show SourceConfigurationProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> SourceConfigurationProperty -> ShowS
showsPrec :: Int -> SourceConfigurationProperty -> ShowS
$cshow :: SourceConfigurationProperty -> String
show :: SourceConfigurationProperty -> String
$cshowList :: [SourceConfigurationProperty] -> ShowS
showList :: [SourceConfigurationProperty] -> ShowS
Prelude.Show)
mkSourceConfigurationProperty ::
Value Prelude.Text
-> Value Prelude.Text -> SourceConfigurationProperty
mkSourceConfigurationProperty :: Value Text -> Value Text -> SourceConfigurationProperty
mkSourceConfigurationProperty Value Text
applicationName Value Text
templateName
= SourceConfigurationProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), applicationName :: Value Text
applicationName = Value Text
applicationName,
templateName :: Value Text
templateName = Value Text
templateName}
instance ToResourceProperties SourceConfigurationProperty where
toResourceProperties :: SourceConfigurationProperty -> ResourceProperties
toResourceProperties SourceConfigurationProperty {()
Value Text
haddock_workaround_ :: SourceConfigurationProperty -> ()
applicationName :: SourceConfigurationProperty -> Value Text
templateName :: SourceConfigurationProperty -> Value Text
haddock_workaround_ :: ()
applicationName :: Value Text
templateName :: Value Text
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::ElasticBeanstalk::ConfigurationTemplate.SourceConfiguration",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Key
"ApplicationName" 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
applicationName,
Key
"TemplateName" 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
templateName]}
instance JSON.ToJSON SourceConfigurationProperty where
toJSON :: SourceConfigurationProperty -> Value
toJSON SourceConfigurationProperty {()
Value Text
haddock_workaround_ :: SourceConfigurationProperty -> ()
applicationName :: SourceConfigurationProperty -> Value Text
templateName :: SourceConfigurationProperty -> Value Text
haddock_workaround_ :: ()
applicationName :: Value Text
templateName :: Value Text
..}
= [(Key, Value)] -> Value
JSON.object
[Key
"ApplicationName" 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
applicationName,
Key
"TemplateName" 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
templateName]
instance Property "ApplicationName" SourceConfigurationProperty where
type PropertyType "ApplicationName" SourceConfigurationProperty = Value Prelude.Text
set :: PropertyType "ApplicationName" SourceConfigurationProperty
-> SourceConfigurationProperty -> SourceConfigurationProperty
set PropertyType "ApplicationName" SourceConfigurationProperty
newValue SourceConfigurationProperty {()
Value Text
haddock_workaround_ :: SourceConfigurationProperty -> ()
applicationName :: SourceConfigurationProperty -> Value Text
templateName :: SourceConfigurationProperty -> Value Text
haddock_workaround_ :: ()
applicationName :: Value Text
templateName :: Value Text
..}
= SourceConfigurationProperty {applicationName :: Value Text
applicationName = PropertyType "ApplicationName" SourceConfigurationProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
templateName :: Value Text
haddock_workaround_ :: ()
templateName :: Value Text
..}
instance Property "TemplateName" SourceConfigurationProperty where
type PropertyType "TemplateName" SourceConfigurationProperty = Value Prelude.Text
set :: PropertyType "TemplateName" SourceConfigurationProperty
-> SourceConfigurationProperty -> SourceConfigurationProperty
set PropertyType "TemplateName" SourceConfigurationProperty
newValue SourceConfigurationProperty {()
Value Text
haddock_workaround_ :: SourceConfigurationProperty -> ()
applicationName :: SourceConfigurationProperty -> Value Text
templateName :: SourceConfigurationProperty -> Value Text
haddock_workaround_ :: ()
applicationName :: Value Text
templateName :: Value Text
..}
= SourceConfigurationProperty {templateName :: Value Text
templateName = PropertyType "TemplateName" SourceConfigurationProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
applicationName :: Value Text
haddock_workaround_ :: ()
applicationName :: Value Text
..}