module Stratosphere.DLM.LifecyclePolicy.ArchiveRuleProperty (
        module Exports, ArchiveRuleProperty(..), mkArchiveRuleProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.DLM.LifecyclePolicy.ArchiveRetainRuleProperty as Exports
import Stratosphere.ResourceProperties
data ArchiveRuleProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-archiverule.html>
    ArchiveRuleProperty {ArchiveRuleProperty -> ()
haddock_workaround_ :: (),
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-archiverule.html#cfn-dlm-lifecyclepolicy-archiverule-retainrule>
                         ArchiveRuleProperty -> ArchiveRetainRuleProperty
retainRule :: ArchiveRetainRuleProperty}
  deriving stock (ArchiveRuleProperty -> ArchiveRuleProperty -> Bool
(ArchiveRuleProperty -> ArchiveRuleProperty -> Bool)
-> (ArchiveRuleProperty -> ArchiveRuleProperty -> Bool)
-> Eq ArchiveRuleProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ArchiveRuleProperty -> ArchiveRuleProperty -> Bool
== :: ArchiveRuleProperty -> ArchiveRuleProperty -> Bool
$c/= :: ArchiveRuleProperty -> ArchiveRuleProperty -> Bool
/= :: ArchiveRuleProperty -> ArchiveRuleProperty -> Bool
Prelude.Eq, Int -> ArchiveRuleProperty -> ShowS
[ArchiveRuleProperty] -> ShowS
ArchiveRuleProperty -> String
(Int -> ArchiveRuleProperty -> ShowS)
-> (ArchiveRuleProperty -> String)
-> ([ArchiveRuleProperty] -> ShowS)
-> Show ArchiveRuleProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ArchiveRuleProperty -> ShowS
showsPrec :: Int -> ArchiveRuleProperty -> ShowS
$cshow :: ArchiveRuleProperty -> String
show :: ArchiveRuleProperty -> String
$cshowList :: [ArchiveRuleProperty] -> ShowS
showList :: [ArchiveRuleProperty] -> ShowS
Prelude.Show)
mkArchiveRuleProperty ::
  ArchiveRetainRuleProperty -> ArchiveRuleProperty
mkArchiveRuleProperty :: ArchiveRetainRuleProperty -> ArchiveRuleProperty
mkArchiveRuleProperty ArchiveRetainRuleProperty
retainRule
  = ArchiveRuleProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), retainRule :: ArchiveRetainRuleProperty
retainRule = ArchiveRetainRuleProperty
retainRule}
instance ToResourceProperties ArchiveRuleProperty where
  toResourceProperties :: ArchiveRuleProperty -> ResourceProperties
toResourceProperties ArchiveRuleProperty {()
ArchiveRetainRuleProperty
haddock_workaround_ :: ArchiveRuleProperty -> ()
retainRule :: ArchiveRuleProperty -> ArchiveRetainRuleProperty
haddock_workaround_ :: ()
retainRule :: ArchiveRetainRuleProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::DLM::LifecyclePolicy.ArchiveRule",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"RetainRule" Key -> ArchiveRetainRuleProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ArchiveRetainRuleProperty
retainRule]}
instance JSON.ToJSON ArchiveRuleProperty where
  toJSON :: ArchiveRuleProperty -> Value
toJSON ArchiveRuleProperty {()
ArchiveRetainRuleProperty
haddock_workaround_ :: ArchiveRuleProperty -> ()
retainRule :: ArchiveRuleProperty -> ArchiveRetainRuleProperty
haddock_workaround_ :: ()
retainRule :: ArchiveRetainRuleProperty
..}
    = [(Key, Value)] -> Value
JSON.object [Key
"RetainRule" Key -> ArchiveRetainRuleProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ArchiveRetainRuleProperty
retainRule]
instance Property "RetainRule" ArchiveRuleProperty where
  type PropertyType "RetainRule" ArchiveRuleProperty = ArchiveRetainRuleProperty
  set :: PropertyType "RetainRule" ArchiveRuleProperty
-> ArchiveRuleProperty -> ArchiveRuleProperty
set PropertyType "RetainRule" ArchiveRuleProperty
newValue ArchiveRuleProperty {()
ArchiveRetainRuleProperty
haddock_workaround_ :: ArchiveRuleProperty -> ()
retainRule :: ArchiveRuleProperty -> ArchiveRetainRuleProperty
haddock_workaround_ :: ()
retainRule :: ArchiveRetainRuleProperty
..}
    = ArchiveRuleProperty {retainRule :: ArchiveRetainRuleProperty
retainRule = PropertyType "RetainRule" ArchiveRuleProperty
ArchiveRetainRuleProperty
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}