module Stratosphere.Events.Endpoint.RoutingConfigProperty (
        module Exports, RoutingConfigProperty(..), mkRoutingConfigProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.Events.Endpoint.FailoverConfigProperty as Exports
import Stratosphere.ResourceProperties
data RoutingConfigProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-endpoint-routingconfig.html>
    RoutingConfigProperty {RoutingConfigProperty -> ()
haddock_workaround_ :: (),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-endpoint-routingconfig.html#cfn-events-endpoint-routingconfig-failoverconfig>
                           RoutingConfigProperty -> FailoverConfigProperty
failoverConfig :: FailoverConfigProperty}
  deriving stock (RoutingConfigProperty -> RoutingConfigProperty -> Bool
(RoutingConfigProperty -> RoutingConfigProperty -> Bool)
-> (RoutingConfigProperty -> RoutingConfigProperty -> Bool)
-> Eq RoutingConfigProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RoutingConfigProperty -> RoutingConfigProperty -> Bool
== :: RoutingConfigProperty -> RoutingConfigProperty -> Bool
$c/= :: RoutingConfigProperty -> RoutingConfigProperty -> Bool
/= :: RoutingConfigProperty -> RoutingConfigProperty -> Bool
Prelude.Eq, Int -> RoutingConfigProperty -> ShowS
[RoutingConfigProperty] -> ShowS
RoutingConfigProperty -> String
(Int -> RoutingConfigProperty -> ShowS)
-> (RoutingConfigProperty -> String)
-> ([RoutingConfigProperty] -> ShowS)
-> Show RoutingConfigProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> RoutingConfigProperty -> ShowS
showsPrec :: Int -> RoutingConfigProperty -> ShowS
$cshow :: RoutingConfigProperty -> String
show :: RoutingConfigProperty -> String
$cshowList :: [RoutingConfigProperty] -> ShowS
showList :: [RoutingConfigProperty] -> ShowS
Prelude.Show)
mkRoutingConfigProperty ::
  FailoverConfigProperty -> RoutingConfigProperty
mkRoutingConfigProperty :: FailoverConfigProperty -> RoutingConfigProperty
mkRoutingConfigProperty FailoverConfigProperty
failoverConfig
  = RoutingConfigProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), failoverConfig :: FailoverConfigProperty
failoverConfig = FailoverConfigProperty
failoverConfig}
instance ToResourceProperties RoutingConfigProperty where
  toResourceProperties :: RoutingConfigProperty -> ResourceProperties
toResourceProperties RoutingConfigProperty {()
FailoverConfigProperty
haddock_workaround_ :: RoutingConfigProperty -> ()
failoverConfig :: RoutingConfigProperty -> FailoverConfigProperty
haddock_workaround_ :: ()
failoverConfig :: FailoverConfigProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::Events::Endpoint.RoutingConfig",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"FailoverConfig" Key -> FailoverConfigProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= FailoverConfigProperty
failoverConfig]}
instance JSON.ToJSON RoutingConfigProperty where
  toJSON :: RoutingConfigProperty -> Value
toJSON RoutingConfigProperty {()
FailoverConfigProperty
haddock_workaround_ :: RoutingConfigProperty -> ()
failoverConfig :: RoutingConfigProperty -> FailoverConfigProperty
haddock_workaround_ :: ()
failoverConfig :: FailoverConfigProperty
..}
    = [(Key, Value)] -> Value
JSON.object [Key
"FailoverConfig" Key -> FailoverConfigProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= FailoverConfigProperty
failoverConfig]
instance Property "FailoverConfig" RoutingConfigProperty where
  type PropertyType "FailoverConfig" RoutingConfigProperty = FailoverConfigProperty
  set :: PropertyType "FailoverConfig" RoutingConfigProperty
-> RoutingConfigProperty -> RoutingConfigProperty
set PropertyType "FailoverConfig" RoutingConfigProperty
newValue RoutingConfigProperty {()
FailoverConfigProperty
haddock_workaround_ :: RoutingConfigProperty -> ()
failoverConfig :: RoutingConfigProperty -> FailoverConfigProperty
haddock_workaround_ :: ()
failoverConfig :: FailoverConfigProperty
..}
    = RoutingConfigProperty {failoverConfig :: FailoverConfigProperty
failoverConfig = PropertyType "FailoverConfig" RoutingConfigProperty
FailoverConfigProperty
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}