{-# 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 #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.RDS.StartDBInstanceAutomatedBackupsReplication
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Enables replication of automated backups to a different Amazon Web
-- Services Region.
--
-- This command doesn\'t apply to RDS Custom.
--
-- For more information, see
-- <https://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_ReplicateBackups.html Replicating Automated Backups to Another Amazon Web Services Region>
-- in the /Amazon RDS User Guide./
module Amazonka.RDS.StartDBInstanceAutomatedBackupsReplication
  ( -- * Creating a Request
    StartDBInstanceAutomatedBackupsReplication (..),
    newStartDBInstanceAutomatedBackupsReplication,

    -- * Request Lenses
    startDBInstanceAutomatedBackupsReplication_backupRetentionPeriod,
    startDBInstanceAutomatedBackupsReplication_destinationRegion,
    startDBInstanceAutomatedBackupsReplication_kmsKeyId,
    startDBInstanceAutomatedBackupsReplication_preSignedUrl,
    startDBInstanceAutomatedBackupsReplication_sourceDBInstanceArn,

    -- * Destructuring the Response
    StartDBInstanceAutomatedBackupsReplicationResponse (..),
    newStartDBInstanceAutomatedBackupsReplicationResponse,

    -- * Response Lenses
    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

-- | /See:/ 'newStartDBInstanceAutomatedBackupsReplication' smart constructor.
data StartDBInstanceAutomatedBackupsReplication = StartDBInstanceAutomatedBackupsReplication'
  { -- | The retention period for the replicated automated backups.
    StartDBInstanceAutomatedBackupsReplication -> Maybe Int
backupRetentionPeriod :: Prelude.Maybe Prelude.Int,
    -- | Pseudo-parameter used when populating the @PreSignedUrl@ of a
    -- cross-region @StartDBInstanceAutomatedBackupsReplication@ request. To
    -- replicate from region @SRC@ to region @DST@, send a request to region
    -- @DST@. In that request, pass a @PreSignedUrl@ for region @SRC@ with
    -- @DestinationRegion@ set to region @DST@.
    StartDBInstanceAutomatedBackupsReplication -> Maybe Text
destinationRegion :: Prelude.Maybe Prelude.Text,
    -- | The Amazon Web Services KMS key identifier for encryption of the
    -- replicated automated backups. The KMS key ID is the Amazon Resource Name
    -- (ARN) for the KMS encryption key in the destination Amazon Web Services
    -- Region, for example,
    -- @arn:aws:kms:us-east-1:123456789012:key\/AKIAIOSFODNN7EXAMPLE@.
    StartDBInstanceAutomatedBackupsReplication -> Maybe Text
kmsKeyId :: Prelude.Maybe Prelude.Text,
    -- | In an Amazon Web Services GovCloud (US) Region, an URL that contains a
    -- Signature Version 4 signed request for the
    -- @StartDBInstanceAutomatedBackupsReplication@ operation to call in the
    -- Amazon Web Services Region of the source DB instance. The presigned URL
    -- must be a valid request for the
    -- @StartDBInstanceAutomatedBackupsReplication@ API operation that can run
    -- in the Amazon Web Services Region that contains the source DB instance.
    --
    -- This setting applies only to Amazon Web Services GovCloud (US) Regions.
    -- It\'s ignored in other Amazon Web Services Regions.
    --
    -- To learn how to generate a Signature Version 4 signed request, see
    -- <https://docs.aws.amazon.com/AmazonS3/latest/API/sigv4-query-string-auth.html Authenticating Requests: Using Query Parameters (Amazon Web Services Signature Version 4)>
    -- and
    -- <https://docs.aws.amazon.com/general/latest/gr/signature-version-4.html Signature Version 4 Signing Process>.
    --
    -- If you are using an Amazon Web Services SDK tool or the CLI, you can
    -- specify @SourceRegion@ (or @--source-region@ for the CLI) instead of
    -- specifying @PreSignedUrl@ manually. Specifying @SourceRegion@
    -- autogenerates a presigned URL that is a valid request for the operation
    -- that can run in the source Amazon Web Services Region.
    StartDBInstanceAutomatedBackupsReplication -> Maybe Text
preSignedUrl :: Prelude.Maybe Prelude.Text,
    -- | The Amazon Resource Name (ARN) of the source DB instance for the
    -- replicated automated backups, for example,
    -- @arn:aws:rds:us-west-2:123456789012:db:mydatabase@.
    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)

-- |
-- Create a value of 'StartDBInstanceAutomatedBackupsReplication' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'backupRetentionPeriod', 'startDBInstanceAutomatedBackupsReplication_backupRetentionPeriod' - The retention period for the replicated automated backups.
--
-- 'destinationRegion', 'startDBInstanceAutomatedBackupsReplication_destinationRegion' - Pseudo-parameter used when populating the @PreSignedUrl@ of a
-- cross-region @StartDBInstanceAutomatedBackupsReplication@ request. To
-- replicate from region @SRC@ to region @DST@, send a request to region
-- @DST@. In that request, pass a @PreSignedUrl@ for region @SRC@ with
-- @DestinationRegion@ set to region @DST@.
--
-- 'kmsKeyId', 'startDBInstanceAutomatedBackupsReplication_kmsKeyId' - The Amazon Web Services KMS key identifier for encryption of the
-- replicated automated backups. The KMS key ID is the Amazon Resource Name
-- (ARN) for the KMS encryption key in the destination Amazon Web Services
-- Region, for example,
-- @arn:aws:kms:us-east-1:123456789012:key\/AKIAIOSFODNN7EXAMPLE@.
--
-- 'preSignedUrl', 'startDBInstanceAutomatedBackupsReplication_preSignedUrl' - In an Amazon Web Services GovCloud (US) Region, an URL that contains a
-- Signature Version 4 signed request for the
-- @StartDBInstanceAutomatedBackupsReplication@ operation to call in the
-- Amazon Web Services Region of the source DB instance. The presigned URL
-- must be a valid request for the
-- @StartDBInstanceAutomatedBackupsReplication@ API operation that can run
-- in the Amazon Web Services Region that contains the source DB instance.
--
-- This setting applies only to Amazon Web Services GovCloud (US) Regions.
-- It\'s ignored in other Amazon Web Services Regions.
--
-- To learn how to generate a Signature Version 4 signed request, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/API/sigv4-query-string-auth.html Authenticating Requests: Using Query Parameters (Amazon Web Services Signature Version 4)>
-- and
-- <https://docs.aws.amazon.com/general/latest/gr/signature-version-4.html Signature Version 4 Signing Process>.
--
-- If you are using an Amazon Web Services SDK tool or the CLI, you can
-- specify @SourceRegion@ (or @--source-region@ for the CLI) instead of
-- specifying @PreSignedUrl@ manually. Specifying @SourceRegion@
-- autogenerates a presigned URL that is a valid request for the operation
-- that can run in the source Amazon Web Services Region.
--
-- 'sourceDBInstanceArn', 'startDBInstanceAutomatedBackupsReplication_sourceDBInstanceArn' - The Amazon Resource Name (ARN) of the source DB instance for the
-- replicated automated backups, for example,
-- @arn:aws:rds:us-west-2:123456789012:db:mydatabase@.
newStartDBInstanceAutomatedBackupsReplication ::
  -- | 'sourceDBInstanceArn'
  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_
      }

-- | The retention period for the replicated automated backups.
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)

-- | Pseudo-parameter used when populating the @PreSignedUrl@ of a
-- cross-region @StartDBInstanceAutomatedBackupsReplication@ request. To
-- replicate from region @SRC@ to region @DST@, send a request to region
-- @DST@. In that request, pass a @PreSignedUrl@ for region @SRC@ with
-- @DestinationRegion@ set to region @DST@.
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)

-- | The Amazon Web Services KMS key identifier for encryption of the
-- replicated automated backups. The KMS key ID is the Amazon Resource Name
-- (ARN) for the KMS encryption key in the destination Amazon Web Services
-- Region, for example,
-- @arn:aws:kms:us-east-1:123456789012:key\/AKIAIOSFODNN7EXAMPLE@.
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)

-- | In an Amazon Web Services GovCloud (US) Region, an URL that contains a
-- Signature Version 4 signed request for the
-- @StartDBInstanceAutomatedBackupsReplication@ operation to call in the
-- Amazon Web Services Region of the source DB instance. The presigned URL
-- must be a valid request for the
-- @StartDBInstanceAutomatedBackupsReplication@ API operation that can run
-- in the Amazon Web Services Region that contains the source DB instance.
--
-- This setting applies only to Amazon Web Services GovCloud (US) Regions.
-- It\'s ignored in other Amazon Web Services Regions.
--
-- To learn how to generate a Signature Version 4 signed request, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/API/sigv4-query-string-auth.html Authenticating Requests: Using Query Parameters (Amazon Web Services Signature Version 4)>
-- and
-- <https://docs.aws.amazon.com/general/latest/gr/signature-version-4.html Signature Version 4 Signing Process>.
--
-- If you are using an Amazon Web Services SDK tool or the CLI, you can
-- specify @SourceRegion@ (or @--source-region@ for the CLI) instead of
-- specifying @PreSignedUrl@ manually. Specifying @SourceRegion@
-- autogenerates a presigned URL that is a valid request for the operation
-- that can run in the source Amazon Web Services Region.
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)

-- | The Amazon Resource Name (ARN) of the source DB instance for the
-- replicated automated backups, for example,
-- @arn:aws:rds:us-west-2:123456789012:db:mydatabase@.
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
        ]

-- | /See:/ 'newStartDBInstanceAutomatedBackupsReplicationResponse' smart constructor.
data StartDBInstanceAutomatedBackupsReplicationResponse = StartDBInstanceAutomatedBackupsReplicationResponse'
  { StartDBInstanceAutomatedBackupsReplicationResponse
-> Maybe DBInstanceAutomatedBackup
dbInstanceAutomatedBackup :: Prelude.Maybe DBInstanceAutomatedBackup,
    -- | The response's http status code.
    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)

-- |
-- Create a value of 'StartDBInstanceAutomatedBackupsReplicationResponse' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'dbInstanceAutomatedBackup', 'startDBInstanceAutomatedBackupsReplicationResponse_dbInstanceAutomatedBackup' - Undocumented member.
--
-- 'httpStatus', 'startDBInstanceAutomatedBackupsReplicationResponse_httpStatus' - The response's http status code.
newStartDBInstanceAutomatedBackupsReplicationResponse ::
  -- | 'httpStatus'
  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_
      }

-- | Undocumented member.
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)

-- | The response's http status code.
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