module Stratosphere.S3.Bucket.ReplicationDestinationProperty (
        module Exports, ReplicationDestinationProperty(..),
        mkReplicationDestinationProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.S3.Bucket.AccessControlTranslationProperty as Exports
import {-# SOURCE #-} Stratosphere.S3.Bucket.EncryptionConfigurationProperty as Exports
import {-# SOURCE #-} Stratosphere.S3.Bucket.MetricsProperty as Exports
import {-# SOURCE #-} Stratosphere.S3.Bucket.ReplicationTimeProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data ReplicationDestinationProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationdestination.html>
    ReplicationDestinationProperty {ReplicationDestinationProperty -> ()
haddock_workaround_ :: (),
                                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationdestination.html#cfn-s3-bucket-replicationdestination-accesscontroltranslation>
                                    ReplicationDestinationProperty
-> Maybe AccessControlTranslationProperty
accessControlTranslation :: (Prelude.Maybe AccessControlTranslationProperty),
                                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationdestination.html#cfn-s3-bucket-replicationdestination-account>
                                    ReplicationDestinationProperty -> Maybe (Value Text)
account :: (Prelude.Maybe (Value Prelude.Text)),
                                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationdestination.html#cfn-s3-bucket-replicationdestination-bucket>
                                    ReplicationDestinationProperty -> Value Text
bucket :: (Value Prelude.Text),
                                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationdestination.html#cfn-s3-bucket-replicationdestination-encryptionconfiguration>
                                    ReplicationDestinationProperty
-> Maybe EncryptionConfigurationProperty
encryptionConfiguration :: (Prelude.Maybe EncryptionConfigurationProperty),
                                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationdestination.html#cfn-s3-bucket-replicationdestination-metrics>
                                    ReplicationDestinationProperty -> Maybe MetricsProperty
metrics :: (Prelude.Maybe MetricsProperty),
                                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationdestination.html#cfn-s3-bucket-replicationdestination-replicationtime>
                                    ReplicationDestinationProperty -> Maybe ReplicationTimeProperty
replicationTime :: (Prelude.Maybe ReplicationTimeProperty),
                                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationdestination.html#cfn-s3-bucket-replicationdestination-storageclass>
                                    ReplicationDestinationProperty -> Maybe (Value Text)
storageClass :: (Prelude.Maybe (Value Prelude.Text))}
  deriving stock (ReplicationDestinationProperty
-> ReplicationDestinationProperty -> Bool
(ReplicationDestinationProperty
 -> ReplicationDestinationProperty -> Bool)
-> (ReplicationDestinationProperty
    -> ReplicationDestinationProperty -> Bool)
-> Eq ReplicationDestinationProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ReplicationDestinationProperty
-> ReplicationDestinationProperty -> Bool
== :: ReplicationDestinationProperty
-> ReplicationDestinationProperty -> Bool
$c/= :: ReplicationDestinationProperty
-> ReplicationDestinationProperty -> Bool
/= :: ReplicationDestinationProperty
-> ReplicationDestinationProperty -> Bool
Prelude.Eq, Int -> ReplicationDestinationProperty -> ShowS
[ReplicationDestinationProperty] -> ShowS
ReplicationDestinationProperty -> String
(Int -> ReplicationDestinationProperty -> ShowS)
-> (ReplicationDestinationProperty -> String)
-> ([ReplicationDestinationProperty] -> ShowS)
-> Show ReplicationDestinationProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ReplicationDestinationProperty -> ShowS
showsPrec :: Int -> ReplicationDestinationProperty -> ShowS
$cshow :: ReplicationDestinationProperty -> String
show :: ReplicationDestinationProperty -> String
$cshowList :: [ReplicationDestinationProperty] -> ShowS
showList :: [ReplicationDestinationProperty] -> ShowS
Prelude.Show)
mkReplicationDestinationProperty ::
  Value Prelude.Text -> ReplicationDestinationProperty
mkReplicationDestinationProperty :: Value Text -> ReplicationDestinationProperty
mkReplicationDestinationProperty Value Text
bucket
  = ReplicationDestinationProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), bucket :: Value Text
bucket = Value Text
bucket,
       accessControlTranslation :: Maybe AccessControlTranslationProperty
accessControlTranslation = Maybe AccessControlTranslationProperty
forall a. Maybe a
Prelude.Nothing,
       account :: Maybe (Value Text)
account = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       encryptionConfiguration :: Maybe EncryptionConfigurationProperty
encryptionConfiguration = Maybe EncryptionConfigurationProperty
forall a. Maybe a
Prelude.Nothing,
       metrics :: Maybe MetricsProperty
metrics = Maybe MetricsProperty
forall a. Maybe a
Prelude.Nothing, replicationTime :: Maybe ReplicationTimeProperty
replicationTime = Maybe ReplicationTimeProperty
forall a. Maybe a
Prelude.Nothing,
       storageClass :: Maybe (Value Text)
storageClass = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties ReplicationDestinationProperty where
  toResourceProperties :: ReplicationDestinationProperty -> ResourceProperties
toResourceProperties ReplicationDestinationProperty {Maybe (Value Text)
Maybe AccessControlTranslationProperty
Maybe EncryptionConfigurationProperty
Maybe ReplicationTimeProperty
Maybe MetricsProperty
()
Value Text
haddock_workaround_ :: ReplicationDestinationProperty -> ()
accessControlTranslation :: ReplicationDestinationProperty
-> Maybe AccessControlTranslationProperty
account :: ReplicationDestinationProperty -> Maybe (Value Text)
bucket :: ReplicationDestinationProperty -> Value Text
encryptionConfiguration :: ReplicationDestinationProperty
-> Maybe EncryptionConfigurationProperty
metrics :: ReplicationDestinationProperty -> Maybe MetricsProperty
replicationTime :: ReplicationDestinationProperty -> Maybe ReplicationTimeProperty
storageClass :: ReplicationDestinationProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
accessControlTranslation :: Maybe AccessControlTranslationProperty
account :: Maybe (Value Text)
bucket :: Value Text
encryptionConfiguration :: Maybe EncryptionConfigurationProperty
metrics :: Maybe MetricsProperty
replicationTime :: Maybe ReplicationTimeProperty
storageClass :: Maybe (Value Text)
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::S3::Bucket.ReplicationDestination",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
                        ([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
                           [Key
"Bucket" 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
bucket]
                           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                              [Key -> AccessControlTranslationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"AccessControlTranslation"
                                 (AccessControlTranslationProperty -> (Key, Value))
-> Maybe AccessControlTranslationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe AccessControlTranslationProperty
accessControlTranslation,
                               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
"Account" (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)
account,
                               Key -> EncryptionConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"EncryptionConfiguration"
                                 (EncryptionConfigurationProperty -> (Key, Value))
-> Maybe EncryptionConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe EncryptionConfigurationProperty
encryptionConfiguration,
                               Key -> MetricsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Metrics" (MetricsProperty -> (Key, Value))
-> Maybe MetricsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe MetricsProperty
metrics,
                               Key -> ReplicationTimeProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ReplicationTime" (ReplicationTimeProperty -> (Key, Value))
-> Maybe ReplicationTimeProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ReplicationTimeProperty
replicationTime,
                               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
"StorageClass" (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)
storageClass]))}
instance JSON.ToJSON ReplicationDestinationProperty where
  toJSON :: ReplicationDestinationProperty -> Value
toJSON ReplicationDestinationProperty {Maybe (Value Text)
Maybe AccessControlTranslationProperty
Maybe EncryptionConfigurationProperty
Maybe ReplicationTimeProperty
Maybe MetricsProperty
()
Value Text
haddock_workaround_ :: ReplicationDestinationProperty -> ()
accessControlTranslation :: ReplicationDestinationProperty
-> Maybe AccessControlTranslationProperty
account :: ReplicationDestinationProperty -> Maybe (Value Text)
bucket :: ReplicationDestinationProperty -> Value Text
encryptionConfiguration :: ReplicationDestinationProperty
-> Maybe EncryptionConfigurationProperty
metrics :: ReplicationDestinationProperty -> Maybe MetricsProperty
replicationTime :: ReplicationDestinationProperty -> Maybe ReplicationTimeProperty
storageClass :: ReplicationDestinationProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
accessControlTranslation :: Maybe AccessControlTranslationProperty
account :: Maybe (Value Text)
bucket :: Value Text
encryptionConfiguration :: Maybe EncryptionConfigurationProperty
metrics :: Maybe MetricsProperty
replicationTime :: Maybe ReplicationTimeProperty
storageClass :: Maybe (Value Text)
..}
    = [(Key, Value)] -> Value
JSON.object
        ([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
           ([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
              [Key
"Bucket" 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
bucket]
              ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                 [Key -> AccessControlTranslationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"AccessControlTranslation"
                    (AccessControlTranslationProperty -> (Key, Value))
-> Maybe AccessControlTranslationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe AccessControlTranslationProperty
accessControlTranslation,
                  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
"Account" (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)
account,
                  Key -> EncryptionConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"EncryptionConfiguration"
                    (EncryptionConfigurationProperty -> (Key, Value))
-> Maybe EncryptionConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe EncryptionConfigurationProperty
encryptionConfiguration,
                  Key -> MetricsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Metrics" (MetricsProperty -> (Key, Value))
-> Maybe MetricsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe MetricsProperty
metrics,
                  Key -> ReplicationTimeProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ReplicationTime" (ReplicationTimeProperty -> (Key, Value))
-> Maybe ReplicationTimeProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ReplicationTimeProperty
replicationTime,
                  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
"StorageClass" (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)
storageClass])))
instance Property "AccessControlTranslation" ReplicationDestinationProperty where
  type PropertyType "AccessControlTranslation" ReplicationDestinationProperty = AccessControlTranslationProperty
  set :: PropertyType
  "AccessControlTranslation" ReplicationDestinationProperty
-> ReplicationDestinationProperty -> ReplicationDestinationProperty
set PropertyType
  "AccessControlTranslation" ReplicationDestinationProperty
newValue ReplicationDestinationProperty {Maybe (Value Text)
Maybe AccessControlTranslationProperty
Maybe EncryptionConfigurationProperty
Maybe ReplicationTimeProperty
Maybe MetricsProperty
()
Value Text
haddock_workaround_ :: ReplicationDestinationProperty -> ()
accessControlTranslation :: ReplicationDestinationProperty
-> Maybe AccessControlTranslationProperty
account :: ReplicationDestinationProperty -> Maybe (Value Text)
bucket :: ReplicationDestinationProperty -> Value Text
encryptionConfiguration :: ReplicationDestinationProperty
-> Maybe EncryptionConfigurationProperty
metrics :: ReplicationDestinationProperty -> Maybe MetricsProperty
replicationTime :: ReplicationDestinationProperty -> Maybe ReplicationTimeProperty
storageClass :: ReplicationDestinationProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
accessControlTranslation :: Maybe AccessControlTranslationProperty
account :: Maybe (Value Text)
bucket :: Value Text
encryptionConfiguration :: Maybe EncryptionConfigurationProperty
metrics :: Maybe MetricsProperty
replicationTime :: Maybe ReplicationTimeProperty
storageClass :: Maybe (Value Text)
..}
    = ReplicationDestinationProperty
        {accessControlTranslation :: Maybe AccessControlTranslationProperty
accessControlTranslation = AccessControlTranslationProperty
-> Maybe AccessControlTranslationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
  "AccessControlTranslation" ReplicationDestinationProperty
AccessControlTranslationProperty
newValue, Maybe (Value Text)
Maybe EncryptionConfigurationProperty
Maybe ReplicationTimeProperty
Maybe MetricsProperty
()
Value Text
haddock_workaround_ :: ()
account :: Maybe (Value Text)
bucket :: Value Text
encryptionConfiguration :: Maybe EncryptionConfigurationProperty
metrics :: Maybe MetricsProperty
replicationTime :: Maybe ReplicationTimeProperty
storageClass :: Maybe (Value Text)
haddock_workaround_ :: ()
account :: Maybe (Value Text)
bucket :: Value Text
encryptionConfiguration :: Maybe EncryptionConfigurationProperty
metrics :: Maybe MetricsProperty
replicationTime :: Maybe ReplicationTimeProperty
storageClass :: Maybe (Value Text)
..}
instance Property "Account" ReplicationDestinationProperty where
  type PropertyType "Account" ReplicationDestinationProperty = Value Prelude.Text
  set :: PropertyType "Account" ReplicationDestinationProperty
-> ReplicationDestinationProperty -> ReplicationDestinationProperty
set PropertyType "Account" ReplicationDestinationProperty
newValue ReplicationDestinationProperty {Maybe (Value Text)
Maybe AccessControlTranslationProperty
Maybe EncryptionConfigurationProperty
Maybe ReplicationTimeProperty
Maybe MetricsProperty
()
Value Text
haddock_workaround_ :: ReplicationDestinationProperty -> ()
accessControlTranslation :: ReplicationDestinationProperty
-> Maybe AccessControlTranslationProperty
account :: ReplicationDestinationProperty -> Maybe (Value Text)
bucket :: ReplicationDestinationProperty -> Value Text
encryptionConfiguration :: ReplicationDestinationProperty
-> Maybe EncryptionConfigurationProperty
metrics :: ReplicationDestinationProperty -> Maybe MetricsProperty
replicationTime :: ReplicationDestinationProperty -> Maybe ReplicationTimeProperty
storageClass :: ReplicationDestinationProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
accessControlTranslation :: Maybe AccessControlTranslationProperty
account :: Maybe (Value Text)
bucket :: Value Text
encryptionConfiguration :: Maybe EncryptionConfigurationProperty
metrics :: Maybe MetricsProperty
replicationTime :: Maybe ReplicationTimeProperty
storageClass :: Maybe (Value Text)
..}
    = ReplicationDestinationProperty
        {account :: Maybe (Value Text)
account = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Account" ReplicationDestinationProperty
Value Text
newValue, Maybe (Value Text)
Maybe AccessControlTranslationProperty
Maybe EncryptionConfigurationProperty
Maybe ReplicationTimeProperty
Maybe MetricsProperty
()
Value Text
haddock_workaround_ :: ()
accessControlTranslation :: Maybe AccessControlTranslationProperty
bucket :: Value Text
encryptionConfiguration :: Maybe EncryptionConfigurationProperty
metrics :: Maybe MetricsProperty
replicationTime :: Maybe ReplicationTimeProperty
storageClass :: Maybe (Value Text)
haddock_workaround_ :: ()
accessControlTranslation :: Maybe AccessControlTranslationProperty
bucket :: Value Text
encryptionConfiguration :: Maybe EncryptionConfigurationProperty
metrics :: Maybe MetricsProperty
replicationTime :: Maybe ReplicationTimeProperty
storageClass :: Maybe (Value Text)
..}
instance Property "Bucket" ReplicationDestinationProperty where
  type PropertyType "Bucket" ReplicationDestinationProperty = Value Prelude.Text
  set :: PropertyType "Bucket" ReplicationDestinationProperty
-> ReplicationDestinationProperty -> ReplicationDestinationProperty
set PropertyType "Bucket" ReplicationDestinationProperty
newValue ReplicationDestinationProperty {Maybe (Value Text)
Maybe AccessControlTranslationProperty
Maybe EncryptionConfigurationProperty
Maybe ReplicationTimeProperty
Maybe MetricsProperty
()
Value Text
haddock_workaround_ :: ReplicationDestinationProperty -> ()
accessControlTranslation :: ReplicationDestinationProperty
-> Maybe AccessControlTranslationProperty
account :: ReplicationDestinationProperty -> Maybe (Value Text)
bucket :: ReplicationDestinationProperty -> Value Text
encryptionConfiguration :: ReplicationDestinationProperty
-> Maybe EncryptionConfigurationProperty
metrics :: ReplicationDestinationProperty -> Maybe MetricsProperty
replicationTime :: ReplicationDestinationProperty -> Maybe ReplicationTimeProperty
storageClass :: ReplicationDestinationProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
accessControlTranslation :: Maybe AccessControlTranslationProperty
account :: Maybe (Value Text)
bucket :: Value Text
encryptionConfiguration :: Maybe EncryptionConfigurationProperty
metrics :: Maybe MetricsProperty
replicationTime :: Maybe ReplicationTimeProperty
storageClass :: Maybe (Value Text)
..}
    = ReplicationDestinationProperty {bucket :: Value Text
bucket = PropertyType "Bucket" ReplicationDestinationProperty
Value Text
newValue, Maybe (Value Text)
Maybe AccessControlTranslationProperty
Maybe EncryptionConfigurationProperty
Maybe ReplicationTimeProperty
Maybe MetricsProperty
()
haddock_workaround_ :: ()
accessControlTranslation :: Maybe AccessControlTranslationProperty
account :: Maybe (Value Text)
encryptionConfiguration :: Maybe EncryptionConfigurationProperty
metrics :: Maybe MetricsProperty
replicationTime :: Maybe ReplicationTimeProperty
storageClass :: Maybe (Value Text)
haddock_workaround_ :: ()
accessControlTranslation :: Maybe AccessControlTranslationProperty
account :: Maybe (Value Text)
encryptionConfiguration :: Maybe EncryptionConfigurationProperty
metrics :: Maybe MetricsProperty
replicationTime :: Maybe ReplicationTimeProperty
storageClass :: Maybe (Value Text)
..}
instance Property "EncryptionConfiguration" ReplicationDestinationProperty where
  type PropertyType "EncryptionConfiguration" ReplicationDestinationProperty = EncryptionConfigurationProperty
  set :: PropertyType
  "EncryptionConfiguration" ReplicationDestinationProperty
-> ReplicationDestinationProperty -> ReplicationDestinationProperty
set PropertyType
  "EncryptionConfiguration" ReplicationDestinationProperty
newValue ReplicationDestinationProperty {Maybe (Value Text)
Maybe AccessControlTranslationProperty
Maybe EncryptionConfigurationProperty
Maybe ReplicationTimeProperty
Maybe MetricsProperty
()
Value Text
haddock_workaround_ :: ReplicationDestinationProperty -> ()
accessControlTranslation :: ReplicationDestinationProperty
-> Maybe AccessControlTranslationProperty
account :: ReplicationDestinationProperty -> Maybe (Value Text)
bucket :: ReplicationDestinationProperty -> Value Text
encryptionConfiguration :: ReplicationDestinationProperty
-> Maybe EncryptionConfigurationProperty
metrics :: ReplicationDestinationProperty -> Maybe MetricsProperty
replicationTime :: ReplicationDestinationProperty -> Maybe ReplicationTimeProperty
storageClass :: ReplicationDestinationProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
accessControlTranslation :: Maybe AccessControlTranslationProperty
account :: Maybe (Value Text)
bucket :: Value Text
encryptionConfiguration :: Maybe EncryptionConfigurationProperty
metrics :: Maybe MetricsProperty
replicationTime :: Maybe ReplicationTimeProperty
storageClass :: Maybe (Value Text)
..}
    = ReplicationDestinationProperty
        {encryptionConfiguration :: Maybe EncryptionConfigurationProperty
encryptionConfiguration = EncryptionConfigurationProperty
-> Maybe EncryptionConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
  "EncryptionConfiguration" ReplicationDestinationProperty
EncryptionConfigurationProperty
newValue, Maybe (Value Text)
Maybe AccessControlTranslationProperty
Maybe ReplicationTimeProperty
Maybe MetricsProperty
()
Value Text
haddock_workaround_ :: ()
accessControlTranslation :: Maybe AccessControlTranslationProperty
account :: Maybe (Value Text)
bucket :: Value Text
metrics :: Maybe MetricsProperty
replicationTime :: Maybe ReplicationTimeProperty
storageClass :: Maybe (Value Text)
haddock_workaround_ :: ()
accessControlTranslation :: Maybe AccessControlTranslationProperty
account :: Maybe (Value Text)
bucket :: Value Text
metrics :: Maybe MetricsProperty
replicationTime :: Maybe ReplicationTimeProperty
storageClass :: Maybe (Value Text)
..}
instance Property "Metrics" ReplicationDestinationProperty where
  type PropertyType "Metrics" ReplicationDestinationProperty = MetricsProperty
  set :: PropertyType "Metrics" ReplicationDestinationProperty
-> ReplicationDestinationProperty -> ReplicationDestinationProperty
set PropertyType "Metrics" ReplicationDestinationProperty
newValue ReplicationDestinationProperty {Maybe (Value Text)
Maybe AccessControlTranslationProperty
Maybe EncryptionConfigurationProperty
Maybe ReplicationTimeProperty
Maybe MetricsProperty
()
Value Text
haddock_workaround_ :: ReplicationDestinationProperty -> ()
accessControlTranslation :: ReplicationDestinationProperty
-> Maybe AccessControlTranslationProperty
account :: ReplicationDestinationProperty -> Maybe (Value Text)
bucket :: ReplicationDestinationProperty -> Value Text
encryptionConfiguration :: ReplicationDestinationProperty
-> Maybe EncryptionConfigurationProperty
metrics :: ReplicationDestinationProperty -> Maybe MetricsProperty
replicationTime :: ReplicationDestinationProperty -> Maybe ReplicationTimeProperty
storageClass :: ReplicationDestinationProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
accessControlTranslation :: Maybe AccessControlTranslationProperty
account :: Maybe (Value Text)
bucket :: Value Text
encryptionConfiguration :: Maybe EncryptionConfigurationProperty
metrics :: Maybe MetricsProperty
replicationTime :: Maybe ReplicationTimeProperty
storageClass :: Maybe (Value Text)
..}
    = ReplicationDestinationProperty
        {metrics :: Maybe MetricsProperty
metrics = MetricsProperty -> Maybe MetricsProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Metrics" ReplicationDestinationProperty
MetricsProperty
newValue, Maybe (Value Text)
Maybe AccessControlTranslationProperty
Maybe EncryptionConfigurationProperty
Maybe ReplicationTimeProperty
()
Value Text
haddock_workaround_ :: ()
accessControlTranslation :: Maybe AccessControlTranslationProperty
account :: Maybe (Value Text)
bucket :: Value Text
encryptionConfiguration :: Maybe EncryptionConfigurationProperty
replicationTime :: Maybe ReplicationTimeProperty
storageClass :: Maybe (Value Text)
haddock_workaround_ :: ()
accessControlTranslation :: Maybe AccessControlTranslationProperty
account :: Maybe (Value Text)
bucket :: Value Text
encryptionConfiguration :: Maybe EncryptionConfigurationProperty
replicationTime :: Maybe ReplicationTimeProperty
storageClass :: Maybe (Value Text)
..}
instance Property "ReplicationTime" ReplicationDestinationProperty where
  type PropertyType "ReplicationTime" ReplicationDestinationProperty = ReplicationTimeProperty
  set :: PropertyType "ReplicationTime" ReplicationDestinationProperty
-> ReplicationDestinationProperty -> ReplicationDestinationProperty
set PropertyType "ReplicationTime" ReplicationDestinationProperty
newValue ReplicationDestinationProperty {Maybe (Value Text)
Maybe AccessControlTranslationProperty
Maybe EncryptionConfigurationProperty
Maybe ReplicationTimeProperty
Maybe MetricsProperty
()
Value Text
haddock_workaround_ :: ReplicationDestinationProperty -> ()
accessControlTranslation :: ReplicationDestinationProperty
-> Maybe AccessControlTranslationProperty
account :: ReplicationDestinationProperty -> Maybe (Value Text)
bucket :: ReplicationDestinationProperty -> Value Text
encryptionConfiguration :: ReplicationDestinationProperty
-> Maybe EncryptionConfigurationProperty
metrics :: ReplicationDestinationProperty -> Maybe MetricsProperty
replicationTime :: ReplicationDestinationProperty -> Maybe ReplicationTimeProperty
storageClass :: ReplicationDestinationProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
accessControlTranslation :: Maybe AccessControlTranslationProperty
account :: Maybe (Value Text)
bucket :: Value Text
encryptionConfiguration :: Maybe EncryptionConfigurationProperty
metrics :: Maybe MetricsProperty
replicationTime :: Maybe ReplicationTimeProperty
storageClass :: Maybe (Value Text)
..}
    = ReplicationDestinationProperty
        {replicationTime :: Maybe ReplicationTimeProperty
replicationTime = ReplicationTimeProperty -> Maybe ReplicationTimeProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ReplicationTime" ReplicationDestinationProperty
ReplicationTimeProperty
newValue, Maybe (Value Text)
Maybe AccessControlTranslationProperty
Maybe EncryptionConfigurationProperty
Maybe MetricsProperty
()
Value Text
haddock_workaround_ :: ()
accessControlTranslation :: Maybe AccessControlTranslationProperty
account :: Maybe (Value Text)
bucket :: Value Text
encryptionConfiguration :: Maybe EncryptionConfigurationProperty
metrics :: Maybe MetricsProperty
storageClass :: Maybe (Value Text)
haddock_workaround_ :: ()
accessControlTranslation :: Maybe AccessControlTranslationProperty
account :: Maybe (Value Text)
bucket :: Value Text
encryptionConfiguration :: Maybe EncryptionConfigurationProperty
metrics :: Maybe MetricsProperty
storageClass :: Maybe (Value Text)
..}
instance Property "StorageClass" ReplicationDestinationProperty where
  type PropertyType "StorageClass" ReplicationDestinationProperty = Value Prelude.Text
  set :: PropertyType "StorageClass" ReplicationDestinationProperty
-> ReplicationDestinationProperty -> ReplicationDestinationProperty
set PropertyType "StorageClass" ReplicationDestinationProperty
newValue ReplicationDestinationProperty {Maybe (Value Text)
Maybe AccessControlTranslationProperty
Maybe EncryptionConfigurationProperty
Maybe ReplicationTimeProperty
Maybe MetricsProperty
()
Value Text
haddock_workaround_ :: ReplicationDestinationProperty -> ()
accessControlTranslation :: ReplicationDestinationProperty
-> Maybe AccessControlTranslationProperty
account :: ReplicationDestinationProperty -> Maybe (Value Text)
bucket :: ReplicationDestinationProperty -> Value Text
encryptionConfiguration :: ReplicationDestinationProperty
-> Maybe EncryptionConfigurationProperty
metrics :: ReplicationDestinationProperty -> Maybe MetricsProperty
replicationTime :: ReplicationDestinationProperty -> Maybe ReplicationTimeProperty
storageClass :: ReplicationDestinationProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
accessControlTranslation :: Maybe AccessControlTranslationProperty
account :: Maybe (Value Text)
bucket :: Value Text
encryptionConfiguration :: Maybe EncryptionConfigurationProperty
metrics :: Maybe MetricsProperty
replicationTime :: Maybe ReplicationTimeProperty
storageClass :: Maybe (Value Text)
..}
    = ReplicationDestinationProperty
        {storageClass :: Maybe (Value Text)
storageClass = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "StorageClass" ReplicationDestinationProperty
Value Text
newValue, Maybe (Value Text)
Maybe AccessControlTranslationProperty
Maybe EncryptionConfigurationProperty
Maybe ReplicationTimeProperty
Maybe MetricsProperty
()
Value Text
haddock_workaround_ :: ()
accessControlTranslation :: Maybe AccessControlTranslationProperty
account :: Maybe (Value Text)
bucket :: Value Text
encryptionConfiguration :: Maybe EncryptionConfigurationProperty
metrics :: Maybe MetricsProperty
replicationTime :: Maybe ReplicationTimeProperty
haddock_workaround_ :: ()
accessControlTranslation :: Maybe AccessControlTranslationProperty
account :: Maybe (Value Text)
bucket :: Value Text
encryptionConfiguration :: Maybe EncryptionConfigurationProperty
metrics :: Maybe MetricsProperty
replicationTime :: Maybe ReplicationTimeProperty
..}