module Stratosphere.AppIntegrations.Application.ApplicationSourceConfigProperty (
module Exports, ApplicationSourceConfigProperty(..),
mkApplicationSourceConfigProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.AppIntegrations.Application.ExternalUrlConfigProperty as Exports
import Stratosphere.ResourceProperties
data ApplicationSourceConfigProperty
=
ApplicationSourceConfigProperty {ApplicationSourceConfigProperty -> ()
haddock_workaround_ :: (),
ApplicationSourceConfigProperty -> ExternalUrlConfigProperty
externalUrlConfig :: ExternalUrlConfigProperty}
deriving stock (ApplicationSourceConfigProperty
-> ApplicationSourceConfigProperty -> Bool
(ApplicationSourceConfigProperty
-> ApplicationSourceConfigProperty -> Bool)
-> (ApplicationSourceConfigProperty
-> ApplicationSourceConfigProperty -> Bool)
-> Eq ApplicationSourceConfigProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ApplicationSourceConfigProperty
-> ApplicationSourceConfigProperty -> Bool
== :: ApplicationSourceConfigProperty
-> ApplicationSourceConfigProperty -> Bool
$c/= :: ApplicationSourceConfigProperty
-> ApplicationSourceConfigProperty -> Bool
/= :: ApplicationSourceConfigProperty
-> ApplicationSourceConfigProperty -> Bool
Prelude.Eq, Int -> ApplicationSourceConfigProperty -> ShowS
[ApplicationSourceConfigProperty] -> ShowS
ApplicationSourceConfigProperty -> String
(Int -> ApplicationSourceConfigProperty -> ShowS)
-> (ApplicationSourceConfigProperty -> String)
-> ([ApplicationSourceConfigProperty] -> ShowS)
-> Show ApplicationSourceConfigProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ApplicationSourceConfigProperty -> ShowS
showsPrec :: Int -> ApplicationSourceConfigProperty -> ShowS
$cshow :: ApplicationSourceConfigProperty -> String
show :: ApplicationSourceConfigProperty -> String
$cshowList :: [ApplicationSourceConfigProperty] -> ShowS
showList :: [ApplicationSourceConfigProperty] -> ShowS
Prelude.Show)
mkApplicationSourceConfigProperty ::
ExternalUrlConfigProperty -> ApplicationSourceConfigProperty
mkApplicationSourceConfigProperty :: ExternalUrlConfigProperty -> ApplicationSourceConfigProperty
mkApplicationSourceConfigProperty ExternalUrlConfigProperty
externalUrlConfig
= ApplicationSourceConfigProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), externalUrlConfig :: ExternalUrlConfigProperty
externalUrlConfig = ExternalUrlConfigProperty
externalUrlConfig}
instance ToResourceProperties ApplicationSourceConfigProperty where
toResourceProperties :: ApplicationSourceConfigProperty -> ResourceProperties
toResourceProperties ApplicationSourceConfigProperty {()
ExternalUrlConfigProperty
haddock_workaround_ :: ApplicationSourceConfigProperty -> ()
externalUrlConfig :: ApplicationSourceConfigProperty -> ExternalUrlConfigProperty
haddock_workaround_ :: ()
externalUrlConfig :: ExternalUrlConfigProperty
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::AppIntegrations::Application.ApplicationSourceConfig",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Key
"ExternalUrlConfig" Key -> ExternalUrlConfigProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ExternalUrlConfigProperty
externalUrlConfig]}
instance JSON.ToJSON ApplicationSourceConfigProperty where
toJSON :: ApplicationSourceConfigProperty -> Value
toJSON ApplicationSourceConfigProperty {()
ExternalUrlConfigProperty
haddock_workaround_ :: ApplicationSourceConfigProperty -> ()
externalUrlConfig :: ApplicationSourceConfigProperty -> ExternalUrlConfigProperty
haddock_workaround_ :: ()
externalUrlConfig :: ExternalUrlConfigProperty
..}
= [(Key, Value)] -> Value
JSON.object [Key
"ExternalUrlConfig" Key -> ExternalUrlConfigProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ExternalUrlConfigProperty
externalUrlConfig]
instance Property "ExternalUrlConfig" ApplicationSourceConfigProperty where
type PropertyType "ExternalUrlConfig" ApplicationSourceConfigProperty = ExternalUrlConfigProperty
set :: PropertyType "ExternalUrlConfig" ApplicationSourceConfigProperty
-> ApplicationSourceConfigProperty
-> ApplicationSourceConfigProperty
set PropertyType "ExternalUrlConfig" ApplicationSourceConfigProperty
newValue ApplicationSourceConfigProperty {()
ExternalUrlConfigProperty
haddock_workaround_ :: ApplicationSourceConfigProperty -> ()
externalUrlConfig :: ApplicationSourceConfigProperty -> ExternalUrlConfigProperty
haddock_workaround_ :: ()
externalUrlConfig :: ExternalUrlConfigProperty
..}
= ApplicationSourceConfigProperty
{externalUrlConfig :: ExternalUrlConfigProperty
externalUrlConfig = PropertyType "ExternalUrlConfig" ApplicationSourceConfigProperty
ExternalUrlConfigProperty
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}