module Stratosphere.RedshiftServerless.Snapshot.SnapshotProperty (
SnapshotProperty(..), mkSnapshotProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data SnapshotProperty
=
SnapshotProperty {SnapshotProperty -> ()
haddock_workaround_ :: (),
SnapshotProperty -> Maybe (Value Text)
adminUsername :: (Prelude.Maybe (Value Prelude.Text)),
SnapshotProperty -> Maybe (Value Text)
kmsKeyId :: (Prelude.Maybe (Value Prelude.Text)),
SnapshotProperty -> Maybe (Value Text)
namespaceArn :: (Prelude.Maybe (Value Prelude.Text)),
SnapshotProperty -> Maybe (Value Text)
namespaceName :: (Prelude.Maybe (Value Prelude.Text)),
SnapshotProperty -> Maybe (Value Text)
ownerAccount :: (Prelude.Maybe (Value Prelude.Text)),
SnapshotProperty -> Maybe (Value Integer)
retentionPeriod :: (Prelude.Maybe (Value Prelude.Integer)),
SnapshotProperty -> Maybe (Value Text)
snapshotArn :: (Prelude.Maybe (Value Prelude.Text)),
SnapshotProperty -> Maybe (Value Text)
snapshotCreateTime :: (Prelude.Maybe (Value Prelude.Text)),
SnapshotProperty -> Maybe (Value Text)
snapshotName :: (Prelude.Maybe (Value Prelude.Text)),
SnapshotProperty -> Maybe (Value Text)
status :: (Prelude.Maybe (Value Prelude.Text))}
deriving stock (SnapshotProperty -> SnapshotProperty -> Bool
(SnapshotProperty -> SnapshotProperty -> Bool)
-> (SnapshotProperty -> SnapshotProperty -> Bool)
-> Eq SnapshotProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SnapshotProperty -> SnapshotProperty -> Bool
== :: SnapshotProperty -> SnapshotProperty -> Bool
$c/= :: SnapshotProperty -> SnapshotProperty -> Bool
/= :: SnapshotProperty -> SnapshotProperty -> Bool
Prelude.Eq, Int -> SnapshotProperty -> ShowS
[SnapshotProperty] -> ShowS
SnapshotProperty -> String
(Int -> SnapshotProperty -> ShowS)
-> (SnapshotProperty -> String)
-> ([SnapshotProperty] -> ShowS)
-> Show SnapshotProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> SnapshotProperty -> ShowS
showsPrec :: Int -> SnapshotProperty -> ShowS
$cshow :: SnapshotProperty -> String
show :: SnapshotProperty -> String
$cshowList :: [SnapshotProperty] -> ShowS
showList :: [SnapshotProperty] -> ShowS
Prelude.Show)
mkSnapshotProperty :: SnapshotProperty
mkSnapshotProperty :: SnapshotProperty
mkSnapshotProperty
= SnapshotProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), adminUsername :: Maybe (Value Text)
adminUsername = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
kmsKeyId :: Maybe (Value Text)
kmsKeyId = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, namespaceArn :: Maybe (Value Text)
namespaceArn = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
namespaceName :: Maybe (Value Text)
namespaceName = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, ownerAccount :: Maybe (Value Text)
ownerAccount = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
retentionPeriod :: Maybe (Value Integer)
retentionPeriod = Maybe (Value Integer)
forall a. Maybe a
Prelude.Nothing, snapshotArn :: Maybe (Value Text)
snapshotArn = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
snapshotCreateTime :: Maybe (Value Text)
snapshotCreateTime = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
snapshotName :: Maybe (Value Text)
snapshotName = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, status :: Maybe (Value Text)
status = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties SnapshotProperty where
toResourceProperties :: SnapshotProperty -> ResourceProperties
toResourceProperties SnapshotProperty {Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: SnapshotProperty -> ()
adminUsername :: SnapshotProperty -> Maybe (Value Text)
kmsKeyId :: SnapshotProperty -> Maybe (Value Text)
namespaceArn :: SnapshotProperty -> Maybe (Value Text)
namespaceName :: SnapshotProperty -> Maybe (Value Text)
ownerAccount :: SnapshotProperty -> Maybe (Value Text)
retentionPeriod :: SnapshotProperty -> Maybe (Value Integer)
snapshotArn :: SnapshotProperty -> Maybe (Value Text)
snapshotCreateTime :: SnapshotProperty -> Maybe (Value Text)
snapshotName :: SnapshotProperty -> Maybe (Value Text)
status :: SnapshotProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
adminUsername :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
namespaceArn :: Maybe (Value Text)
namespaceName :: Maybe (Value Text)
ownerAccount :: Maybe (Value Text)
retentionPeriod :: Maybe (Value Integer)
snapshotArn :: Maybe (Value Text)
snapshotCreateTime :: Maybe (Value Text)
snapshotName :: Maybe (Value Text)
status :: Maybe (Value Text)
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::RedshiftServerless::Snapshot.Snapshot",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
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 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
"AdminUsername" (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)
adminUsername,
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
"KmsKeyId" (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)
kmsKeyId,
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
"NamespaceArn" (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)
namespaceArn,
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
"NamespaceName" (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)
namespaceName,
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
"OwnerAccount" (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)
ownerAccount,
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
"RetentionPeriod" (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)
retentionPeriod,
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
"SnapshotArn" (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)
snapshotArn,
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
"SnapshotCreateTime" (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)
snapshotCreateTime,
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
"SnapshotName" (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)
snapshotName,
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
"Status" (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)
status])}
instance JSON.ToJSON SnapshotProperty where
toJSON :: SnapshotProperty -> Value
toJSON SnapshotProperty {Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: SnapshotProperty -> ()
adminUsername :: SnapshotProperty -> Maybe (Value Text)
kmsKeyId :: SnapshotProperty -> Maybe (Value Text)
namespaceArn :: SnapshotProperty -> Maybe (Value Text)
namespaceName :: SnapshotProperty -> Maybe (Value Text)
ownerAccount :: SnapshotProperty -> Maybe (Value Text)
retentionPeriod :: SnapshotProperty -> Maybe (Value Integer)
snapshotArn :: SnapshotProperty -> Maybe (Value Text)
snapshotCreateTime :: SnapshotProperty -> Maybe (Value Text)
snapshotName :: SnapshotProperty -> Maybe (Value Text)
status :: SnapshotProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
adminUsername :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
namespaceArn :: Maybe (Value Text)
namespaceName :: Maybe (Value Text)
ownerAccount :: Maybe (Value Text)
retentionPeriod :: Maybe (Value Integer)
snapshotArn :: Maybe (Value Text)
snapshotCreateTime :: Maybe (Value Text)
snapshotName :: Maybe (Value Text)
status :: Maybe (Value Text)
..}
= [(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 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
"AdminUsername" (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)
adminUsername,
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
"KmsKeyId" (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)
kmsKeyId,
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
"NamespaceArn" (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)
namespaceArn,
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
"NamespaceName" (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)
namespaceName,
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
"OwnerAccount" (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)
ownerAccount,
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
"RetentionPeriod" (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)
retentionPeriod,
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
"SnapshotArn" (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)
snapshotArn,
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
"SnapshotCreateTime" (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)
snapshotCreateTime,
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
"SnapshotName" (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)
snapshotName,
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
"Status" (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)
status]))
instance Property "AdminUsername" SnapshotProperty where
type PropertyType "AdminUsername" SnapshotProperty = Value Prelude.Text
set :: PropertyType "AdminUsername" SnapshotProperty
-> SnapshotProperty -> SnapshotProperty
set PropertyType "AdminUsername" SnapshotProperty
newValue SnapshotProperty {Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: SnapshotProperty -> ()
adminUsername :: SnapshotProperty -> Maybe (Value Text)
kmsKeyId :: SnapshotProperty -> Maybe (Value Text)
namespaceArn :: SnapshotProperty -> Maybe (Value Text)
namespaceName :: SnapshotProperty -> Maybe (Value Text)
ownerAccount :: SnapshotProperty -> Maybe (Value Text)
retentionPeriod :: SnapshotProperty -> Maybe (Value Integer)
snapshotArn :: SnapshotProperty -> Maybe (Value Text)
snapshotCreateTime :: SnapshotProperty -> Maybe (Value Text)
snapshotName :: SnapshotProperty -> Maybe (Value Text)
status :: SnapshotProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
adminUsername :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
namespaceArn :: Maybe (Value Text)
namespaceName :: Maybe (Value Text)
ownerAccount :: Maybe (Value Text)
retentionPeriod :: Maybe (Value Integer)
snapshotArn :: Maybe (Value Text)
snapshotCreateTime :: Maybe (Value Text)
snapshotName :: Maybe (Value Text)
status :: Maybe (Value Text)
..}
= SnapshotProperty {adminUsername :: Maybe (Value Text)
adminUsername = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "AdminUsername" SnapshotProperty
Value Text
newValue, Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
kmsKeyId :: Maybe (Value Text)
namespaceArn :: Maybe (Value Text)
namespaceName :: Maybe (Value Text)
ownerAccount :: Maybe (Value Text)
retentionPeriod :: Maybe (Value Integer)
snapshotArn :: Maybe (Value Text)
snapshotCreateTime :: Maybe (Value Text)
snapshotName :: Maybe (Value Text)
status :: Maybe (Value Text)
haddock_workaround_ :: ()
kmsKeyId :: Maybe (Value Text)
namespaceArn :: Maybe (Value Text)
namespaceName :: Maybe (Value Text)
ownerAccount :: Maybe (Value Text)
retentionPeriod :: Maybe (Value Integer)
snapshotArn :: Maybe (Value Text)
snapshotCreateTime :: Maybe (Value Text)
snapshotName :: Maybe (Value Text)
status :: Maybe (Value Text)
..}
instance Property "KmsKeyId" SnapshotProperty where
type PropertyType "KmsKeyId" SnapshotProperty = Value Prelude.Text
set :: PropertyType "KmsKeyId" SnapshotProperty
-> SnapshotProperty -> SnapshotProperty
set PropertyType "KmsKeyId" SnapshotProperty
newValue SnapshotProperty {Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: SnapshotProperty -> ()
adminUsername :: SnapshotProperty -> Maybe (Value Text)
kmsKeyId :: SnapshotProperty -> Maybe (Value Text)
namespaceArn :: SnapshotProperty -> Maybe (Value Text)
namespaceName :: SnapshotProperty -> Maybe (Value Text)
ownerAccount :: SnapshotProperty -> Maybe (Value Text)
retentionPeriod :: SnapshotProperty -> Maybe (Value Integer)
snapshotArn :: SnapshotProperty -> Maybe (Value Text)
snapshotCreateTime :: SnapshotProperty -> Maybe (Value Text)
snapshotName :: SnapshotProperty -> Maybe (Value Text)
status :: SnapshotProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
adminUsername :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
namespaceArn :: Maybe (Value Text)
namespaceName :: Maybe (Value Text)
ownerAccount :: Maybe (Value Text)
retentionPeriod :: Maybe (Value Integer)
snapshotArn :: Maybe (Value Text)
snapshotCreateTime :: Maybe (Value Text)
snapshotName :: Maybe (Value Text)
status :: Maybe (Value Text)
..}
= SnapshotProperty {kmsKeyId :: Maybe (Value Text)
kmsKeyId = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "KmsKeyId" SnapshotProperty
Value Text
newValue, Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
adminUsername :: Maybe (Value Text)
namespaceArn :: Maybe (Value Text)
namespaceName :: Maybe (Value Text)
ownerAccount :: Maybe (Value Text)
retentionPeriod :: Maybe (Value Integer)
snapshotArn :: Maybe (Value Text)
snapshotCreateTime :: Maybe (Value Text)
snapshotName :: Maybe (Value Text)
status :: Maybe (Value Text)
haddock_workaround_ :: ()
adminUsername :: Maybe (Value Text)
namespaceArn :: Maybe (Value Text)
namespaceName :: Maybe (Value Text)
ownerAccount :: Maybe (Value Text)
retentionPeriod :: Maybe (Value Integer)
snapshotArn :: Maybe (Value Text)
snapshotCreateTime :: Maybe (Value Text)
snapshotName :: Maybe (Value Text)
status :: Maybe (Value Text)
..}
instance Property "NamespaceArn" SnapshotProperty where
type PropertyType "NamespaceArn" SnapshotProperty = Value Prelude.Text
set :: PropertyType "NamespaceArn" SnapshotProperty
-> SnapshotProperty -> SnapshotProperty
set PropertyType "NamespaceArn" SnapshotProperty
newValue SnapshotProperty {Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: SnapshotProperty -> ()
adminUsername :: SnapshotProperty -> Maybe (Value Text)
kmsKeyId :: SnapshotProperty -> Maybe (Value Text)
namespaceArn :: SnapshotProperty -> Maybe (Value Text)
namespaceName :: SnapshotProperty -> Maybe (Value Text)
ownerAccount :: SnapshotProperty -> Maybe (Value Text)
retentionPeriod :: SnapshotProperty -> Maybe (Value Integer)
snapshotArn :: SnapshotProperty -> Maybe (Value Text)
snapshotCreateTime :: SnapshotProperty -> Maybe (Value Text)
snapshotName :: SnapshotProperty -> Maybe (Value Text)
status :: SnapshotProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
adminUsername :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
namespaceArn :: Maybe (Value Text)
namespaceName :: Maybe (Value Text)
ownerAccount :: Maybe (Value Text)
retentionPeriod :: Maybe (Value Integer)
snapshotArn :: Maybe (Value Text)
snapshotCreateTime :: Maybe (Value Text)
snapshotName :: Maybe (Value Text)
status :: Maybe (Value Text)
..}
= SnapshotProperty {namespaceArn :: Maybe (Value Text)
namespaceArn = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "NamespaceArn" SnapshotProperty
Value Text
newValue, Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
adminUsername :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
namespaceName :: Maybe (Value Text)
ownerAccount :: Maybe (Value Text)
retentionPeriod :: Maybe (Value Integer)
snapshotArn :: Maybe (Value Text)
snapshotCreateTime :: Maybe (Value Text)
snapshotName :: Maybe (Value Text)
status :: Maybe (Value Text)
haddock_workaround_ :: ()
adminUsername :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
namespaceName :: Maybe (Value Text)
ownerAccount :: Maybe (Value Text)
retentionPeriod :: Maybe (Value Integer)
snapshotArn :: Maybe (Value Text)
snapshotCreateTime :: Maybe (Value Text)
snapshotName :: Maybe (Value Text)
status :: Maybe (Value Text)
..}
instance Property "NamespaceName" SnapshotProperty where
type PropertyType "NamespaceName" SnapshotProperty = Value Prelude.Text
set :: PropertyType "NamespaceName" SnapshotProperty
-> SnapshotProperty -> SnapshotProperty
set PropertyType "NamespaceName" SnapshotProperty
newValue SnapshotProperty {Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: SnapshotProperty -> ()
adminUsername :: SnapshotProperty -> Maybe (Value Text)
kmsKeyId :: SnapshotProperty -> Maybe (Value Text)
namespaceArn :: SnapshotProperty -> Maybe (Value Text)
namespaceName :: SnapshotProperty -> Maybe (Value Text)
ownerAccount :: SnapshotProperty -> Maybe (Value Text)
retentionPeriod :: SnapshotProperty -> Maybe (Value Integer)
snapshotArn :: SnapshotProperty -> Maybe (Value Text)
snapshotCreateTime :: SnapshotProperty -> Maybe (Value Text)
snapshotName :: SnapshotProperty -> Maybe (Value Text)
status :: SnapshotProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
adminUsername :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
namespaceArn :: Maybe (Value Text)
namespaceName :: Maybe (Value Text)
ownerAccount :: Maybe (Value Text)
retentionPeriod :: Maybe (Value Integer)
snapshotArn :: Maybe (Value Text)
snapshotCreateTime :: Maybe (Value Text)
snapshotName :: Maybe (Value Text)
status :: Maybe (Value Text)
..}
= SnapshotProperty {namespaceName :: Maybe (Value Text)
namespaceName = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "NamespaceName" SnapshotProperty
Value Text
newValue, Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
adminUsername :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
namespaceArn :: Maybe (Value Text)
ownerAccount :: Maybe (Value Text)
retentionPeriod :: Maybe (Value Integer)
snapshotArn :: Maybe (Value Text)
snapshotCreateTime :: Maybe (Value Text)
snapshotName :: Maybe (Value Text)
status :: Maybe (Value Text)
haddock_workaround_ :: ()
adminUsername :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
namespaceArn :: Maybe (Value Text)
ownerAccount :: Maybe (Value Text)
retentionPeriod :: Maybe (Value Integer)
snapshotArn :: Maybe (Value Text)
snapshotCreateTime :: Maybe (Value Text)
snapshotName :: Maybe (Value Text)
status :: Maybe (Value Text)
..}
instance Property "OwnerAccount" SnapshotProperty where
type PropertyType "OwnerAccount" SnapshotProperty = Value Prelude.Text
set :: PropertyType "OwnerAccount" SnapshotProperty
-> SnapshotProperty -> SnapshotProperty
set PropertyType "OwnerAccount" SnapshotProperty
newValue SnapshotProperty {Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: SnapshotProperty -> ()
adminUsername :: SnapshotProperty -> Maybe (Value Text)
kmsKeyId :: SnapshotProperty -> Maybe (Value Text)
namespaceArn :: SnapshotProperty -> Maybe (Value Text)
namespaceName :: SnapshotProperty -> Maybe (Value Text)
ownerAccount :: SnapshotProperty -> Maybe (Value Text)
retentionPeriod :: SnapshotProperty -> Maybe (Value Integer)
snapshotArn :: SnapshotProperty -> Maybe (Value Text)
snapshotCreateTime :: SnapshotProperty -> Maybe (Value Text)
snapshotName :: SnapshotProperty -> Maybe (Value Text)
status :: SnapshotProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
adminUsername :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
namespaceArn :: Maybe (Value Text)
namespaceName :: Maybe (Value Text)
ownerAccount :: Maybe (Value Text)
retentionPeriod :: Maybe (Value Integer)
snapshotArn :: Maybe (Value Text)
snapshotCreateTime :: Maybe (Value Text)
snapshotName :: Maybe (Value Text)
status :: Maybe (Value Text)
..}
= SnapshotProperty {ownerAccount :: Maybe (Value Text)
ownerAccount = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "OwnerAccount" SnapshotProperty
Value Text
newValue, Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
adminUsername :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
namespaceArn :: Maybe (Value Text)
namespaceName :: Maybe (Value Text)
retentionPeriod :: Maybe (Value Integer)
snapshotArn :: Maybe (Value Text)
snapshotCreateTime :: Maybe (Value Text)
snapshotName :: Maybe (Value Text)
status :: Maybe (Value Text)
haddock_workaround_ :: ()
adminUsername :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
namespaceArn :: Maybe (Value Text)
namespaceName :: Maybe (Value Text)
retentionPeriod :: Maybe (Value Integer)
snapshotArn :: Maybe (Value Text)
snapshotCreateTime :: Maybe (Value Text)
snapshotName :: Maybe (Value Text)
status :: Maybe (Value Text)
..}
instance Property "RetentionPeriod" SnapshotProperty where
type PropertyType "RetentionPeriod" SnapshotProperty = Value Prelude.Integer
set :: PropertyType "RetentionPeriod" SnapshotProperty
-> SnapshotProperty -> SnapshotProperty
set PropertyType "RetentionPeriod" SnapshotProperty
newValue SnapshotProperty {Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: SnapshotProperty -> ()
adminUsername :: SnapshotProperty -> Maybe (Value Text)
kmsKeyId :: SnapshotProperty -> Maybe (Value Text)
namespaceArn :: SnapshotProperty -> Maybe (Value Text)
namespaceName :: SnapshotProperty -> Maybe (Value Text)
ownerAccount :: SnapshotProperty -> Maybe (Value Text)
retentionPeriod :: SnapshotProperty -> Maybe (Value Integer)
snapshotArn :: SnapshotProperty -> Maybe (Value Text)
snapshotCreateTime :: SnapshotProperty -> Maybe (Value Text)
snapshotName :: SnapshotProperty -> Maybe (Value Text)
status :: SnapshotProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
adminUsername :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
namespaceArn :: Maybe (Value Text)
namespaceName :: Maybe (Value Text)
ownerAccount :: Maybe (Value Text)
retentionPeriod :: Maybe (Value Integer)
snapshotArn :: Maybe (Value Text)
snapshotCreateTime :: Maybe (Value Text)
snapshotName :: Maybe (Value Text)
status :: Maybe (Value Text)
..}
= SnapshotProperty {retentionPeriod :: Maybe (Value Integer)
retentionPeriod = Value Integer -> Maybe (Value Integer)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "RetentionPeriod" SnapshotProperty
Value Integer
newValue, Maybe (Value Text)
()
haddock_workaround_ :: ()
adminUsername :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
namespaceArn :: Maybe (Value Text)
namespaceName :: Maybe (Value Text)
ownerAccount :: Maybe (Value Text)
snapshotArn :: Maybe (Value Text)
snapshotCreateTime :: Maybe (Value Text)
snapshotName :: Maybe (Value Text)
status :: Maybe (Value Text)
haddock_workaround_ :: ()
adminUsername :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
namespaceArn :: Maybe (Value Text)
namespaceName :: Maybe (Value Text)
ownerAccount :: Maybe (Value Text)
snapshotArn :: Maybe (Value Text)
snapshotCreateTime :: Maybe (Value Text)
snapshotName :: Maybe (Value Text)
status :: Maybe (Value Text)
..}
instance Property "SnapshotArn" SnapshotProperty where
type PropertyType "SnapshotArn" SnapshotProperty = Value Prelude.Text
set :: PropertyType "SnapshotArn" SnapshotProperty
-> SnapshotProperty -> SnapshotProperty
set PropertyType "SnapshotArn" SnapshotProperty
newValue SnapshotProperty {Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: SnapshotProperty -> ()
adminUsername :: SnapshotProperty -> Maybe (Value Text)
kmsKeyId :: SnapshotProperty -> Maybe (Value Text)
namespaceArn :: SnapshotProperty -> Maybe (Value Text)
namespaceName :: SnapshotProperty -> Maybe (Value Text)
ownerAccount :: SnapshotProperty -> Maybe (Value Text)
retentionPeriod :: SnapshotProperty -> Maybe (Value Integer)
snapshotArn :: SnapshotProperty -> Maybe (Value Text)
snapshotCreateTime :: SnapshotProperty -> Maybe (Value Text)
snapshotName :: SnapshotProperty -> Maybe (Value Text)
status :: SnapshotProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
adminUsername :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
namespaceArn :: Maybe (Value Text)
namespaceName :: Maybe (Value Text)
ownerAccount :: Maybe (Value Text)
retentionPeriod :: Maybe (Value Integer)
snapshotArn :: Maybe (Value Text)
snapshotCreateTime :: Maybe (Value Text)
snapshotName :: Maybe (Value Text)
status :: Maybe (Value Text)
..}
= SnapshotProperty {snapshotArn :: Maybe (Value Text)
snapshotArn = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "SnapshotArn" SnapshotProperty
Value Text
newValue, Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
adminUsername :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
namespaceArn :: Maybe (Value Text)
namespaceName :: Maybe (Value Text)
ownerAccount :: Maybe (Value Text)
retentionPeriod :: Maybe (Value Integer)
snapshotCreateTime :: Maybe (Value Text)
snapshotName :: Maybe (Value Text)
status :: Maybe (Value Text)
haddock_workaround_ :: ()
adminUsername :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
namespaceArn :: Maybe (Value Text)
namespaceName :: Maybe (Value Text)
ownerAccount :: Maybe (Value Text)
retentionPeriod :: Maybe (Value Integer)
snapshotCreateTime :: Maybe (Value Text)
snapshotName :: Maybe (Value Text)
status :: Maybe (Value Text)
..}
instance Property "SnapshotCreateTime" SnapshotProperty where
type PropertyType "SnapshotCreateTime" SnapshotProperty = Value Prelude.Text
set :: PropertyType "SnapshotCreateTime" SnapshotProperty
-> SnapshotProperty -> SnapshotProperty
set PropertyType "SnapshotCreateTime" SnapshotProperty
newValue SnapshotProperty {Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: SnapshotProperty -> ()
adminUsername :: SnapshotProperty -> Maybe (Value Text)
kmsKeyId :: SnapshotProperty -> Maybe (Value Text)
namespaceArn :: SnapshotProperty -> Maybe (Value Text)
namespaceName :: SnapshotProperty -> Maybe (Value Text)
ownerAccount :: SnapshotProperty -> Maybe (Value Text)
retentionPeriod :: SnapshotProperty -> Maybe (Value Integer)
snapshotArn :: SnapshotProperty -> Maybe (Value Text)
snapshotCreateTime :: SnapshotProperty -> Maybe (Value Text)
snapshotName :: SnapshotProperty -> Maybe (Value Text)
status :: SnapshotProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
adminUsername :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
namespaceArn :: Maybe (Value Text)
namespaceName :: Maybe (Value Text)
ownerAccount :: Maybe (Value Text)
retentionPeriod :: Maybe (Value Integer)
snapshotArn :: Maybe (Value Text)
snapshotCreateTime :: Maybe (Value Text)
snapshotName :: Maybe (Value Text)
status :: Maybe (Value Text)
..}
= SnapshotProperty {snapshotCreateTime :: Maybe (Value Text)
snapshotCreateTime = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "SnapshotCreateTime" SnapshotProperty
Value Text
newValue, Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
adminUsername :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
namespaceArn :: Maybe (Value Text)
namespaceName :: Maybe (Value Text)
ownerAccount :: Maybe (Value Text)
retentionPeriod :: Maybe (Value Integer)
snapshotArn :: Maybe (Value Text)
snapshotName :: Maybe (Value Text)
status :: Maybe (Value Text)
haddock_workaround_ :: ()
adminUsername :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
namespaceArn :: Maybe (Value Text)
namespaceName :: Maybe (Value Text)
ownerAccount :: Maybe (Value Text)
retentionPeriod :: Maybe (Value Integer)
snapshotArn :: Maybe (Value Text)
snapshotName :: Maybe (Value Text)
status :: Maybe (Value Text)
..}
instance Property "SnapshotName" SnapshotProperty where
type PropertyType "SnapshotName" SnapshotProperty = Value Prelude.Text
set :: PropertyType "SnapshotName" SnapshotProperty
-> SnapshotProperty -> SnapshotProperty
set PropertyType "SnapshotName" SnapshotProperty
newValue SnapshotProperty {Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: SnapshotProperty -> ()
adminUsername :: SnapshotProperty -> Maybe (Value Text)
kmsKeyId :: SnapshotProperty -> Maybe (Value Text)
namespaceArn :: SnapshotProperty -> Maybe (Value Text)
namespaceName :: SnapshotProperty -> Maybe (Value Text)
ownerAccount :: SnapshotProperty -> Maybe (Value Text)
retentionPeriod :: SnapshotProperty -> Maybe (Value Integer)
snapshotArn :: SnapshotProperty -> Maybe (Value Text)
snapshotCreateTime :: SnapshotProperty -> Maybe (Value Text)
snapshotName :: SnapshotProperty -> Maybe (Value Text)
status :: SnapshotProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
adminUsername :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
namespaceArn :: Maybe (Value Text)
namespaceName :: Maybe (Value Text)
ownerAccount :: Maybe (Value Text)
retentionPeriod :: Maybe (Value Integer)
snapshotArn :: Maybe (Value Text)
snapshotCreateTime :: Maybe (Value Text)
snapshotName :: Maybe (Value Text)
status :: Maybe (Value Text)
..}
= SnapshotProperty {snapshotName :: Maybe (Value Text)
snapshotName = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "SnapshotName" SnapshotProperty
Value Text
newValue, Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
adminUsername :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
namespaceArn :: Maybe (Value Text)
namespaceName :: Maybe (Value Text)
ownerAccount :: Maybe (Value Text)
retentionPeriod :: Maybe (Value Integer)
snapshotArn :: Maybe (Value Text)
snapshotCreateTime :: Maybe (Value Text)
status :: Maybe (Value Text)
haddock_workaround_ :: ()
adminUsername :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
namespaceArn :: Maybe (Value Text)
namespaceName :: Maybe (Value Text)
ownerAccount :: Maybe (Value Text)
retentionPeriod :: Maybe (Value Integer)
snapshotArn :: Maybe (Value Text)
snapshotCreateTime :: Maybe (Value Text)
status :: Maybe (Value Text)
..}
instance Property "Status" SnapshotProperty where
type PropertyType "Status" SnapshotProperty = Value Prelude.Text
set :: PropertyType "Status" SnapshotProperty
-> SnapshotProperty -> SnapshotProperty
set PropertyType "Status" SnapshotProperty
newValue SnapshotProperty {Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: SnapshotProperty -> ()
adminUsername :: SnapshotProperty -> Maybe (Value Text)
kmsKeyId :: SnapshotProperty -> Maybe (Value Text)
namespaceArn :: SnapshotProperty -> Maybe (Value Text)
namespaceName :: SnapshotProperty -> Maybe (Value Text)
ownerAccount :: SnapshotProperty -> Maybe (Value Text)
retentionPeriod :: SnapshotProperty -> Maybe (Value Integer)
snapshotArn :: SnapshotProperty -> Maybe (Value Text)
snapshotCreateTime :: SnapshotProperty -> Maybe (Value Text)
snapshotName :: SnapshotProperty -> Maybe (Value Text)
status :: SnapshotProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
adminUsername :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
namespaceArn :: Maybe (Value Text)
namespaceName :: Maybe (Value Text)
ownerAccount :: Maybe (Value Text)
retentionPeriod :: Maybe (Value Integer)
snapshotArn :: Maybe (Value Text)
snapshotCreateTime :: Maybe (Value Text)
snapshotName :: Maybe (Value Text)
status :: Maybe (Value Text)
..}
= SnapshotProperty {status :: Maybe (Value Text)
status = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Status" SnapshotProperty
Value Text
newValue, Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
adminUsername :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
namespaceArn :: Maybe (Value Text)
namespaceName :: Maybe (Value Text)
ownerAccount :: Maybe (Value Text)
retentionPeriod :: Maybe (Value Integer)
snapshotArn :: Maybe (Value Text)
snapshotCreateTime :: Maybe (Value Text)
snapshotName :: Maybe (Value Text)
haddock_workaround_ :: ()
adminUsername :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
namespaceArn :: Maybe (Value Text)
namespaceName :: Maybe (Value Text)
ownerAccount :: Maybe (Value Text)
retentionPeriod :: Maybe (Value Integer)
snapshotArn :: Maybe (Value Text)
snapshotCreateTime :: Maybe (Value Text)
snapshotName :: Maybe (Value Text)
..}