packages feed

stratosphere-arcregionswitch-1.0.0: gen/Stratosphere/ARCRegionSwitch/Plan/TriggerConditionProperty.hs

module Stratosphere.ARCRegionSwitch.Plan.TriggerConditionProperty (
        TriggerConditionProperty(..), mkTriggerConditionProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data TriggerConditionProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-arcregionswitch-plan-triggercondition.html>
    TriggerConditionProperty {haddock_workaround_ :: (),
                              -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-arcregionswitch-plan-triggercondition.html#cfn-arcregionswitch-plan-triggercondition-associatedalarmname>
                              associatedAlarmName :: (Value Prelude.Text),
                              -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-arcregionswitch-plan-triggercondition.html#cfn-arcregionswitch-plan-triggercondition-condition>
                              condition :: (Value Prelude.Text)}
  deriving stock (Prelude.Eq, Prelude.Show)
mkTriggerConditionProperty ::
  Value Prelude.Text
  -> Value Prelude.Text -> TriggerConditionProperty
mkTriggerConditionProperty associatedAlarmName condition
  = TriggerConditionProperty
      {haddock_workaround_ = (),
       associatedAlarmName = associatedAlarmName, condition = condition}
instance ToResourceProperties TriggerConditionProperty where
  toResourceProperties TriggerConditionProperty {..}
    = ResourceProperties
        {awsType = "AWS::ARCRegionSwitch::Plan.TriggerCondition",
         supportsTags = Prelude.False,
         properties = ["AssociatedAlarmName" JSON..= associatedAlarmName,
                       "Condition" JSON..= condition]}
instance JSON.ToJSON TriggerConditionProperty where
  toJSON TriggerConditionProperty {..}
    = JSON.object
        ["AssociatedAlarmName" JSON..= associatedAlarmName,
         "Condition" JSON..= condition]
instance Property "AssociatedAlarmName" TriggerConditionProperty where
  type PropertyType "AssociatedAlarmName" TriggerConditionProperty = Value Prelude.Text
  set newValue TriggerConditionProperty {..}
    = TriggerConditionProperty {associatedAlarmName = newValue, ..}
instance Property "Condition" TriggerConditionProperty where
  type PropertyType "Condition" TriggerConditionProperty = Value Prelude.Text
  set newValue TriggerConditionProperty {..}
    = TriggerConditionProperty {condition = newValue, ..}