module Stratosphere.DLM.LifecyclePolicy (
        module Exports, LifecyclePolicy(..), mkLifecyclePolicy
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.DLM.LifecyclePolicy.CrossRegionCopyTargetsProperty as Exports
import {-# SOURCE #-} Stratosphere.DLM.LifecyclePolicy.ExclusionsProperty as Exports
import {-# SOURCE #-} Stratosphere.DLM.LifecyclePolicy.PolicyDetailsProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Tag
import Stratosphere.Value
data LifecyclePolicy
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dlm-lifecyclepolicy.html>
    LifecyclePolicy {LifecyclePolicy -> ()
haddock_workaround_ :: (),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dlm-lifecyclepolicy.html#cfn-dlm-lifecyclepolicy-copytags>
                     LifecyclePolicy -> Maybe (Value Bool)
copyTags :: (Prelude.Maybe (Value Prelude.Bool)),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dlm-lifecyclepolicy.html#cfn-dlm-lifecyclepolicy-createinterval>
                     LifecyclePolicy -> Maybe (Value Integer)
createInterval :: (Prelude.Maybe (Value Prelude.Integer)),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dlm-lifecyclepolicy.html#cfn-dlm-lifecyclepolicy-crossregioncopytargets>
                     LifecyclePolicy -> Maybe CrossRegionCopyTargetsProperty
crossRegionCopyTargets :: (Prelude.Maybe CrossRegionCopyTargetsProperty),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dlm-lifecyclepolicy.html#cfn-dlm-lifecyclepolicy-defaultpolicy>
                     LifecyclePolicy -> Maybe (Value Text)
defaultPolicy :: (Prelude.Maybe (Value Prelude.Text)),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dlm-lifecyclepolicy.html#cfn-dlm-lifecyclepolicy-description>
                     LifecyclePolicy -> Maybe (Value Text)
description :: (Prelude.Maybe (Value Prelude.Text)),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dlm-lifecyclepolicy.html#cfn-dlm-lifecyclepolicy-exclusions>
                     LifecyclePolicy -> Maybe ExclusionsProperty
exclusions :: (Prelude.Maybe ExclusionsProperty),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dlm-lifecyclepolicy.html#cfn-dlm-lifecyclepolicy-executionrolearn>
                     LifecyclePolicy -> Maybe (Value Text)
executionRoleArn :: (Prelude.Maybe (Value Prelude.Text)),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dlm-lifecyclepolicy.html#cfn-dlm-lifecyclepolicy-extenddeletion>
                     LifecyclePolicy -> Maybe (Value Bool)
extendDeletion :: (Prelude.Maybe (Value Prelude.Bool)),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dlm-lifecyclepolicy.html#cfn-dlm-lifecyclepolicy-policydetails>
                     LifecyclePolicy -> Maybe PolicyDetailsProperty
policyDetails :: (Prelude.Maybe PolicyDetailsProperty),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dlm-lifecyclepolicy.html#cfn-dlm-lifecyclepolicy-retaininterval>
                     LifecyclePolicy -> Maybe (Value Integer)
retainInterval :: (Prelude.Maybe (Value Prelude.Integer)),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dlm-lifecyclepolicy.html#cfn-dlm-lifecyclepolicy-state>
                     LifecyclePolicy -> Maybe (Value Text)
state :: (Prelude.Maybe (Value Prelude.Text)),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dlm-lifecyclepolicy.html#cfn-dlm-lifecyclepolicy-tags>
                     LifecyclePolicy -> Maybe [Tag]
tags :: (Prelude.Maybe [Tag])}
  deriving stock (LifecyclePolicy -> LifecyclePolicy -> Bool
(LifecyclePolicy -> LifecyclePolicy -> Bool)
-> (LifecyclePolicy -> LifecyclePolicy -> Bool)
-> Eq LifecyclePolicy
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LifecyclePolicy -> LifecyclePolicy -> Bool
== :: LifecyclePolicy -> LifecyclePolicy -> Bool
$c/= :: LifecyclePolicy -> LifecyclePolicy -> Bool
/= :: LifecyclePolicy -> LifecyclePolicy -> Bool
Prelude.Eq, Int -> LifecyclePolicy -> ShowS
[LifecyclePolicy] -> ShowS
LifecyclePolicy -> String
(Int -> LifecyclePolicy -> ShowS)
-> (LifecyclePolicy -> String)
-> ([LifecyclePolicy] -> ShowS)
-> Show LifecyclePolicy
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> LifecyclePolicy -> ShowS
showsPrec :: Int -> LifecyclePolicy -> ShowS
$cshow :: LifecyclePolicy -> String
show :: LifecyclePolicy -> String
$cshowList :: [LifecyclePolicy] -> ShowS
showList :: [LifecyclePolicy] -> ShowS
Prelude.Show)
mkLifecyclePolicy :: LifecyclePolicy
mkLifecyclePolicy :: LifecyclePolicy
mkLifecyclePolicy
  = LifecyclePolicy
      {haddock_workaround_ :: ()
haddock_workaround_ = (), copyTags :: Maybe (Value Bool)
copyTags = Maybe (Value Bool)
forall a. Maybe a
Prelude.Nothing,
       createInterval :: Maybe (Value Integer)
createInterval = Maybe (Value Integer)
forall a. Maybe a
Prelude.Nothing,
       crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
crossRegionCopyTargets = Maybe CrossRegionCopyTargetsProperty
forall a. Maybe a
Prelude.Nothing,
       defaultPolicy :: Maybe (Value Text)
defaultPolicy = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, description :: Maybe (Value Text)
description = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       exclusions :: Maybe ExclusionsProperty
exclusions = Maybe ExclusionsProperty
forall a. Maybe a
Prelude.Nothing, executionRoleArn :: Maybe (Value Text)
executionRoleArn = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       extendDeletion :: Maybe (Value Bool)
extendDeletion = Maybe (Value Bool)
forall a. Maybe a
Prelude.Nothing, policyDetails :: Maybe PolicyDetailsProperty
policyDetails = Maybe PolicyDetailsProperty
forall a. Maybe a
Prelude.Nothing,
       retainInterval :: Maybe (Value Integer)
retainInterval = Maybe (Value Integer)
forall a. Maybe a
Prelude.Nothing, state :: Maybe (Value Text)
state = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       tags :: Maybe [Tag]
tags = Maybe [Tag]
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties LifecyclePolicy where
  toResourceProperties :: LifecyclePolicy -> ResourceProperties
toResourceProperties LifecyclePolicy {Maybe [Tag]
Maybe CrossRegionCopyTargetsProperty
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ExclusionsProperty
Maybe PolicyDetailsProperty
()
haddock_workaround_ :: LifecyclePolicy -> ()
copyTags :: LifecyclePolicy -> Maybe (Value Bool)
createInterval :: LifecyclePolicy -> Maybe (Value Integer)
crossRegionCopyTargets :: LifecyclePolicy -> Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: LifecyclePolicy -> Maybe (Value Text)
description :: LifecyclePolicy -> Maybe (Value Text)
exclusions :: LifecyclePolicy -> Maybe ExclusionsProperty
executionRoleArn :: LifecyclePolicy -> Maybe (Value Text)
extendDeletion :: LifecyclePolicy -> Maybe (Value Bool)
policyDetails :: LifecyclePolicy -> Maybe PolicyDetailsProperty
retainInterval :: LifecyclePolicy -> Maybe (Value Integer)
state :: LifecyclePolicy -> Maybe (Value Text)
tags :: LifecyclePolicy -> Maybe [Tag]
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::DLM::LifecyclePolicy",
         supportsTags :: Bool
supportsTags = Bool
Prelude.True,
         properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
                        ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                           [Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"CopyTags" (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
copyTags,
                            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..=) Key
"CreateInterval" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
createInterval,
                            Key -> CrossRegionCopyTargetsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"CrossRegionCopyTargets"
                              (CrossRegionCopyTargetsProperty -> (Key, Value))
-> Maybe CrossRegionCopyTargetsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe CrossRegionCopyTargetsProperty
crossRegionCopyTargets,
                            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..=) Key
"DefaultPolicy" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
defaultPolicy,
                            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..=) Key
"Description" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
description,
                            Key -> ExclusionsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Exclusions" (ExclusionsProperty -> (Key, Value))
-> Maybe ExclusionsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ExclusionsProperty
exclusions,
                            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..=) Key
"ExecutionRoleArn" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
executionRoleArn,
                            Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ExtendDeletion" (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
extendDeletion,
                            Key -> PolicyDetailsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PolicyDetails" (PolicyDetailsProperty -> (Key, Value))
-> Maybe PolicyDetailsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe PolicyDetailsProperty
policyDetails,
                            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..=) Key
"RetainInterval" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
retainInterval,
                            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..=) Key
"State" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
state,
                            Key -> [Tag] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Tags" ([Tag] -> (Key, Value)) -> Maybe [Tag] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags])}
instance JSON.ToJSON LifecyclePolicy where
  toJSON :: LifecyclePolicy -> Value
toJSON LifecyclePolicy {Maybe [Tag]
Maybe CrossRegionCopyTargetsProperty
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ExclusionsProperty
Maybe PolicyDetailsProperty
()
haddock_workaround_ :: LifecyclePolicy -> ()
copyTags :: LifecyclePolicy -> Maybe (Value Bool)
createInterval :: LifecyclePolicy -> Maybe (Value Integer)
crossRegionCopyTargets :: LifecyclePolicy -> Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: LifecyclePolicy -> Maybe (Value Text)
description :: LifecyclePolicy -> Maybe (Value Text)
exclusions :: LifecyclePolicy -> Maybe ExclusionsProperty
executionRoleArn :: LifecyclePolicy -> Maybe (Value Text)
extendDeletion :: LifecyclePolicy -> Maybe (Value Bool)
policyDetails :: LifecyclePolicy -> Maybe PolicyDetailsProperty
retainInterval :: LifecyclePolicy -> Maybe (Value Integer)
state :: LifecyclePolicy -> Maybe (Value Text)
tags :: LifecyclePolicy -> Maybe [Tag]
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
..}
    = [(Key, Value)] -> Value
JSON.object
        ([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
              [Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"CopyTags" (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
copyTags,
               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..=) Key
"CreateInterval" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
createInterval,
               Key -> CrossRegionCopyTargetsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"CrossRegionCopyTargets"
                 (CrossRegionCopyTargetsProperty -> (Key, Value))
-> Maybe CrossRegionCopyTargetsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe CrossRegionCopyTargetsProperty
crossRegionCopyTargets,
               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..=) Key
"DefaultPolicy" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
defaultPolicy,
               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..=) Key
"Description" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
description,
               Key -> ExclusionsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Exclusions" (ExclusionsProperty -> (Key, Value))
-> Maybe ExclusionsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ExclusionsProperty
exclusions,
               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..=) Key
"ExecutionRoleArn" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
executionRoleArn,
               Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ExtendDeletion" (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
extendDeletion,
               Key -> PolicyDetailsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PolicyDetails" (PolicyDetailsProperty -> (Key, Value))
-> Maybe PolicyDetailsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe PolicyDetailsProperty
policyDetails,
               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..=) Key
"RetainInterval" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
retainInterval,
               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..=) Key
"State" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
state,
               Key -> [Tag] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Tags" ([Tag] -> (Key, Value)) -> Maybe [Tag] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags]))
instance Property "CopyTags" LifecyclePolicy where
  type PropertyType "CopyTags" LifecyclePolicy = Value Prelude.Bool
  set :: PropertyType "CopyTags" LifecyclePolicy
-> LifecyclePolicy -> LifecyclePolicy
set PropertyType "CopyTags" LifecyclePolicy
newValue LifecyclePolicy {Maybe [Tag]
Maybe CrossRegionCopyTargetsProperty
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ExclusionsProperty
Maybe PolicyDetailsProperty
()
haddock_workaround_ :: LifecyclePolicy -> ()
copyTags :: LifecyclePolicy -> Maybe (Value Bool)
createInterval :: LifecyclePolicy -> Maybe (Value Integer)
crossRegionCopyTargets :: LifecyclePolicy -> Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: LifecyclePolicy -> Maybe (Value Text)
description :: LifecyclePolicy -> Maybe (Value Text)
exclusions :: LifecyclePolicy -> Maybe ExclusionsProperty
executionRoleArn :: LifecyclePolicy -> Maybe (Value Text)
extendDeletion :: LifecyclePolicy -> Maybe (Value Bool)
policyDetails :: LifecyclePolicy -> Maybe PolicyDetailsProperty
retainInterval :: LifecyclePolicy -> Maybe (Value Integer)
state :: LifecyclePolicy -> Maybe (Value Text)
tags :: LifecyclePolicy -> Maybe [Tag]
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
..}
    = LifecyclePolicy {copyTags :: Maybe (Value Bool)
copyTags = Value Bool -> Maybe (Value Bool)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "CopyTags" LifecyclePolicy
Value Bool
newValue, Maybe [Tag]
Maybe CrossRegionCopyTargetsProperty
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ExclusionsProperty
Maybe PolicyDetailsProperty
()
haddock_workaround_ :: ()
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
haddock_workaround_ :: ()
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
..}
instance Property "CreateInterval" LifecyclePolicy where
  type PropertyType "CreateInterval" LifecyclePolicy = Value Prelude.Integer
  set :: PropertyType "CreateInterval" LifecyclePolicy
-> LifecyclePolicy -> LifecyclePolicy
set PropertyType "CreateInterval" LifecyclePolicy
newValue LifecyclePolicy {Maybe [Tag]
Maybe CrossRegionCopyTargetsProperty
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ExclusionsProperty
Maybe PolicyDetailsProperty
()
haddock_workaround_ :: LifecyclePolicy -> ()
copyTags :: LifecyclePolicy -> Maybe (Value Bool)
createInterval :: LifecyclePolicy -> Maybe (Value Integer)
crossRegionCopyTargets :: LifecyclePolicy -> Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: LifecyclePolicy -> Maybe (Value Text)
description :: LifecyclePolicy -> Maybe (Value Text)
exclusions :: LifecyclePolicy -> Maybe ExclusionsProperty
executionRoleArn :: LifecyclePolicy -> Maybe (Value Text)
extendDeletion :: LifecyclePolicy -> Maybe (Value Bool)
policyDetails :: LifecyclePolicy -> Maybe PolicyDetailsProperty
retainInterval :: LifecyclePolicy -> Maybe (Value Integer)
state :: LifecyclePolicy -> Maybe (Value Text)
tags :: LifecyclePolicy -> Maybe [Tag]
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
..}
    = LifecyclePolicy {createInterval :: Maybe (Value Integer)
createInterval = Value Integer -> Maybe (Value Integer)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "CreateInterval" LifecyclePolicy
Value Integer
newValue, Maybe [Tag]
Maybe CrossRegionCopyTargetsProperty
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ExclusionsProperty
Maybe PolicyDetailsProperty
()
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
..}
instance Property "CrossRegionCopyTargets" LifecyclePolicy where
  type PropertyType "CrossRegionCopyTargets" LifecyclePolicy = CrossRegionCopyTargetsProperty
  set :: PropertyType "CrossRegionCopyTargets" LifecyclePolicy
-> LifecyclePolicy -> LifecyclePolicy
set PropertyType "CrossRegionCopyTargets" LifecyclePolicy
newValue LifecyclePolicy {Maybe [Tag]
Maybe CrossRegionCopyTargetsProperty
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ExclusionsProperty
Maybe PolicyDetailsProperty
()
haddock_workaround_ :: LifecyclePolicy -> ()
copyTags :: LifecyclePolicy -> Maybe (Value Bool)
createInterval :: LifecyclePolicy -> Maybe (Value Integer)
crossRegionCopyTargets :: LifecyclePolicy -> Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: LifecyclePolicy -> Maybe (Value Text)
description :: LifecyclePolicy -> Maybe (Value Text)
exclusions :: LifecyclePolicy -> Maybe ExclusionsProperty
executionRoleArn :: LifecyclePolicy -> Maybe (Value Text)
extendDeletion :: LifecyclePolicy -> Maybe (Value Bool)
policyDetails :: LifecyclePolicy -> Maybe PolicyDetailsProperty
retainInterval :: LifecyclePolicy -> Maybe (Value Integer)
state :: LifecyclePolicy -> Maybe (Value Text)
tags :: LifecyclePolicy -> Maybe [Tag]
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
..}
    = LifecyclePolicy
        {crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
crossRegionCopyTargets = CrossRegionCopyTargetsProperty
-> Maybe CrossRegionCopyTargetsProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure CrossRegionCopyTargetsProperty
PropertyType "CrossRegionCopyTargets" LifecyclePolicy
newValue, Maybe [Tag]
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ExclusionsProperty
Maybe PolicyDetailsProperty
()
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
..}
instance Property "DefaultPolicy" LifecyclePolicy where
  type PropertyType "DefaultPolicy" LifecyclePolicy = Value Prelude.Text
  set :: PropertyType "DefaultPolicy" LifecyclePolicy
-> LifecyclePolicy -> LifecyclePolicy
set PropertyType "DefaultPolicy" LifecyclePolicy
newValue LifecyclePolicy {Maybe [Tag]
Maybe CrossRegionCopyTargetsProperty
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ExclusionsProperty
Maybe PolicyDetailsProperty
()
haddock_workaround_ :: LifecyclePolicy -> ()
copyTags :: LifecyclePolicy -> Maybe (Value Bool)
createInterval :: LifecyclePolicy -> Maybe (Value Integer)
crossRegionCopyTargets :: LifecyclePolicy -> Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: LifecyclePolicy -> Maybe (Value Text)
description :: LifecyclePolicy -> Maybe (Value Text)
exclusions :: LifecyclePolicy -> Maybe ExclusionsProperty
executionRoleArn :: LifecyclePolicy -> Maybe (Value Text)
extendDeletion :: LifecyclePolicy -> Maybe (Value Bool)
policyDetails :: LifecyclePolicy -> Maybe PolicyDetailsProperty
retainInterval :: LifecyclePolicy -> Maybe (Value Integer)
state :: LifecyclePolicy -> Maybe (Value Text)
tags :: LifecyclePolicy -> Maybe [Tag]
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
..}
    = LifecyclePolicy {defaultPolicy :: Maybe (Value Text)
defaultPolicy = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "DefaultPolicy" LifecyclePolicy
Value Text
newValue, Maybe [Tag]
Maybe CrossRegionCopyTargetsProperty
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ExclusionsProperty
Maybe PolicyDetailsProperty
()
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
..}
instance Property "Description" LifecyclePolicy where
  type PropertyType "Description" LifecyclePolicy = Value Prelude.Text
  set :: PropertyType "Description" LifecyclePolicy
-> LifecyclePolicy -> LifecyclePolicy
set PropertyType "Description" LifecyclePolicy
newValue LifecyclePolicy {Maybe [Tag]
Maybe CrossRegionCopyTargetsProperty
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ExclusionsProperty
Maybe PolicyDetailsProperty
()
haddock_workaround_ :: LifecyclePolicy -> ()
copyTags :: LifecyclePolicy -> Maybe (Value Bool)
createInterval :: LifecyclePolicy -> Maybe (Value Integer)
crossRegionCopyTargets :: LifecyclePolicy -> Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: LifecyclePolicy -> Maybe (Value Text)
description :: LifecyclePolicy -> Maybe (Value Text)
exclusions :: LifecyclePolicy -> Maybe ExclusionsProperty
executionRoleArn :: LifecyclePolicy -> Maybe (Value Text)
extendDeletion :: LifecyclePolicy -> Maybe (Value Bool)
policyDetails :: LifecyclePolicy -> Maybe PolicyDetailsProperty
retainInterval :: LifecyclePolicy -> Maybe (Value Integer)
state :: LifecyclePolicy -> Maybe (Value Text)
tags :: LifecyclePolicy -> Maybe [Tag]
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
..}
    = LifecyclePolicy {description :: Maybe (Value Text)
description = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Description" LifecyclePolicy
Value Text
newValue, Maybe [Tag]
Maybe CrossRegionCopyTargetsProperty
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ExclusionsProperty
Maybe PolicyDetailsProperty
()
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
..}
instance Property "Exclusions" LifecyclePolicy where
  type PropertyType "Exclusions" LifecyclePolicy = ExclusionsProperty
  set :: PropertyType "Exclusions" LifecyclePolicy
-> LifecyclePolicy -> LifecyclePolicy
set PropertyType "Exclusions" LifecyclePolicy
newValue LifecyclePolicy {Maybe [Tag]
Maybe CrossRegionCopyTargetsProperty
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ExclusionsProperty
Maybe PolicyDetailsProperty
()
haddock_workaround_ :: LifecyclePolicy -> ()
copyTags :: LifecyclePolicy -> Maybe (Value Bool)
createInterval :: LifecyclePolicy -> Maybe (Value Integer)
crossRegionCopyTargets :: LifecyclePolicy -> Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: LifecyclePolicy -> Maybe (Value Text)
description :: LifecyclePolicy -> Maybe (Value Text)
exclusions :: LifecyclePolicy -> Maybe ExclusionsProperty
executionRoleArn :: LifecyclePolicy -> Maybe (Value Text)
extendDeletion :: LifecyclePolicy -> Maybe (Value Bool)
policyDetails :: LifecyclePolicy -> Maybe PolicyDetailsProperty
retainInterval :: LifecyclePolicy -> Maybe (Value Integer)
state :: LifecyclePolicy -> Maybe (Value Text)
tags :: LifecyclePolicy -> Maybe [Tag]
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
..}
    = LifecyclePolicy {exclusions :: Maybe ExclusionsProperty
exclusions = ExclusionsProperty -> Maybe ExclusionsProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Exclusions" LifecyclePolicy
ExclusionsProperty
newValue, Maybe [Tag]
Maybe CrossRegionCopyTargetsProperty
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe PolicyDetailsProperty
()
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
..}
instance Property "ExecutionRoleArn" LifecyclePolicy where
  type PropertyType "ExecutionRoleArn" LifecyclePolicy = Value Prelude.Text
  set :: PropertyType "ExecutionRoleArn" LifecyclePolicy
-> LifecyclePolicy -> LifecyclePolicy
set PropertyType "ExecutionRoleArn" LifecyclePolicy
newValue LifecyclePolicy {Maybe [Tag]
Maybe CrossRegionCopyTargetsProperty
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ExclusionsProperty
Maybe PolicyDetailsProperty
()
haddock_workaround_ :: LifecyclePolicy -> ()
copyTags :: LifecyclePolicy -> Maybe (Value Bool)
createInterval :: LifecyclePolicy -> Maybe (Value Integer)
crossRegionCopyTargets :: LifecyclePolicy -> Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: LifecyclePolicy -> Maybe (Value Text)
description :: LifecyclePolicy -> Maybe (Value Text)
exclusions :: LifecyclePolicy -> Maybe ExclusionsProperty
executionRoleArn :: LifecyclePolicy -> Maybe (Value Text)
extendDeletion :: LifecyclePolicy -> Maybe (Value Bool)
policyDetails :: LifecyclePolicy -> Maybe PolicyDetailsProperty
retainInterval :: LifecyclePolicy -> Maybe (Value Integer)
state :: LifecyclePolicy -> Maybe (Value Text)
tags :: LifecyclePolicy -> Maybe [Tag]
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
..}
    = LifecyclePolicy {executionRoleArn :: Maybe (Value Text)
executionRoleArn = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ExecutionRoleArn" LifecyclePolicy
Value Text
newValue, Maybe [Tag]
Maybe CrossRegionCopyTargetsProperty
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ExclusionsProperty
Maybe PolicyDetailsProperty
()
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
..}
instance Property "ExtendDeletion" LifecyclePolicy where
  type PropertyType "ExtendDeletion" LifecyclePolicy = Value Prelude.Bool
  set :: PropertyType "ExtendDeletion" LifecyclePolicy
-> LifecyclePolicy -> LifecyclePolicy
set PropertyType "ExtendDeletion" LifecyclePolicy
newValue LifecyclePolicy {Maybe [Tag]
Maybe CrossRegionCopyTargetsProperty
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ExclusionsProperty
Maybe PolicyDetailsProperty
()
haddock_workaround_ :: LifecyclePolicy -> ()
copyTags :: LifecyclePolicy -> Maybe (Value Bool)
createInterval :: LifecyclePolicy -> Maybe (Value Integer)
crossRegionCopyTargets :: LifecyclePolicy -> Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: LifecyclePolicy -> Maybe (Value Text)
description :: LifecyclePolicy -> Maybe (Value Text)
exclusions :: LifecyclePolicy -> Maybe ExclusionsProperty
executionRoleArn :: LifecyclePolicy -> Maybe (Value Text)
extendDeletion :: LifecyclePolicy -> Maybe (Value Bool)
policyDetails :: LifecyclePolicy -> Maybe PolicyDetailsProperty
retainInterval :: LifecyclePolicy -> Maybe (Value Integer)
state :: LifecyclePolicy -> Maybe (Value Text)
tags :: LifecyclePolicy -> Maybe [Tag]
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
..}
    = LifecyclePolicy {extendDeletion :: Maybe (Value Bool)
extendDeletion = Value Bool -> Maybe (Value Bool)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ExtendDeletion" LifecyclePolicy
Value Bool
newValue, Maybe [Tag]
Maybe CrossRegionCopyTargetsProperty
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ExclusionsProperty
Maybe PolicyDetailsProperty
()
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
..}
instance Property "PolicyDetails" LifecyclePolicy where
  type PropertyType "PolicyDetails" LifecyclePolicy = PolicyDetailsProperty
  set :: PropertyType "PolicyDetails" LifecyclePolicy
-> LifecyclePolicy -> LifecyclePolicy
set PropertyType "PolicyDetails" LifecyclePolicy
newValue LifecyclePolicy {Maybe [Tag]
Maybe CrossRegionCopyTargetsProperty
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ExclusionsProperty
Maybe PolicyDetailsProperty
()
haddock_workaround_ :: LifecyclePolicy -> ()
copyTags :: LifecyclePolicy -> Maybe (Value Bool)
createInterval :: LifecyclePolicy -> Maybe (Value Integer)
crossRegionCopyTargets :: LifecyclePolicy -> Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: LifecyclePolicy -> Maybe (Value Text)
description :: LifecyclePolicy -> Maybe (Value Text)
exclusions :: LifecyclePolicy -> Maybe ExclusionsProperty
executionRoleArn :: LifecyclePolicy -> Maybe (Value Text)
extendDeletion :: LifecyclePolicy -> Maybe (Value Bool)
policyDetails :: LifecyclePolicy -> Maybe PolicyDetailsProperty
retainInterval :: LifecyclePolicy -> Maybe (Value Integer)
state :: LifecyclePolicy -> Maybe (Value Text)
tags :: LifecyclePolicy -> Maybe [Tag]
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
..}
    = LifecyclePolicy {policyDetails :: Maybe PolicyDetailsProperty
policyDetails = PolicyDetailsProperty -> Maybe PolicyDetailsProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "PolicyDetails" LifecyclePolicy
PolicyDetailsProperty
newValue, Maybe [Tag]
Maybe CrossRegionCopyTargetsProperty
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ExclusionsProperty
()
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
..}
instance Property "RetainInterval" LifecyclePolicy where
  type PropertyType "RetainInterval" LifecyclePolicy = Value Prelude.Integer
  set :: PropertyType "RetainInterval" LifecyclePolicy
-> LifecyclePolicy -> LifecyclePolicy
set PropertyType "RetainInterval" LifecyclePolicy
newValue LifecyclePolicy {Maybe [Tag]
Maybe CrossRegionCopyTargetsProperty
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ExclusionsProperty
Maybe PolicyDetailsProperty
()
haddock_workaround_ :: LifecyclePolicy -> ()
copyTags :: LifecyclePolicy -> Maybe (Value Bool)
createInterval :: LifecyclePolicy -> Maybe (Value Integer)
crossRegionCopyTargets :: LifecyclePolicy -> Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: LifecyclePolicy -> Maybe (Value Text)
description :: LifecyclePolicy -> Maybe (Value Text)
exclusions :: LifecyclePolicy -> Maybe ExclusionsProperty
executionRoleArn :: LifecyclePolicy -> Maybe (Value Text)
extendDeletion :: LifecyclePolicy -> Maybe (Value Bool)
policyDetails :: LifecyclePolicy -> Maybe PolicyDetailsProperty
retainInterval :: LifecyclePolicy -> Maybe (Value Integer)
state :: LifecyclePolicy -> Maybe (Value Text)
tags :: LifecyclePolicy -> Maybe [Tag]
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
..}
    = LifecyclePolicy {retainInterval :: Maybe (Value Integer)
retainInterval = Value Integer -> Maybe (Value Integer)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "RetainInterval" LifecyclePolicy
Value Integer
newValue, Maybe [Tag]
Maybe CrossRegionCopyTargetsProperty
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ExclusionsProperty
Maybe PolicyDetailsProperty
()
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
state :: Maybe (Value Text)
tags :: Maybe [Tag]
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
state :: Maybe (Value Text)
tags :: Maybe [Tag]
..}
instance Property "State" LifecyclePolicy where
  type PropertyType "State" LifecyclePolicy = Value Prelude.Text
  set :: PropertyType "State" LifecyclePolicy
-> LifecyclePolicy -> LifecyclePolicy
set PropertyType "State" LifecyclePolicy
newValue LifecyclePolicy {Maybe [Tag]
Maybe CrossRegionCopyTargetsProperty
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ExclusionsProperty
Maybe PolicyDetailsProperty
()
haddock_workaround_ :: LifecyclePolicy -> ()
copyTags :: LifecyclePolicy -> Maybe (Value Bool)
createInterval :: LifecyclePolicy -> Maybe (Value Integer)
crossRegionCopyTargets :: LifecyclePolicy -> Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: LifecyclePolicy -> Maybe (Value Text)
description :: LifecyclePolicy -> Maybe (Value Text)
exclusions :: LifecyclePolicy -> Maybe ExclusionsProperty
executionRoleArn :: LifecyclePolicy -> Maybe (Value Text)
extendDeletion :: LifecyclePolicy -> Maybe (Value Bool)
policyDetails :: LifecyclePolicy -> Maybe PolicyDetailsProperty
retainInterval :: LifecyclePolicy -> Maybe (Value Integer)
state :: LifecyclePolicy -> Maybe (Value Text)
tags :: LifecyclePolicy -> Maybe [Tag]
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
..}
    = LifecyclePolicy {state :: Maybe (Value Text)
state = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "State" LifecyclePolicy
Value Text
newValue, Maybe [Tag]
Maybe CrossRegionCopyTargetsProperty
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ExclusionsProperty
Maybe PolicyDetailsProperty
()
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
tags :: Maybe [Tag]
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
tags :: Maybe [Tag]
..}
instance Property "Tags" LifecyclePolicy where
  type PropertyType "Tags" LifecyclePolicy = [Tag]
  set :: PropertyType "Tags" LifecyclePolicy
-> LifecyclePolicy -> LifecyclePolicy
set PropertyType "Tags" LifecyclePolicy
newValue LifecyclePolicy {Maybe [Tag]
Maybe CrossRegionCopyTargetsProperty
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ExclusionsProperty
Maybe PolicyDetailsProperty
()
haddock_workaround_ :: LifecyclePolicy -> ()
copyTags :: LifecyclePolicy -> Maybe (Value Bool)
createInterval :: LifecyclePolicy -> Maybe (Value Integer)
crossRegionCopyTargets :: LifecyclePolicy -> Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: LifecyclePolicy -> Maybe (Value Text)
description :: LifecyclePolicy -> Maybe (Value Text)
exclusions :: LifecyclePolicy -> Maybe ExclusionsProperty
executionRoleArn :: LifecyclePolicy -> Maybe (Value Text)
extendDeletion :: LifecyclePolicy -> Maybe (Value Bool)
policyDetails :: LifecyclePolicy -> Maybe PolicyDetailsProperty
retainInterval :: LifecyclePolicy -> Maybe (Value Integer)
state :: LifecyclePolicy -> Maybe (Value Text)
tags :: LifecyclePolicy -> Maybe [Tag]
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
..}
    = LifecyclePolicy {tags :: Maybe [Tag]
tags = [Tag] -> Maybe [Tag]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [Tag]
PropertyType "Tags" LifecyclePolicy
newValue, Maybe CrossRegionCopyTargetsProperty
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ExclusionsProperty
Maybe PolicyDetailsProperty
()
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
haddock_workaround_ :: ()
copyTags :: Maybe (Value Bool)
createInterval :: Maybe (Value Integer)
crossRegionCopyTargets :: Maybe CrossRegionCopyTargetsProperty
defaultPolicy :: Maybe (Value Text)
description :: Maybe (Value Text)
exclusions :: Maybe ExclusionsProperty
executionRoleArn :: Maybe (Value Text)
extendDeletion :: Maybe (Value Bool)
policyDetails :: Maybe PolicyDetailsProperty
retainInterval :: Maybe (Value Integer)
state :: Maybe (Value Text)
..}