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