{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.RedshiftServerLess.Types.Snapshot where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import Amazonka.RedshiftServerLess.Types.SnapshotStatus
data Snapshot = Snapshot'
{
Snapshot -> Maybe [Text]
accountsWithProvisionedRestoreAccess :: Prelude.Maybe [Prelude.Text],
Snapshot -> Maybe [Text]
accountsWithRestoreAccess :: Prelude.Maybe [Prelude.Text],
Snapshot -> Maybe Double
actualIncrementalBackupSizeInMegaBytes :: Prelude.Maybe Prelude.Double,
Snapshot -> Maybe Text
adminUsername :: Prelude.Maybe Prelude.Text,
Snapshot -> Maybe Double
backupProgressInMegaBytes :: Prelude.Maybe Prelude.Double,
Snapshot -> Maybe Double
currentBackupRateInMegaBytesPerSecond :: Prelude.Maybe Prelude.Double,
Snapshot -> Maybe Integer
elapsedTimeInSeconds :: Prelude.Maybe Prelude.Integer,
Snapshot -> Maybe Integer
estimatedSecondsToCompletion :: Prelude.Maybe Prelude.Integer,
Snapshot -> Maybe Text
kmsKeyId :: Prelude.Maybe Prelude.Text,
Snapshot -> Maybe Text
namespaceArn :: Prelude.Maybe Prelude.Text,
Snapshot -> Maybe Text
namespaceName :: Prelude.Maybe Prelude.Text,
Snapshot -> Maybe Text
ownerAccount :: Prelude.Maybe Prelude.Text,
Snapshot -> Maybe Text
snapshotArn :: Prelude.Maybe Prelude.Text,
Snapshot -> Maybe ISO8601
snapshotCreateTime :: Prelude.Maybe Data.ISO8601,
Snapshot -> Maybe Text
snapshotName :: Prelude.Maybe Prelude.Text,
Snapshot -> Maybe Int
snapshotRemainingDays :: Prelude.Maybe Prelude.Int,
Snapshot -> Maybe Int
snapshotRetentionPeriod :: Prelude.Maybe Prelude.Int,
Snapshot -> Maybe ISO8601
snapshotRetentionStartTime :: Prelude.Maybe Data.ISO8601,
Snapshot -> Maybe SnapshotStatus
status :: Prelude.Maybe SnapshotStatus,
Snapshot -> Maybe Double
totalBackupSizeInMegaBytes :: Prelude.Maybe Prelude.Double
}
deriving (Snapshot -> Snapshot -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Snapshot -> Snapshot -> Bool
$c/= :: Snapshot -> Snapshot -> Bool
== :: Snapshot -> Snapshot -> Bool
$c== :: Snapshot -> Snapshot -> Bool
Prelude.Eq, ReadPrec [Snapshot]
ReadPrec Snapshot
Int -> ReadS Snapshot
ReadS [Snapshot]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [Snapshot]
$creadListPrec :: ReadPrec [Snapshot]
readPrec :: ReadPrec Snapshot
$creadPrec :: ReadPrec Snapshot
readList :: ReadS [Snapshot]
$creadList :: ReadS [Snapshot]
readsPrec :: Int -> ReadS Snapshot
$creadsPrec :: Int -> ReadS Snapshot
Prelude.Read, Int -> Snapshot -> ShowS
[Snapshot] -> ShowS
Snapshot -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Snapshot] -> ShowS
$cshowList :: [Snapshot] -> ShowS
show :: Snapshot -> String
$cshow :: Snapshot -> String
showsPrec :: Int -> Snapshot -> ShowS
$cshowsPrec :: Int -> Snapshot -> ShowS
Prelude.Show, forall x. Rep Snapshot x -> Snapshot
forall x. Snapshot -> Rep Snapshot x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep Snapshot x -> Snapshot
$cfrom :: forall x. Snapshot -> Rep Snapshot x
Prelude.Generic)
newSnapshot ::
Snapshot
newSnapshot :: Snapshot
newSnapshot =
Snapshot'
{ $sel:accountsWithProvisionedRestoreAccess:Snapshot' :: Maybe [Text]
accountsWithProvisionedRestoreAccess =
forall a. Maybe a
Prelude.Nothing,
$sel:accountsWithRestoreAccess:Snapshot' :: Maybe [Text]
accountsWithRestoreAccess = forall a. Maybe a
Prelude.Nothing,
$sel:actualIncrementalBackupSizeInMegaBytes:Snapshot' :: Maybe Double
actualIncrementalBackupSizeInMegaBytes =
forall a. Maybe a
Prelude.Nothing,
$sel:adminUsername:Snapshot' :: Maybe Text
adminUsername = forall a. Maybe a
Prelude.Nothing,
$sel:backupProgressInMegaBytes:Snapshot' :: Maybe Double
backupProgressInMegaBytes = forall a. Maybe a
Prelude.Nothing,
$sel:currentBackupRateInMegaBytesPerSecond:Snapshot' :: Maybe Double
currentBackupRateInMegaBytesPerSecond =
forall a. Maybe a
Prelude.Nothing,
$sel:elapsedTimeInSeconds:Snapshot' :: Maybe Integer
elapsedTimeInSeconds = forall a. Maybe a
Prelude.Nothing,
$sel:estimatedSecondsToCompletion:Snapshot' :: Maybe Integer
estimatedSecondsToCompletion = forall a. Maybe a
Prelude.Nothing,
$sel:kmsKeyId:Snapshot' :: Maybe Text
kmsKeyId = forall a. Maybe a
Prelude.Nothing,
$sel:namespaceArn:Snapshot' :: Maybe Text
namespaceArn = forall a. Maybe a
Prelude.Nothing,
$sel:namespaceName:Snapshot' :: Maybe Text
namespaceName = forall a. Maybe a
Prelude.Nothing,
$sel:ownerAccount:Snapshot' :: Maybe Text
ownerAccount = forall a. Maybe a
Prelude.Nothing,
$sel:snapshotArn:Snapshot' :: Maybe Text
snapshotArn = forall a. Maybe a
Prelude.Nothing,
$sel:snapshotCreateTime:Snapshot' :: Maybe ISO8601
snapshotCreateTime = forall a. Maybe a
Prelude.Nothing,
$sel:snapshotName:Snapshot' :: Maybe Text
snapshotName = forall a. Maybe a
Prelude.Nothing,
$sel:snapshotRemainingDays:Snapshot' :: Maybe Int
snapshotRemainingDays = forall a. Maybe a
Prelude.Nothing,
$sel:snapshotRetentionPeriod:Snapshot' :: Maybe Int
snapshotRetentionPeriod = forall a. Maybe a
Prelude.Nothing,
$sel:snapshotRetentionStartTime:Snapshot' :: Maybe ISO8601
snapshotRetentionStartTime = forall a. Maybe a
Prelude.Nothing,
$sel:status:Snapshot' :: Maybe SnapshotStatus
status = forall a. Maybe a
Prelude.Nothing,
$sel:totalBackupSizeInMegaBytes:Snapshot' :: Maybe Double
totalBackupSizeInMegaBytes = forall a. Maybe a
Prelude.Nothing
}
snapshot_accountsWithProvisionedRestoreAccess :: Lens.Lens' Snapshot (Prelude.Maybe [Prelude.Text])
snapshot_accountsWithProvisionedRestoreAccess :: Lens' Snapshot (Maybe [Text])
snapshot_accountsWithProvisionedRestoreAccess = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Snapshot' {Maybe [Text]
accountsWithProvisionedRestoreAccess :: Maybe [Text]
$sel:accountsWithProvisionedRestoreAccess:Snapshot' :: Snapshot -> Maybe [Text]
accountsWithProvisionedRestoreAccess} -> Maybe [Text]
accountsWithProvisionedRestoreAccess) (\s :: Snapshot
s@Snapshot' {} Maybe [Text]
a -> Snapshot
s {$sel:accountsWithProvisionedRestoreAccess:Snapshot' :: Maybe [Text]
accountsWithProvisionedRestoreAccess = Maybe [Text]
a} :: Snapshot) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
snapshot_accountsWithRestoreAccess :: Lens.Lens' Snapshot (Prelude.Maybe [Prelude.Text])
snapshot_accountsWithRestoreAccess :: Lens' Snapshot (Maybe [Text])
snapshot_accountsWithRestoreAccess = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Snapshot' {Maybe [Text]
accountsWithRestoreAccess :: Maybe [Text]
$sel:accountsWithRestoreAccess:Snapshot' :: Snapshot -> Maybe [Text]
accountsWithRestoreAccess} -> Maybe [Text]
accountsWithRestoreAccess) (\s :: Snapshot
s@Snapshot' {} Maybe [Text]
a -> Snapshot
s {$sel:accountsWithRestoreAccess:Snapshot' :: Maybe [Text]
accountsWithRestoreAccess = Maybe [Text]
a} :: Snapshot) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
snapshot_actualIncrementalBackupSizeInMegaBytes :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Double)
snapshot_actualIncrementalBackupSizeInMegaBytes :: Lens' Snapshot (Maybe Double)
snapshot_actualIncrementalBackupSizeInMegaBytes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Snapshot' {Maybe Double
actualIncrementalBackupSizeInMegaBytes :: Maybe Double
$sel:actualIncrementalBackupSizeInMegaBytes:Snapshot' :: Snapshot -> Maybe Double
actualIncrementalBackupSizeInMegaBytes} -> Maybe Double
actualIncrementalBackupSizeInMegaBytes) (\s :: Snapshot
s@Snapshot' {} Maybe Double
a -> Snapshot
s {$sel:actualIncrementalBackupSizeInMegaBytes:Snapshot' :: Maybe Double
actualIncrementalBackupSizeInMegaBytes = Maybe Double
a} :: Snapshot)
snapshot_adminUsername :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Text)
snapshot_adminUsername :: Lens' Snapshot (Maybe Text)
snapshot_adminUsername = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Snapshot' {Maybe Text
adminUsername :: Maybe Text
$sel:adminUsername:Snapshot' :: Snapshot -> Maybe Text
adminUsername} -> Maybe Text
adminUsername) (\s :: Snapshot
s@Snapshot' {} Maybe Text
a -> Snapshot
s {$sel:adminUsername:Snapshot' :: Maybe Text
adminUsername = Maybe Text
a} :: Snapshot)
snapshot_backupProgressInMegaBytes :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Double)
snapshot_backupProgressInMegaBytes :: Lens' Snapshot (Maybe Double)
snapshot_backupProgressInMegaBytes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Snapshot' {Maybe Double
backupProgressInMegaBytes :: Maybe Double
$sel:backupProgressInMegaBytes:Snapshot' :: Snapshot -> Maybe Double
backupProgressInMegaBytes} -> Maybe Double
backupProgressInMegaBytes) (\s :: Snapshot
s@Snapshot' {} Maybe Double
a -> Snapshot
s {$sel:backupProgressInMegaBytes:Snapshot' :: Maybe Double
backupProgressInMegaBytes = Maybe Double
a} :: Snapshot)
snapshot_currentBackupRateInMegaBytesPerSecond :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Double)
snapshot_currentBackupRateInMegaBytesPerSecond :: Lens' Snapshot (Maybe Double)
snapshot_currentBackupRateInMegaBytesPerSecond = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Snapshot' {Maybe Double
currentBackupRateInMegaBytesPerSecond :: Maybe Double
$sel:currentBackupRateInMegaBytesPerSecond:Snapshot' :: Snapshot -> Maybe Double
currentBackupRateInMegaBytesPerSecond} -> Maybe Double
currentBackupRateInMegaBytesPerSecond) (\s :: Snapshot
s@Snapshot' {} Maybe Double
a -> Snapshot
s {$sel:currentBackupRateInMegaBytesPerSecond:Snapshot' :: Maybe Double
currentBackupRateInMegaBytesPerSecond = Maybe Double
a} :: Snapshot)
snapshot_elapsedTimeInSeconds :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Integer)
snapshot_elapsedTimeInSeconds :: Lens' Snapshot (Maybe Integer)
snapshot_elapsedTimeInSeconds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Snapshot' {Maybe Integer
elapsedTimeInSeconds :: Maybe Integer
$sel:elapsedTimeInSeconds:Snapshot' :: Snapshot -> Maybe Integer
elapsedTimeInSeconds} -> Maybe Integer
elapsedTimeInSeconds) (\s :: Snapshot
s@Snapshot' {} Maybe Integer
a -> Snapshot
s {$sel:elapsedTimeInSeconds:Snapshot' :: Maybe Integer
elapsedTimeInSeconds = Maybe Integer
a} :: Snapshot)
snapshot_estimatedSecondsToCompletion :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Integer)
snapshot_estimatedSecondsToCompletion :: Lens' Snapshot (Maybe Integer)
snapshot_estimatedSecondsToCompletion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Snapshot' {Maybe Integer
estimatedSecondsToCompletion :: Maybe Integer
$sel:estimatedSecondsToCompletion:Snapshot' :: Snapshot -> Maybe Integer
estimatedSecondsToCompletion} -> Maybe Integer
estimatedSecondsToCompletion) (\s :: Snapshot
s@Snapshot' {} Maybe Integer
a -> Snapshot
s {$sel:estimatedSecondsToCompletion:Snapshot' :: Maybe Integer
estimatedSecondsToCompletion = Maybe Integer
a} :: Snapshot)
snapshot_kmsKeyId :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Text)
snapshot_kmsKeyId :: Lens' Snapshot (Maybe Text)
snapshot_kmsKeyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Snapshot' {Maybe Text
kmsKeyId :: Maybe Text
$sel:kmsKeyId:Snapshot' :: Snapshot -> Maybe Text
kmsKeyId} -> Maybe Text
kmsKeyId) (\s :: Snapshot
s@Snapshot' {} Maybe Text
a -> Snapshot
s {$sel:kmsKeyId:Snapshot' :: Maybe Text
kmsKeyId = Maybe Text
a} :: Snapshot)
snapshot_namespaceArn :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Text)
snapshot_namespaceArn :: Lens' Snapshot (Maybe Text)
snapshot_namespaceArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Snapshot' {Maybe Text
namespaceArn :: Maybe Text
$sel:namespaceArn:Snapshot' :: Snapshot -> Maybe Text
namespaceArn} -> Maybe Text
namespaceArn) (\s :: Snapshot
s@Snapshot' {} Maybe Text
a -> Snapshot
s {$sel:namespaceArn:Snapshot' :: Maybe Text
namespaceArn = Maybe Text
a} :: Snapshot)
snapshot_namespaceName :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Text)
snapshot_namespaceName :: Lens' Snapshot (Maybe Text)
snapshot_namespaceName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Snapshot' {Maybe Text
namespaceName :: Maybe Text
$sel:namespaceName:Snapshot' :: Snapshot -> Maybe Text
namespaceName} -> Maybe Text
namespaceName) (\s :: Snapshot
s@Snapshot' {} Maybe Text
a -> Snapshot
s {$sel:namespaceName:Snapshot' :: Maybe Text
namespaceName = Maybe Text
a} :: Snapshot)
snapshot_ownerAccount :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Text)
snapshot_ownerAccount :: Lens' Snapshot (Maybe Text)
snapshot_ownerAccount = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Snapshot' {Maybe Text
ownerAccount :: Maybe Text
$sel:ownerAccount:Snapshot' :: Snapshot -> Maybe Text
ownerAccount} -> Maybe Text
ownerAccount) (\s :: Snapshot
s@Snapshot' {} Maybe Text
a -> Snapshot
s {$sel:ownerAccount:Snapshot' :: Maybe Text
ownerAccount = Maybe Text
a} :: Snapshot)
snapshot_snapshotArn :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Text)
snapshot_snapshotArn :: Lens' Snapshot (Maybe Text)
snapshot_snapshotArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Snapshot' {Maybe Text
snapshotArn :: Maybe Text
$sel:snapshotArn:Snapshot' :: Snapshot -> Maybe Text
snapshotArn} -> Maybe Text
snapshotArn) (\s :: Snapshot
s@Snapshot' {} Maybe Text
a -> Snapshot
s {$sel:snapshotArn:Snapshot' :: Maybe Text
snapshotArn = Maybe Text
a} :: Snapshot)
snapshot_snapshotCreateTime :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.UTCTime)
snapshot_snapshotCreateTime :: Lens' Snapshot (Maybe UTCTime)
snapshot_snapshotCreateTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Snapshot' {Maybe ISO8601
snapshotCreateTime :: Maybe ISO8601
$sel:snapshotCreateTime:Snapshot' :: Snapshot -> Maybe ISO8601
snapshotCreateTime} -> Maybe ISO8601
snapshotCreateTime) (\s :: Snapshot
s@Snapshot' {} Maybe ISO8601
a -> Snapshot
s {$sel:snapshotCreateTime:Snapshot' :: Maybe ISO8601
snapshotCreateTime = Maybe ISO8601
a} :: Snapshot) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
snapshot_snapshotName :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Text)
snapshot_snapshotName :: Lens' Snapshot (Maybe Text)
snapshot_snapshotName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Snapshot' {Maybe Text
snapshotName :: Maybe Text
$sel:snapshotName:Snapshot' :: Snapshot -> Maybe Text
snapshotName} -> Maybe Text
snapshotName) (\s :: Snapshot
s@Snapshot' {} Maybe Text
a -> Snapshot
s {$sel:snapshotName:Snapshot' :: Maybe Text
snapshotName = Maybe Text
a} :: Snapshot)
snapshot_snapshotRemainingDays :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Int)
snapshot_snapshotRemainingDays :: Lens' Snapshot (Maybe Int)
snapshot_snapshotRemainingDays = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Snapshot' {Maybe Int
snapshotRemainingDays :: Maybe Int
$sel:snapshotRemainingDays:Snapshot' :: Snapshot -> Maybe Int
snapshotRemainingDays} -> Maybe Int
snapshotRemainingDays) (\s :: Snapshot
s@Snapshot' {} Maybe Int
a -> Snapshot
s {$sel:snapshotRemainingDays:Snapshot' :: Maybe Int
snapshotRemainingDays = Maybe Int
a} :: Snapshot)
snapshot_snapshotRetentionPeriod :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Int)
snapshot_snapshotRetentionPeriod :: Lens' Snapshot (Maybe Int)
snapshot_snapshotRetentionPeriod = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Snapshot' {Maybe Int
snapshotRetentionPeriod :: Maybe Int
$sel:snapshotRetentionPeriod:Snapshot' :: Snapshot -> Maybe Int
snapshotRetentionPeriod} -> Maybe Int
snapshotRetentionPeriod) (\s :: Snapshot
s@Snapshot' {} Maybe Int
a -> Snapshot
s {$sel:snapshotRetentionPeriod:Snapshot' :: Maybe Int
snapshotRetentionPeriod = Maybe Int
a} :: Snapshot)
snapshot_snapshotRetentionStartTime :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.UTCTime)
snapshot_snapshotRetentionStartTime :: Lens' Snapshot (Maybe UTCTime)
snapshot_snapshotRetentionStartTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Snapshot' {Maybe ISO8601
snapshotRetentionStartTime :: Maybe ISO8601
$sel:snapshotRetentionStartTime:Snapshot' :: Snapshot -> Maybe ISO8601
snapshotRetentionStartTime} -> Maybe ISO8601
snapshotRetentionStartTime) (\s :: Snapshot
s@Snapshot' {} Maybe ISO8601
a -> Snapshot
s {$sel:snapshotRetentionStartTime:Snapshot' :: Maybe ISO8601
snapshotRetentionStartTime = Maybe ISO8601
a} :: Snapshot) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
snapshot_status :: Lens.Lens' Snapshot (Prelude.Maybe SnapshotStatus)
snapshot_status :: Lens' Snapshot (Maybe SnapshotStatus)
snapshot_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Snapshot' {Maybe SnapshotStatus
status :: Maybe SnapshotStatus
$sel:status:Snapshot' :: Snapshot -> Maybe SnapshotStatus
status} -> Maybe SnapshotStatus
status) (\s :: Snapshot
s@Snapshot' {} Maybe SnapshotStatus
a -> Snapshot
s {$sel:status:Snapshot' :: Maybe SnapshotStatus
status = Maybe SnapshotStatus
a} :: Snapshot)
snapshot_totalBackupSizeInMegaBytes :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Double)
snapshot_totalBackupSizeInMegaBytes :: Lens' Snapshot (Maybe Double)
snapshot_totalBackupSizeInMegaBytes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Snapshot' {Maybe Double
totalBackupSizeInMegaBytes :: Maybe Double
$sel:totalBackupSizeInMegaBytes:Snapshot' :: Snapshot -> Maybe Double
totalBackupSizeInMegaBytes} -> Maybe Double
totalBackupSizeInMegaBytes) (\s :: Snapshot
s@Snapshot' {} Maybe Double
a -> Snapshot
s {$sel:totalBackupSizeInMegaBytes:Snapshot' :: Maybe Double
totalBackupSizeInMegaBytes = Maybe Double
a} :: Snapshot)
instance Data.FromJSON Snapshot where
parseJSON :: Value -> Parser Snapshot
parseJSON =
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
String
"Snapshot"
( \Object
x ->
Maybe [Text]
-> Maybe [Text]
-> Maybe Double
-> Maybe Text
-> Maybe Double
-> Maybe Double
-> Maybe Integer
-> Maybe Integer
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe ISO8601
-> Maybe Text
-> Maybe Int
-> Maybe Int
-> Maybe ISO8601
-> Maybe SnapshotStatus
-> Maybe Double
-> Snapshot
Snapshot'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ( Object
x
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"accountsWithProvisionedRestoreAccess"
forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"accountsWithRestoreAccess"
forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"actualIncrementalBackupSizeInMegaBytes")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"adminUsername")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"backupProgressInMegaBytes")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"currentBackupRateInMegaBytesPerSecond")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"elapsedTimeInSeconds")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"estimatedSecondsToCompletion")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"kmsKeyId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"namespaceArn")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"namespaceName")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"ownerAccount")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"snapshotArn")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"snapshotCreateTime")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"snapshotName")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"snapshotRemainingDays")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"snapshotRetentionPeriod")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"snapshotRetentionStartTime")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"status")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"totalBackupSizeInMegaBytes")
)
instance Prelude.Hashable Snapshot where
hashWithSalt :: Int -> Snapshot -> Int
hashWithSalt Int
_salt Snapshot' {Maybe Double
Maybe Int
Maybe Integer
Maybe [Text]
Maybe Text
Maybe ISO8601
Maybe SnapshotStatus
totalBackupSizeInMegaBytes :: Maybe Double
status :: Maybe SnapshotStatus
snapshotRetentionStartTime :: Maybe ISO8601
snapshotRetentionPeriod :: Maybe Int
snapshotRemainingDays :: Maybe Int
snapshotName :: Maybe Text
snapshotCreateTime :: Maybe ISO8601
snapshotArn :: Maybe Text
ownerAccount :: Maybe Text
namespaceName :: Maybe Text
namespaceArn :: Maybe Text
kmsKeyId :: Maybe Text
estimatedSecondsToCompletion :: Maybe Integer
elapsedTimeInSeconds :: Maybe Integer
currentBackupRateInMegaBytesPerSecond :: Maybe Double
backupProgressInMegaBytes :: Maybe Double
adminUsername :: Maybe Text
actualIncrementalBackupSizeInMegaBytes :: Maybe Double
accountsWithRestoreAccess :: Maybe [Text]
accountsWithProvisionedRestoreAccess :: Maybe [Text]
$sel:totalBackupSizeInMegaBytes:Snapshot' :: Snapshot -> Maybe Double
$sel:status:Snapshot' :: Snapshot -> Maybe SnapshotStatus
$sel:snapshotRetentionStartTime:Snapshot' :: Snapshot -> Maybe ISO8601
$sel:snapshotRetentionPeriod:Snapshot' :: Snapshot -> Maybe Int
$sel:snapshotRemainingDays:Snapshot' :: Snapshot -> Maybe Int
$sel:snapshotName:Snapshot' :: Snapshot -> Maybe Text
$sel:snapshotCreateTime:Snapshot' :: Snapshot -> Maybe ISO8601
$sel:snapshotArn:Snapshot' :: Snapshot -> Maybe Text
$sel:ownerAccount:Snapshot' :: Snapshot -> Maybe Text
$sel:namespaceName:Snapshot' :: Snapshot -> Maybe Text
$sel:namespaceArn:Snapshot' :: Snapshot -> Maybe Text
$sel:kmsKeyId:Snapshot' :: Snapshot -> Maybe Text
$sel:estimatedSecondsToCompletion:Snapshot' :: Snapshot -> Maybe Integer
$sel:elapsedTimeInSeconds:Snapshot' :: Snapshot -> Maybe Integer
$sel:currentBackupRateInMegaBytesPerSecond:Snapshot' :: Snapshot -> Maybe Double
$sel:backupProgressInMegaBytes:Snapshot' :: Snapshot -> Maybe Double
$sel:adminUsername:Snapshot' :: Snapshot -> Maybe Text
$sel:actualIncrementalBackupSizeInMegaBytes:Snapshot' :: Snapshot -> Maybe Double
$sel:accountsWithRestoreAccess:Snapshot' :: Snapshot -> Maybe [Text]
$sel:accountsWithProvisionedRestoreAccess:Snapshot' :: Snapshot -> Maybe [Text]
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
accountsWithProvisionedRestoreAccess
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
accountsWithRestoreAccess
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Double
actualIncrementalBackupSizeInMegaBytes
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
adminUsername
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Double
backupProgressInMegaBytes
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Double
currentBackupRateInMegaBytesPerSecond
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Integer
elapsedTimeInSeconds
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Integer
estimatedSecondsToCompletion
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
kmsKeyId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
namespaceArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
namespaceName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
ownerAccount
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
snapshotArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ISO8601
snapshotCreateTime
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
snapshotName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
snapshotRemainingDays
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
snapshotRetentionPeriod
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ISO8601
snapshotRetentionStartTime
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe SnapshotStatus
status
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Double
totalBackupSizeInMegaBytes
instance Prelude.NFData Snapshot where
rnf :: Snapshot -> ()
rnf Snapshot' {Maybe Double
Maybe Int
Maybe Integer
Maybe [Text]
Maybe Text
Maybe ISO8601
Maybe SnapshotStatus
totalBackupSizeInMegaBytes :: Maybe Double
status :: Maybe SnapshotStatus
snapshotRetentionStartTime :: Maybe ISO8601
snapshotRetentionPeriod :: Maybe Int
snapshotRemainingDays :: Maybe Int
snapshotName :: Maybe Text
snapshotCreateTime :: Maybe ISO8601
snapshotArn :: Maybe Text
ownerAccount :: Maybe Text
namespaceName :: Maybe Text
namespaceArn :: Maybe Text
kmsKeyId :: Maybe Text
estimatedSecondsToCompletion :: Maybe Integer
elapsedTimeInSeconds :: Maybe Integer
currentBackupRateInMegaBytesPerSecond :: Maybe Double
backupProgressInMegaBytes :: Maybe Double
adminUsername :: Maybe Text
actualIncrementalBackupSizeInMegaBytes :: Maybe Double
accountsWithRestoreAccess :: Maybe [Text]
accountsWithProvisionedRestoreAccess :: Maybe [Text]
$sel:totalBackupSizeInMegaBytes:Snapshot' :: Snapshot -> Maybe Double
$sel:status:Snapshot' :: Snapshot -> Maybe SnapshotStatus
$sel:snapshotRetentionStartTime:Snapshot' :: Snapshot -> Maybe ISO8601
$sel:snapshotRetentionPeriod:Snapshot' :: Snapshot -> Maybe Int
$sel:snapshotRemainingDays:Snapshot' :: Snapshot -> Maybe Int
$sel:snapshotName:Snapshot' :: Snapshot -> Maybe Text
$sel:snapshotCreateTime:Snapshot' :: Snapshot -> Maybe ISO8601
$sel:snapshotArn:Snapshot' :: Snapshot -> Maybe Text
$sel:ownerAccount:Snapshot' :: Snapshot -> Maybe Text
$sel:namespaceName:Snapshot' :: Snapshot -> Maybe Text
$sel:namespaceArn:Snapshot' :: Snapshot -> Maybe Text
$sel:kmsKeyId:Snapshot' :: Snapshot -> Maybe Text
$sel:estimatedSecondsToCompletion:Snapshot' :: Snapshot -> Maybe Integer
$sel:elapsedTimeInSeconds:Snapshot' :: Snapshot -> Maybe Integer
$sel:currentBackupRateInMegaBytesPerSecond:Snapshot' :: Snapshot -> Maybe Double
$sel:backupProgressInMegaBytes:Snapshot' :: Snapshot -> Maybe Double
$sel:adminUsername:Snapshot' :: Snapshot -> Maybe Text
$sel:actualIncrementalBackupSizeInMegaBytes:Snapshot' :: Snapshot -> Maybe Double
$sel:accountsWithRestoreAccess:Snapshot' :: Snapshot -> Maybe [Text]
$sel:accountsWithProvisionedRestoreAccess:Snapshot' :: Snapshot -> Maybe [Text]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
accountsWithProvisionedRestoreAccess
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
accountsWithRestoreAccess
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Double
actualIncrementalBackupSizeInMegaBytes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
adminUsername
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Double
backupProgressInMegaBytes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Double
currentBackupRateInMegaBytesPerSecond
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Integer
elapsedTimeInSeconds
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Integer
estimatedSecondsToCompletion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
kmsKeyId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
namespaceArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
namespaceName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
ownerAccount
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
snapshotArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ISO8601
snapshotCreateTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
snapshotName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
snapshotRemainingDays
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
snapshotRetentionPeriod
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe ISO8601
snapshotRetentionStartTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe SnapshotStatus
status
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe Double
totalBackupSizeInMegaBytes