stratosphere-events-1.0.0: gen/Stratosphere/Events/Endpoint/FailoverConfigProperty.hs

module Stratosphere.Events.Endpoint.FailoverConfigProperty (
        module Exports, FailoverConfigProperty(..),
        mkFailoverConfigProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.Events.Endpoint.PrimaryProperty as Exports
import {-# SOURCE #-} Stratosphere.Events.Endpoint.SecondaryProperty as Exports
import Stratosphere.ResourceProperties
data FailoverConfigProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-endpoint-failoverconfig.html>
    FailoverConfigProperty {haddock_workaround_ :: (),
                            -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-endpoint-failoverconfig.html#cfn-events-endpoint-failoverconfig-primary>
                            primary :: PrimaryProperty,
                            -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-endpoint-failoverconfig.html#cfn-events-endpoint-failoverconfig-secondary>
                            secondary :: SecondaryProperty}
  deriving stock (Prelude.Eq, Prelude.Show)
mkFailoverConfigProperty ::
  PrimaryProperty -> SecondaryProperty -> FailoverConfigProperty
mkFailoverConfigProperty primary secondary
  = FailoverConfigProperty
      {haddock_workaround_ = (), primary = primary,
       secondary = secondary}
instance ToResourceProperties FailoverConfigProperty where
  toResourceProperties FailoverConfigProperty {..}
    = ResourceProperties
        {awsType = "AWS::Events::Endpoint.FailoverConfig",
         supportsTags = Prelude.False,
         properties = ["Primary" JSON..= primary,
                       "Secondary" JSON..= secondary]}
instance JSON.ToJSON FailoverConfigProperty where
  toJSON FailoverConfigProperty {..}
    = JSON.object
        ["Primary" JSON..= primary, "Secondary" JSON..= secondary]
instance Property "Primary" FailoverConfigProperty where
  type PropertyType "Primary" FailoverConfigProperty = PrimaryProperty
  set newValue FailoverConfigProperty {..}
    = FailoverConfigProperty {primary = newValue, ..}
instance Property "Secondary" FailoverConfigProperty where
  type PropertyType "Secondary" FailoverConfigProperty = SecondaryProperty
  set newValue FailoverConfigProperty {..}
    = FailoverConfigProperty {secondary = newValue, ..}