module Stratosphere.Route53RecoveryControl.SafetyRule.AssertionRuleProperty (
        AssertionRuleProperty(..), mkAssertionRuleProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data AssertionRuleProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53recoverycontrol-safetyrule-assertionrule.html>
    AssertionRuleProperty {AssertionRuleProperty -> ()
haddock_workaround_ :: (),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53recoverycontrol-safetyrule-assertionrule.html#cfn-route53recoverycontrol-safetyrule-assertionrule-assertedcontrols>
                           AssertionRuleProperty -> ValueList Text
assertedControls :: (ValueList Prelude.Text),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53recoverycontrol-safetyrule-assertionrule.html#cfn-route53recoverycontrol-safetyrule-assertionrule-waitperiodms>
                           AssertionRuleProperty -> Value Integer
waitPeriodMs :: (Value Prelude.Integer)}
  deriving stock (AssertionRuleProperty -> AssertionRuleProperty -> Bool
(AssertionRuleProperty -> AssertionRuleProperty -> Bool)
-> (AssertionRuleProperty -> AssertionRuleProperty -> Bool)
-> Eq AssertionRuleProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AssertionRuleProperty -> AssertionRuleProperty -> Bool
== :: AssertionRuleProperty -> AssertionRuleProperty -> Bool
$c/= :: AssertionRuleProperty -> AssertionRuleProperty -> Bool
/= :: AssertionRuleProperty -> AssertionRuleProperty -> Bool
Prelude.Eq, Int -> AssertionRuleProperty -> ShowS
[AssertionRuleProperty] -> ShowS
AssertionRuleProperty -> String
(Int -> AssertionRuleProperty -> ShowS)
-> (AssertionRuleProperty -> String)
-> ([AssertionRuleProperty] -> ShowS)
-> Show AssertionRuleProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> AssertionRuleProperty -> ShowS
showsPrec :: Int -> AssertionRuleProperty -> ShowS
$cshow :: AssertionRuleProperty -> String
show :: AssertionRuleProperty -> String
$cshowList :: [AssertionRuleProperty] -> ShowS
showList :: [AssertionRuleProperty] -> ShowS
Prelude.Show)
mkAssertionRuleProperty ::
  ValueList Prelude.Text
  -> Value Prelude.Integer -> AssertionRuleProperty
mkAssertionRuleProperty :: ValueList Text -> Value Integer -> AssertionRuleProperty
mkAssertionRuleProperty ValueList Text
assertedControls Value Integer
waitPeriodMs
  = AssertionRuleProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), assertedControls :: ValueList Text
assertedControls = ValueList Text
assertedControls,
       waitPeriodMs :: Value Integer
waitPeriodMs = Value Integer
waitPeriodMs}
instance ToResourceProperties AssertionRuleProperty where
  toResourceProperties :: AssertionRuleProperty -> ResourceProperties
toResourceProperties AssertionRuleProperty {()
ValueList Text
Value Integer
haddock_workaround_ :: AssertionRuleProperty -> ()
assertedControls :: AssertionRuleProperty -> ValueList Text
waitPeriodMs :: AssertionRuleProperty -> Value Integer
haddock_workaround_ :: ()
assertedControls :: ValueList Text
waitPeriodMs :: Value Integer
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::Route53RecoveryControl::SafetyRule.AssertionRule",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"AssertedControls" Key -> ValueList Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ValueList Text
assertedControls,
                       Key
"WaitPeriodMs" Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Integer
waitPeriodMs]}
instance JSON.ToJSON AssertionRuleProperty where
  toJSON :: AssertionRuleProperty -> Value
toJSON AssertionRuleProperty {()
ValueList Text
Value Integer
haddock_workaround_ :: AssertionRuleProperty -> ()
assertedControls :: AssertionRuleProperty -> ValueList Text
waitPeriodMs :: AssertionRuleProperty -> Value Integer
haddock_workaround_ :: ()
assertedControls :: ValueList Text
waitPeriodMs :: Value Integer
..}
    = [(Key, Value)] -> Value
JSON.object
        [Key
"AssertedControls" Key -> ValueList Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ValueList Text
assertedControls,
         Key
"WaitPeriodMs" Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Integer
waitPeriodMs]
instance Property "AssertedControls" AssertionRuleProperty where
  type PropertyType "AssertedControls" AssertionRuleProperty = ValueList Prelude.Text
  set :: PropertyType "AssertedControls" AssertionRuleProperty
-> AssertionRuleProperty -> AssertionRuleProperty
set PropertyType "AssertedControls" AssertionRuleProperty
newValue AssertionRuleProperty {()
ValueList Text
Value Integer
haddock_workaround_ :: AssertionRuleProperty -> ()
assertedControls :: AssertionRuleProperty -> ValueList Text
waitPeriodMs :: AssertionRuleProperty -> Value Integer
haddock_workaround_ :: ()
assertedControls :: ValueList Text
waitPeriodMs :: Value Integer
..}
    = AssertionRuleProperty {assertedControls :: ValueList Text
assertedControls = PropertyType "AssertedControls" AssertionRuleProperty
ValueList Text
newValue, ()
Value Integer
haddock_workaround_ :: ()
waitPeriodMs :: Value Integer
haddock_workaround_ :: ()
waitPeriodMs :: Value Integer
..}
instance Property "WaitPeriodMs" AssertionRuleProperty where
  type PropertyType "WaitPeriodMs" AssertionRuleProperty = Value Prelude.Integer
  set :: PropertyType "WaitPeriodMs" AssertionRuleProperty
-> AssertionRuleProperty -> AssertionRuleProperty
set PropertyType "WaitPeriodMs" AssertionRuleProperty
newValue AssertionRuleProperty {()
ValueList Text
Value Integer
haddock_workaround_ :: AssertionRuleProperty -> ()
assertedControls :: AssertionRuleProperty -> ValueList Text
waitPeriodMs :: AssertionRuleProperty -> Value Integer
haddock_workaround_ :: ()
assertedControls :: ValueList Text
waitPeriodMs :: Value Integer
..}
    = AssertionRuleProperty {waitPeriodMs :: Value Integer
waitPeriodMs = PropertyType "WaitPeriodMs" AssertionRuleProperty
Value Integer
newValue, ()
ValueList Text
haddock_workaround_ :: ()
assertedControls :: ValueList Text
haddock_workaround_ :: ()
assertedControls :: ValueList Text
..}