{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.RDS.StartDBInstanceAutomatedBackupsReplication
(
StartDBInstanceAutomatedBackupsReplication (..),
newStartDBInstanceAutomatedBackupsReplication,
startDBInstanceAutomatedBackupsReplication_backupRetentionPeriod,
startDBInstanceAutomatedBackupsReplication_destinationRegion,
startDBInstanceAutomatedBackupsReplication_kmsKeyId,
startDBInstanceAutomatedBackupsReplication_preSignedUrl,
startDBInstanceAutomatedBackupsReplication_sourceDBInstanceArn,
StartDBInstanceAutomatedBackupsReplicationResponse (..),
newStartDBInstanceAutomatedBackupsReplicationResponse,
startDBInstanceAutomatedBackupsReplicationResponse_dbInstanceAutomatedBackup,
startDBInstanceAutomatedBackupsReplicationResponse_httpStatus,
)
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.RDS.Types
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data StartDBInstanceAutomatedBackupsReplication = StartDBInstanceAutomatedBackupsReplication'
{
StartDBInstanceAutomatedBackupsReplication -> Maybe Int
backupRetentionPeriod :: Prelude.Maybe Prelude.Int,
StartDBInstanceAutomatedBackupsReplication -> Maybe Text
destinationRegion :: Prelude.Maybe Prelude.Text,
StartDBInstanceAutomatedBackupsReplication -> Maybe Text
kmsKeyId :: Prelude.Maybe Prelude.Text,
StartDBInstanceAutomatedBackupsReplication -> Maybe Text
preSignedUrl :: Prelude.Maybe Prelude.Text,
StartDBInstanceAutomatedBackupsReplication -> Text
sourceDBInstanceArn :: Prelude.Text
}
deriving (StartDBInstanceAutomatedBackupsReplication
-> StartDBInstanceAutomatedBackupsReplication -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StartDBInstanceAutomatedBackupsReplication
-> StartDBInstanceAutomatedBackupsReplication -> Bool
$c/= :: StartDBInstanceAutomatedBackupsReplication
-> StartDBInstanceAutomatedBackupsReplication -> Bool
== :: StartDBInstanceAutomatedBackupsReplication
-> StartDBInstanceAutomatedBackupsReplication -> Bool
$c== :: StartDBInstanceAutomatedBackupsReplication
-> StartDBInstanceAutomatedBackupsReplication -> Bool
Prelude.Eq, ReadPrec [StartDBInstanceAutomatedBackupsReplication]
ReadPrec StartDBInstanceAutomatedBackupsReplication
Int -> ReadS StartDBInstanceAutomatedBackupsReplication
ReadS [StartDBInstanceAutomatedBackupsReplication]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [StartDBInstanceAutomatedBackupsReplication]
$creadListPrec :: ReadPrec [StartDBInstanceAutomatedBackupsReplication]
readPrec :: ReadPrec StartDBInstanceAutomatedBackupsReplication
$creadPrec :: ReadPrec StartDBInstanceAutomatedBackupsReplication
readList :: ReadS [StartDBInstanceAutomatedBackupsReplication]
$creadList :: ReadS [StartDBInstanceAutomatedBackupsReplication]
readsPrec :: Int -> ReadS StartDBInstanceAutomatedBackupsReplication
$creadsPrec :: Int -> ReadS StartDBInstanceAutomatedBackupsReplication
Prelude.Read, Int -> StartDBInstanceAutomatedBackupsReplication -> ShowS
[StartDBInstanceAutomatedBackupsReplication] -> ShowS
StartDBInstanceAutomatedBackupsReplication -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StartDBInstanceAutomatedBackupsReplication] -> ShowS
$cshowList :: [StartDBInstanceAutomatedBackupsReplication] -> ShowS
show :: StartDBInstanceAutomatedBackupsReplication -> String
$cshow :: StartDBInstanceAutomatedBackupsReplication -> String
showsPrec :: Int -> StartDBInstanceAutomatedBackupsReplication -> ShowS
$cshowsPrec :: Int -> StartDBInstanceAutomatedBackupsReplication -> ShowS
Prelude.Show, forall x.
Rep StartDBInstanceAutomatedBackupsReplication x
-> StartDBInstanceAutomatedBackupsReplication
forall x.
StartDBInstanceAutomatedBackupsReplication
-> Rep StartDBInstanceAutomatedBackupsReplication x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep StartDBInstanceAutomatedBackupsReplication x
-> StartDBInstanceAutomatedBackupsReplication
$cfrom :: forall x.
StartDBInstanceAutomatedBackupsReplication
-> Rep StartDBInstanceAutomatedBackupsReplication x
Prelude.Generic)
newStartDBInstanceAutomatedBackupsReplication ::
Prelude.Text ->
StartDBInstanceAutomatedBackupsReplication
newStartDBInstanceAutomatedBackupsReplication :: Text -> StartDBInstanceAutomatedBackupsReplication
newStartDBInstanceAutomatedBackupsReplication
Text
pSourceDBInstanceArn_ =
StartDBInstanceAutomatedBackupsReplication'
{ $sel:backupRetentionPeriod:StartDBInstanceAutomatedBackupsReplication' :: Maybe Int
backupRetentionPeriod =
forall a. Maybe a
Prelude.Nothing,
$sel:destinationRegion:StartDBInstanceAutomatedBackupsReplication' :: Maybe Text
destinationRegion =
forall a. Maybe a
Prelude.Nothing,
$sel:kmsKeyId:StartDBInstanceAutomatedBackupsReplication' :: Maybe Text
kmsKeyId = forall a. Maybe a
Prelude.Nothing,
$sel:preSignedUrl:StartDBInstanceAutomatedBackupsReplication' :: Maybe Text
preSignedUrl = forall a. Maybe a
Prelude.Nothing,
$sel:sourceDBInstanceArn:StartDBInstanceAutomatedBackupsReplication' :: Text
sourceDBInstanceArn =
Text
pSourceDBInstanceArn_
}
startDBInstanceAutomatedBackupsReplication_backupRetentionPeriod :: Lens.Lens' StartDBInstanceAutomatedBackupsReplication (Prelude.Maybe Prelude.Int)
startDBInstanceAutomatedBackupsReplication_backupRetentionPeriod :: Lens' StartDBInstanceAutomatedBackupsReplication (Maybe Int)
startDBInstanceAutomatedBackupsReplication_backupRetentionPeriod = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartDBInstanceAutomatedBackupsReplication' {Maybe Int
backupRetentionPeriod :: Maybe Int
$sel:backupRetentionPeriod:StartDBInstanceAutomatedBackupsReplication' :: StartDBInstanceAutomatedBackupsReplication -> Maybe Int
backupRetentionPeriod} -> Maybe Int
backupRetentionPeriod) (\s :: StartDBInstanceAutomatedBackupsReplication
s@StartDBInstanceAutomatedBackupsReplication' {} Maybe Int
a -> StartDBInstanceAutomatedBackupsReplication
s {$sel:backupRetentionPeriod:StartDBInstanceAutomatedBackupsReplication' :: Maybe Int
backupRetentionPeriod = Maybe Int
a} :: StartDBInstanceAutomatedBackupsReplication)
startDBInstanceAutomatedBackupsReplication_destinationRegion :: Lens.Lens' StartDBInstanceAutomatedBackupsReplication (Prelude.Maybe Prelude.Text)
startDBInstanceAutomatedBackupsReplication_destinationRegion :: Lens' StartDBInstanceAutomatedBackupsReplication (Maybe Text)
startDBInstanceAutomatedBackupsReplication_destinationRegion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartDBInstanceAutomatedBackupsReplication' {Maybe Text
destinationRegion :: Maybe Text
$sel:destinationRegion:StartDBInstanceAutomatedBackupsReplication' :: StartDBInstanceAutomatedBackupsReplication -> Maybe Text
destinationRegion} -> Maybe Text
destinationRegion) (\s :: StartDBInstanceAutomatedBackupsReplication
s@StartDBInstanceAutomatedBackupsReplication' {} Maybe Text
a -> StartDBInstanceAutomatedBackupsReplication
s {$sel:destinationRegion:StartDBInstanceAutomatedBackupsReplication' :: Maybe Text
destinationRegion = Maybe Text
a} :: StartDBInstanceAutomatedBackupsReplication)
startDBInstanceAutomatedBackupsReplication_kmsKeyId :: Lens.Lens' StartDBInstanceAutomatedBackupsReplication (Prelude.Maybe Prelude.Text)
startDBInstanceAutomatedBackupsReplication_kmsKeyId :: Lens' StartDBInstanceAutomatedBackupsReplication (Maybe Text)
startDBInstanceAutomatedBackupsReplication_kmsKeyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartDBInstanceAutomatedBackupsReplication' {Maybe Text
kmsKeyId :: Maybe Text
$sel:kmsKeyId:StartDBInstanceAutomatedBackupsReplication' :: StartDBInstanceAutomatedBackupsReplication -> Maybe Text
kmsKeyId} -> Maybe Text
kmsKeyId) (\s :: StartDBInstanceAutomatedBackupsReplication
s@StartDBInstanceAutomatedBackupsReplication' {} Maybe Text
a -> StartDBInstanceAutomatedBackupsReplication
s {$sel:kmsKeyId:StartDBInstanceAutomatedBackupsReplication' :: Maybe Text
kmsKeyId = Maybe Text
a} :: StartDBInstanceAutomatedBackupsReplication)
startDBInstanceAutomatedBackupsReplication_preSignedUrl :: Lens.Lens' StartDBInstanceAutomatedBackupsReplication (Prelude.Maybe Prelude.Text)
startDBInstanceAutomatedBackupsReplication_preSignedUrl :: Lens' StartDBInstanceAutomatedBackupsReplication (Maybe Text)
startDBInstanceAutomatedBackupsReplication_preSignedUrl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartDBInstanceAutomatedBackupsReplication' {Maybe Text
preSignedUrl :: Maybe Text
$sel:preSignedUrl:StartDBInstanceAutomatedBackupsReplication' :: StartDBInstanceAutomatedBackupsReplication -> Maybe Text
preSignedUrl} -> Maybe Text
preSignedUrl) (\s :: StartDBInstanceAutomatedBackupsReplication
s@StartDBInstanceAutomatedBackupsReplication' {} Maybe Text
a -> StartDBInstanceAutomatedBackupsReplication
s {$sel:preSignedUrl:StartDBInstanceAutomatedBackupsReplication' :: Maybe Text
preSignedUrl = Maybe Text
a} :: StartDBInstanceAutomatedBackupsReplication)
startDBInstanceAutomatedBackupsReplication_sourceDBInstanceArn :: Lens.Lens' StartDBInstanceAutomatedBackupsReplication Prelude.Text
startDBInstanceAutomatedBackupsReplication_sourceDBInstanceArn :: Lens' StartDBInstanceAutomatedBackupsReplication Text
startDBInstanceAutomatedBackupsReplication_sourceDBInstanceArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartDBInstanceAutomatedBackupsReplication' {Text
sourceDBInstanceArn :: Text
$sel:sourceDBInstanceArn:StartDBInstanceAutomatedBackupsReplication' :: StartDBInstanceAutomatedBackupsReplication -> Text
sourceDBInstanceArn} -> Text
sourceDBInstanceArn) (\s :: StartDBInstanceAutomatedBackupsReplication
s@StartDBInstanceAutomatedBackupsReplication' {} Text
a -> StartDBInstanceAutomatedBackupsReplication
s {$sel:sourceDBInstanceArn:StartDBInstanceAutomatedBackupsReplication' :: Text
sourceDBInstanceArn = Text
a} :: StartDBInstanceAutomatedBackupsReplication)
instance
Core.AWSRequest
StartDBInstanceAutomatedBackupsReplication
where
type
AWSResponse
StartDBInstanceAutomatedBackupsReplication =
StartDBInstanceAutomatedBackupsReplicationResponse
request :: (Service -> Service)
-> StartDBInstanceAutomatedBackupsReplication
-> Request StartDBInstanceAutomatedBackupsReplication
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy StartDBInstanceAutomatedBackupsReplication
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse StartDBInstanceAutomatedBackupsReplication)))
response =
forall (m :: * -> *) a.
MonadResource m =>
Text
-> (Int
-> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXMLWrapper
Text
"StartDBInstanceAutomatedBackupsReplicationResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe DBInstanceAutomatedBackup
-> Int -> StartDBInstanceAutomatedBackupsReplicationResponse
StartDBInstanceAutomatedBackupsReplicationResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"DBInstanceAutomatedBackup")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance
Prelude.Hashable
StartDBInstanceAutomatedBackupsReplication
where
hashWithSalt :: Int -> StartDBInstanceAutomatedBackupsReplication -> Int
hashWithSalt
Int
_salt
StartDBInstanceAutomatedBackupsReplication' {Maybe Int
Maybe Text
Text
sourceDBInstanceArn :: Text
preSignedUrl :: Maybe Text
kmsKeyId :: Maybe Text
destinationRegion :: Maybe Text
backupRetentionPeriod :: Maybe Int
$sel:sourceDBInstanceArn:StartDBInstanceAutomatedBackupsReplication' :: StartDBInstanceAutomatedBackupsReplication -> Text
$sel:preSignedUrl:StartDBInstanceAutomatedBackupsReplication' :: StartDBInstanceAutomatedBackupsReplication -> Maybe Text
$sel:kmsKeyId:StartDBInstanceAutomatedBackupsReplication' :: StartDBInstanceAutomatedBackupsReplication -> Maybe Text
$sel:destinationRegion:StartDBInstanceAutomatedBackupsReplication' :: StartDBInstanceAutomatedBackupsReplication -> Maybe Text
$sel:backupRetentionPeriod:StartDBInstanceAutomatedBackupsReplication' :: StartDBInstanceAutomatedBackupsReplication -> Maybe Int
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
backupRetentionPeriod
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
destinationRegion
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
kmsKeyId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
preSignedUrl
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
sourceDBInstanceArn
instance
Prelude.NFData
StartDBInstanceAutomatedBackupsReplication
where
rnf :: StartDBInstanceAutomatedBackupsReplication -> ()
rnf StartDBInstanceAutomatedBackupsReplication' {Maybe Int
Maybe Text
Text
sourceDBInstanceArn :: Text
preSignedUrl :: Maybe Text
kmsKeyId :: Maybe Text
destinationRegion :: Maybe Text
backupRetentionPeriod :: Maybe Int
$sel:sourceDBInstanceArn:StartDBInstanceAutomatedBackupsReplication' :: StartDBInstanceAutomatedBackupsReplication -> Text
$sel:preSignedUrl:StartDBInstanceAutomatedBackupsReplication' :: StartDBInstanceAutomatedBackupsReplication -> Maybe Text
$sel:kmsKeyId:StartDBInstanceAutomatedBackupsReplication' :: StartDBInstanceAutomatedBackupsReplication -> Maybe Text
$sel:destinationRegion:StartDBInstanceAutomatedBackupsReplication' :: StartDBInstanceAutomatedBackupsReplication -> Maybe Text
$sel:backupRetentionPeriod:StartDBInstanceAutomatedBackupsReplication' :: StartDBInstanceAutomatedBackupsReplication -> Maybe Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
backupRetentionPeriod
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
destinationRegion
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
preSignedUrl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
sourceDBInstanceArn
instance
Data.ToHeaders
StartDBInstanceAutomatedBackupsReplication
where
toHeaders :: StartDBInstanceAutomatedBackupsReplication -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToPath
StartDBInstanceAutomatedBackupsReplication
where
toPath :: StartDBInstanceAutomatedBackupsReplication -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
StartDBInstanceAutomatedBackupsReplication
where
toQuery :: StartDBInstanceAutomatedBackupsReplication -> QueryString
toQuery
StartDBInstanceAutomatedBackupsReplication' {Maybe Int
Maybe Text
Text
sourceDBInstanceArn :: Text
preSignedUrl :: Maybe Text
kmsKeyId :: Maybe Text
destinationRegion :: Maybe Text
backupRetentionPeriod :: Maybe Int
$sel:sourceDBInstanceArn:StartDBInstanceAutomatedBackupsReplication' :: StartDBInstanceAutomatedBackupsReplication -> Text
$sel:preSignedUrl:StartDBInstanceAutomatedBackupsReplication' :: StartDBInstanceAutomatedBackupsReplication -> Maybe Text
$sel:kmsKeyId:StartDBInstanceAutomatedBackupsReplication' :: StartDBInstanceAutomatedBackupsReplication -> Maybe Text
$sel:destinationRegion:StartDBInstanceAutomatedBackupsReplication' :: StartDBInstanceAutomatedBackupsReplication -> Maybe Text
$sel:backupRetentionPeriod:StartDBInstanceAutomatedBackupsReplication' :: StartDBInstanceAutomatedBackupsReplication -> Maybe Int
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"StartDBInstanceAutomatedBackupsReplication" ::
Prelude.ByteString
),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2014-10-31" :: Prelude.ByteString),
ByteString
"BackupRetentionPeriod"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
backupRetentionPeriod,
ByteString
"DestinationRegion" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
destinationRegion,
ByteString
"KmsKeyId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
kmsKeyId,
ByteString
"PreSignedUrl" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
preSignedUrl,
ByteString
"SourceDBInstanceArn" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
sourceDBInstanceArn
]
data StartDBInstanceAutomatedBackupsReplicationResponse = StartDBInstanceAutomatedBackupsReplicationResponse'
{ StartDBInstanceAutomatedBackupsReplicationResponse
-> Maybe DBInstanceAutomatedBackup
dbInstanceAutomatedBackup :: Prelude.Maybe DBInstanceAutomatedBackup,
StartDBInstanceAutomatedBackupsReplicationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (StartDBInstanceAutomatedBackupsReplicationResponse
-> StartDBInstanceAutomatedBackupsReplicationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StartDBInstanceAutomatedBackupsReplicationResponse
-> StartDBInstanceAutomatedBackupsReplicationResponse -> Bool
$c/= :: StartDBInstanceAutomatedBackupsReplicationResponse
-> StartDBInstanceAutomatedBackupsReplicationResponse -> Bool
== :: StartDBInstanceAutomatedBackupsReplicationResponse
-> StartDBInstanceAutomatedBackupsReplicationResponse -> Bool
$c== :: StartDBInstanceAutomatedBackupsReplicationResponse
-> StartDBInstanceAutomatedBackupsReplicationResponse -> Bool
Prelude.Eq, ReadPrec [StartDBInstanceAutomatedBackupsReplicationResponse]
ReadPrec StartDBInstanceAutomatedBackupsReplicationResponse
Int -> ReadS StartDBInstanceAutomatedBackupsReplicationResponse
ReadS [StartDBInstanceAutomatedBackupsReplicationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [StartDBInstanceAutomatedBackupsReplicationResponse]
$creadListPrec :: ReadPrec [StartDBInstanceAutomatedBackupsReplicationResponse]
readPrec :: ReadPrec StartDBInstanceAutomatedBackupsReplicationResponse
$creadPrec :: ReadPrec StartDBInstanceAutomatedBackupsReplicationResponse
readList :: ReadS [StartDBInstanceAutomatedBackupsReplicationResponse]
$creadList :: ReadS [StartDBInstanceAutomatedBackupsReplicationResponse]
readsPrec :: Int -> ReadS StartDBInstanceAutomatedBackupsReplicationResponse
$creadsPrec :: Int -> ReadS StartDBInstanceAutomatedBackupsReplicationResponse
Prelude.Read, Int -> StartDBInstanceAutomatedBackupsReplicationResponse -> ShowS
[StartDBInstanceAutomatedBackupsReplicationResponse] -> ShowS
StartDBInstanceAutomatedBackupsReplicationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StartDBInstanceAutomatedBackupsReplicationResponse] -> ShowS
$cshowList :: [StartDBInstanceAutomatedBackupsReplicationResponse] -> ShowS
show :: StartDBInstanceAutomatedBackupsReplicationResponse -> String
$cshow :: StartDBInstanceAutomatedBackupsReplicationResponse -> String
showsPrec :: Int -> StartDBInstanceAutomatedBackupsReplicationResponse -> ShowS
$cshowsPrec :: Int -> StartDBInstanceAutomatedBackupsReplicationResponse -> ShowS
Prelude.Show, forall x.
Rep StartDBInstanceAutomatedBackupsReplicationResponse x
-> StartDBInstanceAutomatedBackupsReplicationResponse
forall x.
StartDBInstanceAutomatedBackupsReplicationResponse
-> Rep StartDBInstanceAutomatedBackupsReplicationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep StartDBInstanceAutomatedBackupsReplicationResponse x
-> StartDBInstanceAutomatedBackupsReplicationResponse
$cfrom :: forall x.
StartDBInstanceAutomatedBackupsReplicationResponse
-> Rep StartDBInstanceAutomatedBackupsReplicationResponse x
Prelude.Generic)
newStartDBInstanceAutomatedBackupsReplicationResponse ::
Prelude.Int ->
StartDBInstanceAutomatedBackupsReplicationResponse
newStartDBInstanceAutomatedBackupsReplicationResponse :: Int -> StartDBInstanceAutomatedBackupsReplicationResponse
newStartDBInstanceAutomatedBackupsReplicationResponse
Int
pHttpStatus_ =
StartDBInstanceAutomatedBackupsReplicationResponse'
{ $sel:dbInstanceAutomatedBackup:StartDBInstanceAutomatedBackupsReplicationResponse' :: Maybe DBInstanceAutomatedBackup
dbInstanceAutomatedBackup =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:StartDBInstanceAutomatedBackupsReplicationResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
startDBInstanceAutomatedBackupsReplicationResponse_dbInstanceAutomatedBackup :: Lens.Lens' StartDBInstanceAutomatedBackupsReplicationResponse (Prelude.Maybe DBInstanceAutomatedBackup)
startDBInstanceAutomatedBackupsReplicationResponse_dbInstanceAutomatedBackup :: Lens'
StartDBInstanceAutomatedBackupsReplicationResponse
(Maybe DBInstanceAutomatedBackup)
startDBInstanceAutomatedBackupsReplicationResponse_dbInstanceAutomatedBackup = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartDBInstanceAutomatedBackupsReplicationResponse' {Maybe DBInstanceAutomatedBackup
dbInstanceAutomatedBackup :: Maybe DBInstanceAutomatedBackup
$sel:dbInstanceAutomatedBackup:StartDBInstanceAutomatedBackupsReplicationResponse' :: StartDBInstanceAutomatedBackupsReplicationResponse
-> Maybe DBInstanceAutomatedBackup
dbInstanceAutomatedBackup} -> Maybe DBInstanceAutomatedBackup
dbInstanceAutomatedBackup) (\s :: StartDBInstanceAutomatedBackupsReplicationResponse
s@StartDBInstanceAutomatedBackupsReplicationResponse' {} Maybe DBInstanceAutomatedBackup
a -> StartDBInstanceAutomatedBackupsReplicationResponse
s {$sel:dbInstanceAutomatedBackup:StartDBInstanceAutomatedBackupsReplicationResponse' :: Maybe DBInstanceAutomatedBackup
dbInstanceAutomatedBackup = Maybe DBInstanceAutomatedBackup
a} :: StartDBInstanceAutomatedBackupsReplicationResponse)
startDBInstanceAutomatedBackupsReplicationResponse_httpStatus :: Lens.Lens' StartDBInstanceAutomatedBackupsReplicationResponse Prelude.Int
startDBInstanceAutomatedBackupsReplicationResponse_httpStatus :: Lens' StartDBInstanceAutomatedBackupsReplicationResponse Int
startDBInstanceAutomatedBackupsReplicationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartDBInstanceAutomatedBackupsReplicationResponse' {Int
httpStatus :: Int
$sel:httpStatus:StartDBInstanceAutomatedBackupsReplicationResponse' :: StartDBInstanceAutomatedBackupsReplicationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: StartDBInstanceAutomatedBackupsReplicationResponse
s@StartDBInstanceAutomatedBackupsReplicationResponse' {} Int
a -> StartDBInstanceAutomatedBackupsReplicationResponse
s {$sel:httpStatus:StartDBInstanceAutomatedBackupsReplicationResponse' :: Int
httpStatus = Int
a} :: StartDBInstanceAutomatedBackupsReplicationResponse)
instance
Prelude.NFData
StartDBInstanceAutomatedBackupsReplicationResponse
where
rnf :: StartDBInstanceAutomatedBackupsReplicationResponse -> ()
rnf
StartDBInstanceAutomatedBackupsReplicationResponse' {Int
Maybe DBInstanceAutomatedBackup
httpStatus :: Int
dbInstanceAutomatedBackup :: Maybe DBInstanceAutomatedBackup
$sel:httpStatus:StartDBInstanceAutomatedBackupsReplicationResponse' :: StartDBInstanceAutomatedBackupsReplicationResponse -> Int
$sel:dbInstanceAutomatedBackup:StartDBInstanceAutomatedBackupsReplicationResponse' :: StartDBInstanceAutomatedBackupsReplicationResponse
-> Maybe DBInstanceAutomatedBackup
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe DBInstanceAutomatedBackup
dbInstanceAutomatedBackup
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus