module Stratosphere.DLM.LifecyclePolicy.CrossRegionCopyDeprecateRuleProperty (
        CrossRegionCopyDeprecateRuleProperty(..),
        mkCrossRegionCopyDeprecateRuleProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data CrossRegionCopyDeprecateRuleProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-crossregioncopydeprecaterule.html>
    CrossRegionCopyDeprecateRuleProperty {CrossRegionCopyDeprecateRuleProperty -> ()
haddock_workaround_ :: (),
                                          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-crossregioncopydeprecaterule.html#cfn-dlm-lifecyclepolicy-crossregioncopydeprecaterule-interval>
                                          CrossRegionCopyDeprecateRuleProperty -> Value Integer
interval :: (Value Prelude.Integer),
                                          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-crossregioncopydeprecaterule.html#cfn-dlm-lifecyclepolicy-crossregioncopydeprecaterule-intervalunit>
                                          CrossRegionCopyDeprecateRuleProperty -> Value Text
intervalUnit :: (Value Prelude.Text)}
  deriving stock (CrossRegionCopyDeprecateRuleProperty
-> CrossRegionCopyDeprecateRuleProperty -> Bool
(CrossRegionCopyDeprecateRuleProperty
 -> CrossRegionCopyDeprecateRuleProperty -> Bool)
-> (CrossRegionCopyDeprecateRuleProperty
    -> CrossRegionCopyDeprecateRuleProperty -> Bool)
-> Eq CrossRegionCopyDeprecateRuleProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CrossRegionCopyDeprecateRuleProperty
-> CrossRegionCopyDeprecateRuleProperty -> Bool
== :: CrossRegionCopyDeprecateRuleProperty
-> CrossRegionCopyDeprecateRuleProperty -> Bool
$c/= :: CrossRegionCopyDeprecateRuleProperty
-> CrossRegionCopyDeprecateRuleProperty -> Bool
/= :: CrossRegionCopyDeprecateRuleProperty
-> CrossRegionCopyDeprecateRuleProperty -> Bool
Prelude.Eq, Int -> CrossRegionCopyDeprecateRuleProperty -> ShowS
[CrossRegionCopyDeprecateRuleProperty] -> ShowS
CrossRegionCopyDeprecateRuleProperty -> String
(Int -> CrossRegionCopyDeprecateRuleProperty -> ShowS)
-> (CrossRegionCopyDeprecateRuleProperty -> String)
-> ([CrossRegionCopyDeprecateRuleProperty] -> ShowS)
-> Show CrossRegionCopyDeprecateRuleProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> CrossRegionCopyDeprecateRuleProperty -> ShowS
showsPrec :: Int -> CrossRegionCopyDeprecateRuleProperty -> ShowS
$cshow :: CrossRegionCopyDeprecateRuleProperty -> String
show :: CrossRegionCopyDeprecateRuleProperty -> String
$cshowList :: [CrossRegionCopyDeprecateRuleProperty] -> ShowS
showList :: [CrossRegionCopyDeprecateRuleProperty] -> ShowS
Prelude.Show)
mkCrossRegionCopyDeprecateRuleProperty ::
  Value Prelude.Integer
  -> Value Prelude.Text -> CrossRegionCopyDeprecateRuleProperty
mkCrossRegionCopyDeprecateRuleProperty :: Value Integer -> Value Text -> CrossRegionCopyDeprecateRuleProperty
mkCrossRegionCopyDeprecateRuleProperty Value Integer
interval Value Text
intervalUnit
  = CrossRegionCopyDeprecateRuleProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), interval :: Value Integer
interval = Value Integer
interval,
       intervalUnit :: Value Text
intervalUnit = Value Text
intervalUnit}
instance ToResourceProperties CrossRegionCopyDeprecateRuleProperty where
  toResourceProperties :: CrossRegionCopyDeprecateRuleProperty -> ResourceProperties
toResourceProperties CrossRegionCopyDeprecateRuleProperty {()
Value Integer
Value Text
haddock_workaround_ :: CrossRegionCopyDeprecateRuleProperty -> ()
interval :: CrossRegionCopyDeprecateRuleProperty -> Value Integer
intervalUnit :: CrossRegionCopyDeprecateRuleProperty -> Value Text
haddock_workaround_ :: ()
interval :: Value Integer
intervalUnit :: Value Text
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::DLM::LifecyclePolicy.CrossRegionCopyDeprecateRule",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"Interval" 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
interval,
                       Key
"IntervalUnit" 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
intervalUnit]}
instance JSON.ToJSON CrossRegionCopyDeprecateRuleProperty where
  toJSON :: CrossRegionCopyDeprecateRuleProperty -> Value
toJSON CrossRegionCopyDeprecateRuleProperty {()
Value Integer
Value Text
haddock_workaround_ :: CrossRegionCopyDeprecateRuleProperty -> ()
interval :: CrossRegionCopyDeprecateRuleProperty -> Value Integer
intervalUnit :: CrossRegionCopyDeprecateRuleProperty -> Value Text
haddock_workaround_ :: ()
interval :: Value Integer
intervalUnit :: Value Text
..}
    = [(Key, Value)] -> Value
JSON.object
        [Key
"Interval" 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
interval, Key
"IntervalUnit" 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
intervalUnit]
instance Property "Interval" CrossRegionCopyDeprecateRuleProperty where
  type PropertyType "Interval" CrossRegionCopyDeprecateRuleProperty = Value Prelude.Integer
  set :: PropertyType "Interval" CrossRegionCopyDeprecateRuleProperty
-> CrossRegionCopyDeprecateRuleProperty
-> CrossRegionCopyDeprecateRuleProperty
set PropertyType "Interval" CrossRegionCopyDeprecateRuleProperty
newValue CrossRegionCopyDeprecateRuleProperty {()
Value Integer
Value Text
haddock_workaround_ :: CrossRegionCopyDeprecateRuleProperty -> ()
interval :: CrossRegionCopyDeprecateRuleProperty -> Value Integer
intervalUnit :: CrossRegionCopyDeprecateRuleProperty -> Value Text
haddock_workaround_ :: ()
interval :: Value Integer
intervalUnit :: Value Text
..}
    = CrossRegionCopyDeprecateRuleProperty {interval :: Value Integer
interval = PropertyType "Interval" CrossRegionCopyDeprecateRuleProperty
Value Integer
newValue, ()
Value Text
haddock_workaround_ :: ()
intervalUnit :: Value Text
haddock_workaround_ :: ()
intervalUnit :: Value Text
..}
instance Property "IntervalUnit" CrossRegionCopyDeprecateRuleProperty where
  type PropertyType "IntervalUnit" CrossRegionCopyDeprecateRuleProperty = Value Prelude.Text
  set :: PropertyType "IntervalUnit" CrossRegionCopyDeprecateRuleProperty
-> CrossRegionCopyDeprecateRuleProperty
-> CrossRegionCopyDeprecateRuleProperty
set PropertyType "IntervalUnit" CrossRegionCopyDeprecateRuleProperty
newValue CrossRegionCopyDeprecateRuleProperty {()
Value Integer
Value Text
haddock_workaround_ :: CrossRegionCopyDeprecateRuleProperty -> ()
interval :: CrossRegionCopyDeprecateRuleProperty -> Value Integer
intervalUnit :: CrossRegionCopyDeprecateRuleProperty -> Value Text
haddock_workaround_ :: ()
interval :: Value Integer
intervalUnit :: Value Text
..}
    = CrossRegionCopyDeprecateRuleProperty
        {intervalUnit :: Value Text
intervalUnit = PropertyType "IntervalUnit" CrossRegionCopyDeprecateRuleProperty
Value Text
newValue, ()
Value Integer
haddock_workaround_ :: ()
interval :: Value Integer
haddock_workaround_ :: ()
interval :: Value Integer
..}