module Stratosphere.Scheduler.Schedule.EventBridgeParametersProperty (
EventBridgeParametersProperty(..), mkEventBridgeParametersProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data EventBridgeParametersProperty
=
EventBridgeParametersProperty {EventBridgeParametersProperty -> ()
haddock_workaround_ :: (),
EventBridgeParametersProperty -> Value Text
detailType :: (Value Prelude.Text),
EventBridgeParametersProperty -> Value Text
source :: (Value Prelude.Text)}
deriving stock (EventBridgeParametersProperty
-> EventBridgeParametersProperty -> Bool
(EventBridgeParametersProperty
-> EventBridgeParametersProperty -> Bool)
-> (EventBridgeParametersProperty
-> EventBridgeParametersProperty -> Bool)
-> Eq EventBridgeParametersProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: EventBridgeParametersProperty
-> EventBridgeParametersProperty -> Bool
== :: EventBridgeParametersProperty
-> EventBridgeParametersProperty -> Bool
$c/= :: EventBridgeParametersProperty
-> EventBridgeParametersProperty -> Bool
/= :: EventBridgeParametersProperty
-> EventBridgeParametersProperty -> Bool
Prelude.Eq, Int -> EventBridgeParametersProperty -> ShowS
[EventBridgeParametersProperty] -> ShowS
EventBridgeParametersProperty -> String
(Int -> EventBridgeParametersProperty -> ShowS)
-> (EventBridgeParametersProperty -> String)
-> ([EventBridgeParametersProperty] -> ShowS)
-> Show EventBridgeParametersProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> EventBridgeParametersProperty -> ShowS
showsPrec :: Int -> EventBridgeParametersProperty -> ShowS
$cshow :: EventBridgeParametersProperty -> String
show :: EventBridgeParametersProperty -> String
$cshowList :: [EventBridgeParametersProperty] -> ShowS
showList :: [EventBridgeParametersProperty] -> ShowS
Prelude.Show)
mkEventBridgeParametersProperty ::
Value Prelude.Text
-> Value Prelude.Text -> EventBridgeParametersProperty
mkEventBridgeParametersProperty :: Value Text -> Value Text -> EventBridgeParametersProperty
mkEventBridgeParametersProperty Value Text
detailType Value Text
source
= EventBridgeParametersProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), detailType :: Value Text
detailType = Value Text
detailType,
source :: Value Text
source = Value Text
source}
instance ToResourceProperties EventBridgeParametersProperty where
toResourceProperties :: EventBridgeParametersProperty -> ResourceProperties
toResourceProperties EventBridgeParametersProperty {()
Value Text
haddock_workaround_ :: EventBridgeParametersProperty -> ()
detailType :: EventBridgeParametersProperty -> Value Text
source :: EventBridgeParametersProperty -> Value Text
haddock_workaround_ :: ()
detailType :: Value Text
source :: Value Text
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::Scheduler::Schedule.EventBridgeParameters",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Key
"DetailType" 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
detailType,
Key
"Source" 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
source]}
instance JSON.ToJSON EventBridgeParametersProperty where
toJSON :: EventBridgeParametersProperty -> Value
toJSON EventBridgeParametersProperty {()
Value Text
haddock_workaround_ :: EventBridgeParametersProperty -> ()
detailType :: EventBridgeParametersProperty -> Value Text
source :: EventBridgeParametersProperty -> Value Text
haddock_workaround_ :: ()
detailType :: Value Text
source :: Value Text
..}
= [(Key, Value)] -> Value
JSON.object
[Key
"DetailType" 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
detailType, Key
"Source" 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
source]
instance Property "DetailType" EventBridgeParametersProperty where
type PropertyType "DetailType" EventBridgeParametersProperty = Value Prelude.Text
set :: PropertyType "DetailType" EventBridgeParametersProperty
-> EventBridgeParametersProperty -> EventBridgeParametersProperty
set PropertyType "DetailType" EventBridgeParametersProperty
newValue EventBridgeParametersProperty {()
Value Text
haddock_workaround_ :: EventBridgeParametersProperty -> ()
detailType :: EventBridgeParametersProperty -> Value Text
source :: EventBridgeParametersProperty -> Value Text
haddock_workaround_ :: ()
detailType :: Value Text
source :: Value Text
..}
= EventBridgeParametersProperty {detailType :: Value Text
detailType = PropertyType "DetailType" EventBridgeParametersProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
source :: Value Text
haddock_workaround_ :: ()
source :: Value Text
..}
instance Property "Source" EventBridgeParametersProperty where
type PropertyType "Source" EventBridgeParametersProperty = Value Prelude.Text
set :: PropertyType "Source" EventBridgeParametersProperty
-> EventBridgeParametersProperty -> EventBridgeParametersProperty
set PropertyType "Source" EventBridgeParametersProperty
newValue EventBridgeParametersProperty {()
Value Text
haddock_workaround_ :: EventBridgeParametersProperty -> ()
detailType :: EventBridgeParametersProperty -> Value Text
source :: EventBridgeParametersProperty -> Value Text
haddock_workaround_ :: ()
detailType :: Value Text
source :: Value Text
..}
= EventBridgeParametersProperty {source :: Value Text
source = PropertyType "Source" EventBridgeParametersProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
detailType :: Value Text
haddock_workaround_ :: ()
detailType :: Value Text
..}