{-# 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.DocumentDB.RestoreDBClusterFromSnapshot -- Copyright : (c) 2013-2023 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Creates a new cluster from a snapshot or cluster snapshot. -- -- If a snapshot is specified, the target cluster is created from the -- source DB snapshot with a default configuration and default security -- group. -- -- If a cluster snapshot is specified, the target cluster is created from -- the source cluster restore point with the same configuration as the -- original source DB cluster, except that the new cluster is created with -- the default security group. module Amazonka.DocumentDB.RestoreDBClusterFromSnapshot ( -- * Creating a Request RestoreDBClusterFromSnapshot (..), newRestoreDBClusterFromSnapshot, -- * Request Lenses restoreDBClusterFromSnapshot_availabilityZones, restoreDBClusterFromSnapshot_dbSubnetGroupName, restoreDBClusterFromSnapshot_deletionProtection, restoreDBClusterFromSnapshot_enableCloudwatchLogsExports, restoreDBClusterFromSnapshot_engineVersion, restoreDBClusterFromSnapshot_kmsKeyId, restoreDBClusterFromSnapshot_port, restoreDBClusterFromSnapshot_tags, restoreDBClusterFromSnapshot_vpcSecurityGroupIds, restoreDBClusterFromSnapshot_dbClusterIdentifier, restoreDBClusterFromSnapshot_snapshotIdentifier, restoreDBClusterFromSnapshot_engine, -- * Destructuring the Response RestoreDBClusterFromSnapshotResponse (..), newRestoreDBClusterFromSnapshotResponse, -- * Response Lenses restoreDBClusterFromSnapshotResponse_dbCluster, restoreDBClusterFromSnapshotResponse_httpStatus, ) where import qualified Amazonka.Core as Core import qualified Amazonka.Core.Lens.Internal as Lens import qualified Amazonka.Data as Data import Amazonka.DocumentDB.Types import qualified Amazonka.Prelude as Prelude import qualified Amazonka.Request as Request import qualified Amazonka.Response as Response -- | Represents the input to RestoreDBClusterFromSnapshot. -- -- /See:/ 'newRestoreDBClusterFromSnapshot' smart constructor. data RestoreDBClusterFromSnapshot = RestoreDBClusterFromSnapshot' { -- | Provides the list of Amazon EC2 Availability Zones that instances in the -- restored DB cluster can be created in. availabilityZones :: Prelude.Maybe [Prelude.Text], -- | The name of the subnet group to use for the new cluster. -- -- Constraints: If provided, must match the name of an existing -- @DBSubnetGroup@. -- -- Example: @mySubnetgroup@ dbSubnetGroupName :: Prelude.Maybe Prelude.Text, -- | Specifies whether this cluster can be deleted. If @DeletionProtection@ -- is enabled, the cluster cannot be deleted unless it is modified and -- @DeletionProtection@ is disabled. @DeletionProtection@ protects clusters -- from being accidentally deleted. deletionProtection :: Prelude.Maybe Prelude.Bool, -- | A list of log types that must be enabled for exporting to Amazon -- CloudWatch Logs. enableCloudwatchLogsExports :: Prelude.Maybe [Prelude.Text], -- | The version of the database engine to use for the new cluster. engineVersion :: Prelude.Maybe Prelude.Text, -- | The KMS key identifier to use when restoring an encrypted cluster from a -- DB snapshot or cluster snapshot. -- -- The KMS key identifier is the Amazon Resource Name (ARN) for the KMS -- encryption key. If you are restoring a cluster with the same Amazon Web -- Services account that owns the KMS encryption key used to encrypt the -- new cluster, then you can use the KMS key alias instead of the ARN for -- the KMS encryption key. -- -- If you do not specify a value for the @KmsKeyId@ parameter, then the -- following occurs: -- -- - If the snapshot or cluster snapshot in @SnapshotIdentifier@ is -- encrypted, then the restored cluster is encrypted using the KMS key -- that was used to encrypt the snapshot or the cluster snapshot. -- -- - If the snapshot or the cluster snapshot in @SnapshotIdentifier@ is -- not encrypted, then the restored DB cluster is not encrypted. kmsKeyId :: Prelude.Maybe Prelude.Text, -- | The port number on which the new cluster accepts connections. -- -- Constraints: Must be a value from @1150@ to @65535@. -- -- Default: The same port as the original cluster. port :: Prelude.Maybe Prelude.Int, -- | The tags to be assigned to the restored cluster. tags :: Prelude.Maybe [Tag], -- | A list of virtual private cloud (VPC) security groups that the new -- cluster will belong to. vpcSecurityGroupIds :: Prelude.Maybe [Prelude.Text], -- | The name of the cluster to create from the snapshot or cluster snapshot. -- This parameter isn\'t case sensitive. -- -- Constraints: -- -- - Must contain from 1 to 63 letters, numbers, or hyphens. -- -- - The first character must be a letter. -- -- - Cannot end with a hyphen or contain two consecutive hyphens. -- -- Example: @my-snapshot-id@ dbClusterIdentifier :: Prelude.Text, -- | The identifier for the snapshot or cluster snapshot to restore from. -- -- You can use either the name or the Amazon Resource Name (ARN) to specify -- a cluster snapshot. However, you can use only the ARN to specify a -- snapshot. -- -- Constraints: -- -- - Must match the identifier of an existing snapshot. snapshotIdentifier :: Prelude.Text, -- | The database engine to use for the new cluster. -- -- Default: The same as source. -- -- Constraint: Must be compatible with the engine of the source. engine :: Prelude.Text } deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) -- | -- Create a value of 'RestoreDBClusterFromSnapshot' with all optional fields omitted. -- -- Use or to modify other optional fields. -- -- The following record fields are available, with the corresponding lenses provided -- for backwards compatibility: -- -- 'availabilityZones', 'restoreDBClusterFromSnapshot_availabilityZones' - Provides the list of Amazon EC2 Availability Zones that instances in the -- restored DB cluster can be created in. -- -- 'dbSubnetGroupName', 'restoreDBClusterFromSnapshot_dbSubnetGroupName' - The name of the subnet group to use for the new cluster. -- -- Constraints: If provided, must match the name of an existing -- @DBSubnetGroup@. -- -- Example: @mySubnetgroup@ -- -- 'deletionProtection', 'restoreDBClusterFromSnapshot_deletionProtection' - Specifies whether this cluster can be deleted. If @DeletionProtection@ -- is enabled, the cluster cannot be deleted unless it is modified and -- @DeletionProtection@ is disabled. @DeletionProtection@ protects clusters -- from being accidentally deleted. -- -- 'enableCloudwatchLogsExports', 'restoreDBClusterFromSnapshot_enableCloudwatchLogsExports' - A list of log types that must be enabled for exporting to Amazon -- CloudWatch Logs. -- -- 'engineVersion', 'restoreDBClusterFromSnapshot_engineVersion' - The version of the database engine to use for the new cluster. -- -- 'kmsKeyId', 'restoreDBClusterFromSnapshot_kmsKeyId' - The KMS key identifier to use when restoring an encrypted cluster from a -- DB snapshot or cluster snapshot. -- -- The KMS key identifier is the Amazon Resource Name (ARN) for the KMS -- encryption key. If you are restoring a cluster with the same Amazon Web -- Services account that owns the KMS encryption key used to encrypt the -- new cluster, then you can use the KMS key alias instead of the ARN for -- the KMS encryption key. -- -- If you do not specify a value for the @KmsKeyId@ parameter, then the -- following occurs: -- -- - If the snapshot or cluster snapshot in @SnapshotIdentifier@ is -- encrypted, then the restored cluster is encrypted using the KMS key -- that was used to encrypt the snapshot or the cluster snapshot. -- -- - If the snapshot or the cluster snapshot in @SnapshotIdentifier@ is -- not encrypted, then the restored DB cluster is not encrypted. -- -- 'port', 'restoreDBClusterFromSnapshot_port' - The port number on which the new cluster accepts connections. -- -- Constraints: Must be a value from @1150@ to @65535@. -- -- Default: The same port as the original cluster. -- -- 'tags', 'restoreDBClusterFromSnapshot_tags' - The tags to be assigned to the restored cluster. -- -- 'vpcSecurityGroupIds', 'restoreDBClusterFromSnapshot_vpcSecurityGroupIds' - A list of virtual private cloud (VPC) security groups that the new -- cluster will belong to. -- -- 'dbClusterIdentifier', 'restoreDBClusterFromSnapshot_dbClusterIdentifier' - The name of the cluster to create from the snapshot or cluster snapshot. -- This parameter isn\'t case sensitive. -- -- Constraints: -- -- - Must contain from 1 to 63 letters, numbers, or hyphens. -- -- - The first character must be a letter. -- -- - Cannot end with a hyphen or contain two consecutive hyphens. -- -- Example: @my-snapshot-id@ -- -- 'snapshotIdentifier', 'restoreDBClusterFromSnapshot_snapshotIdentifier' - The identifier for the snapshot or cluster snapshot to restore from. -- -- You can use either the name or the Amazon Resource Name (ARN) to specify -- a cluster snapshot. However, you can use only the ARN to specify a -- snapshot. -- -- Constraints: -- -- - Must match the identifier of an existing snapshot. -- -- 'engine', 'restoreDBClusterFromSnapshot_engine' - The database engine to use for the new cluster. -- -- Default: The same as source. -- -- Constraint: Must be compatible with the engine of the source. newRestoreDBClusterFromSnapshot :: -- | 'dbClusterIdentifier' Prelude.Text -> -- | 'snapshotIdentifier' Prelude.Text -> -- | 'engine' Prelude.Text -> RestoreDBClusterFromSnapshot newRestoreDBClusterFromSnapshot pDBClusterIdentifier_ pSnapshotIdentifier_ pEngine_ = RestoreDBClusterFromSnapshot' { availabilityZones = Prelude.Nothing, dbSubnetGroupName = Prelude.Nothing, deletionProtection = Prelude.Nothing, enableCloudwatchLogsExports = Prelude.Nothing, engineVersion = Prelude.Nothing, kmsKeyId = Prelude.Nothing, port = Prelude.Nothing, tags = Prelude.Nothing, vpcSecurityGroupIds = Prelude.Nothing, dbClusterIdentifier = pDBClusterIdentifier_, snapshotIdentifier = pSnapshotIdentifier_, engine = pEngine_ } -- | Provides the list of Amazon EC2 Availability Zones that instances in the -- restored DB cluster can be created in. restoreDBClusterFromSnapshot_availabilityZones :: Lens.Lens' RestoreDBClusterFromSnapshot (Prelude.Maybe [Prelude.Text]) restoreDBClusterFromSnapshot_availabilityZones = Lens.lens (\RestoreDBClusterFromSnapshot' {availabilityZones} -> availabilityZones) (\s@RestoreDBClusterFromSnapshot' {} a -> s {availabilityZones = a} :: RestoreDBClusterFromSnapshot) Prelude.. Lens.mapping Lens.coerced -- | The name of the subnet group to use for the new cluster. -- -- Constraints: If provided, must match the name of an existing -- @DBSubnetGroup@. -- -- Example: @mySubnetgroup@ restoreDBClusterFromSnapshot_dbSubnetGroupName :: Lens.Lens' RestoreDBClusterFromSnapshot (Prelude.Maybe Prelude.Text) restoreDBClusterFromSnapshot_dbSubnetGroupName = Lens.lens (\RestoreDBClusterFromSnapshot' {dbSubnetGroupName} -> dbSubnetGroupName) (\s@RestoreDBClusterFromSnapshot' {} a -> s {dbSubnetGroupName = a} :: RestoreDBClusterFromSnapshot) -- | Specifies whether this cluster can be deleted. If @DeletionProtection@ -- is enabled, the cluster cannot be deleted unless it is modified and -- @DeletionProtection@ is disabled. @DeletionProtection@ protects clusters -- from being accidentally deleted. restoreDBClusterFromSnapshot_deletionProtection :: Lens.Lens' RestoreDBClusterFromSnapshot (Prelude.Maybe Prelude.Bool) restoreDBClusterFromSnapshot_deletionProtection = Lens.lens (\RestoreDBClusterFromSnapshot' {deletionProtection} -> deletionProtection) (\s@RestoreDBClusterFromSnapshot' {} a -> s {deletionProtection = a} :: RestoreDBClusterFromSnapshot) -- | A list of log types that must be enabled for exporting to Amazon -- CloudWatch Logs. restoreDBClusterFromSnapshot_enableCloudwatchLogsExports :: Lens.Lens' RestoreDBClusterFromSnapshot (Prelude.Maybe [Prelude.Text]) restoreDBClusterFromSnapshot_enableCloudwatchLogsExports = Lens.lens (\RestoreDBClusterFromSnapshot' {enableCloudwatchLogsExports} -> enableCloudwatchLogsExports) (\s@RestoreDBClusterFromSnapshot' {} a -> s {enableCloudwatchLogsExports = a} :: RestoreDBClusterFromSnapshot) Prelude.. Lens.mapping Lens.coerced -- | The version of the database engine to use for the new cluster. restoreDBClusterFromSnapshot_engineVersion :: Lens.Lens' RestoreDBClusterFromSnapshot (Prelude.Maybe Prelude.Text) restoreDBClusterFromSnapshot_engineVersion = Lens.lens (\RestoreDBClusterFromSnapshot' {engineVersion} -> engineVersion) (\s@RestoreDBClusterFromSnapshot' {} a -> s {engineVersion = a} :: RestoreDBClusterFromSnapshot) -- | The KMS key identifier to use when restoring an encrypted cluster from a -- DB snapshot or cluster snapshot. -- -- The KMS key identifier is the Amazon Resource Name (ARN) for the KMS -- encryption key. If you are restoring a cluster with the same Amazon Web -- Services account that owns the KMS encryption key used to encrypt the -- new cluster, then you can use the KMS key alias instead of the ARN for -- the KMS encryption key. -- -- If you do not specify a value for the @KmsKeyId@ parameter, then the -- following occurs: -- -- - If the snapshot or cluster snapshot in @SnapshotIdentifier@ is -- encrypted, then the restored cluster is encrypted using the KMS key -- that was used to encrypt the snapshot or the cluster snapshot. -- -- - If the snapshot or the cluster snapshot in @SnapshotIdentifier@ is -- not encrypted, then the restored DB cluster is not encrypted. restoreDBClusterFromSnapshot_kmsKeyId :: Lens.Lens' RestoreDBClusterFromSnapshot (Prelude.Maybe Prelude.Text) restoreDBClusterFromSnapshot_kmsKeyId = Lens.lens (\RestoreDBClusterFromSnapshot' {kmsKeyId} -> kmsKeyId) (\s@RestoreDBClusterFromSnapshot' {} a -> s {kmsKeyId = a} :: RestoreDBClusterFromSnapshot) -- | The port number on which the new cluster accepts connections. -- -- Constraints: Must be a value from @1150@ to @65535@. -- -- Default: The same port as the original cluster. restoreDBClusterFromSnapshot_port :: Lens.Lens' RestoreDBClusterFromSnapshot (Prelude.Maybe Prelude.Int) restoreDBClusterFromSnapshot_port = Lens.lens (\RestoreDBClusterFromSnapshot' {port} -> port) (\s@RestoreDBClusterFromSnapshot' {} a -> s {port = a} :: RestoreDBClusterFromSnapshot) -- | The tags to be assigned to the restored cluster. restoreDBClusterFromSnapshot_tags :: Lens.Lens' RestoreDBClusterFromSnapshot (Prelude.Maybe [Tag]) restoreDBClusterFromSnapshot_tags = Lens.lens (\RestoreDBClusterFromSnapshot' {tags} -> tags) (\s@RestoreDBClusterFromSnapshot' {} a -> s {tags = a} :: RestoreDBClusterFromSnapshot) Prelude.. Lens.mapping Lens.coerced -- | A list of virtual private cloud (VPC) security groups that the new -- cluster will belong to. restoreDBClusterFromSnapshot_vpcSecurityGroupIds :: Lens.Lens' RestoreDBClusterFromSnapshot (Prelude.Maybe [Prelude.Text]) restoreDBClusterFromSnapshot_vpcSecurityGroupIds = Lens.lens (\RestoreDBClusterFromSnapshot' {vpcSecurityGroupIds} -> vpcSecurityGroupIds) (\s@RestoreDBClusterFromSnapshot' {} a -> s {vpcSecurityGroupIds = a} :: RestoreDBClusterFromSnapshot) Prelude.. Lens.mapping Lens.coerced -- | The name of the cluster to create from the snapshot or cluster snapshot. -- This parameter isn\'t case sensitive. -- -- Constraints: -- -- - Must contain from 1 to 63 letters, numbers, or hyphens. -- -- - The first character must be a letter. -- -- - Cannot end with a hyphen or contain two consecutive hyphens. -- -- Example: @my-snapshot-id@ restoreDBClusterFromSnapshot_dbClusterIdentifier :: Lens.Lens' RestoreDBClusterFromSnapshot Prelude.Text restoreDBClusterFromSnapshot_dbClusterIdentifier = Lens.lens (\RestoreDBClusterFromSnapshot' {dbClusterIdentifier} -> dbClusterIdentifier) (\s@RestoreDBClusterFromSnapshot' {} a -> s {dbClusterIdentifier = a} :: RestoreDBClusterFromSnapshot) -- | The identifier for the snapshot or cluster snapshot to restore from. -- -- You can use either the name or the Amazon Resource Name (ARN) to specify -- a cluster snapshot. However, you can use only the ARN to specify a -- snapshot. -- -- Constraints: -- -- - Must match the identifier of an existing snapshot. restoreDBClusterFromSnapshot_snapshotIdentifier :: Lens.Lens' RestoreDBClusterFromSnapshot Prelude.Text restoreDBClusterFromSnapshot_snapshotIdentifier = Lens.lens (\RestoreDBClusterFromSnapshot' {snapshotIdentifier} -> snapshotIdentifier) (\s@RestoreDBClusterFromSnapshot' {} a -> s {snapshotIdentifier = a} :: RestoreDBClusterFromSnapshot) -- | The database engine to use for the new cluster. -- -- Default: The same as source. -- -- Constraint: Must be compatible with the engine of the source. restoreDBClusterFromSnapshot_engine :: Lens.Lens' RestoreDBClusterFromSnapshot Prelude.Text restoreDBClusterFromSnapshot_engine = Lens.lens (\RestoreDBClusterFromSnapshot' {engine} -> engine) (\s@RestoreDBClusterFromSnapshot' {} a -> s {engine = a} :: RestoreDBClusterFromSnapshot) instance Core.AWSRequest RestoreDBClusterFromSnapshot where type AWSResponse RestoreDBClusterFromSnapshot = RestoreDBClusterFromSnapshotResponse request overrides = Request.postQuery (overrides defaultService) response = Response.receiveXMLWrapper "RestoreDBClusterFromSnapshotResult" ( \s h x -> RestoreDBClusterFromSnapshotResponse' Prelude.<$> (x Data..@? "DBCluster") Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) ) instance Prelude.Hashable RestoreDBClusterFromSnapshot where hashWithSalt _salt RestoreDBClusterFromSnapshot' {..} = _salt `Prelude.hashWithSalt` availabilityZones `Prelude.hashWithSalt` dbSubnetGroupName `Prelude.hashWithSalt` deletionProtection `Prelude.hashWithSalt` enableCloudwatchLogsExports `Prelude.hashWithSalt` engineVersion `Prelude.hashWithSalt` kmsKeyId `Prelude.hashWithSalt` port `Prelude.hashWithSalt` tags `Prelude.hashWithSalt` vpcSecurityGroupIds `Prelude.hashWithSalt` dbClusterIdentifier `Prelude.hashWithSalt` snapshotIdentifier `Prelude.hashWithSalt` engine instance Prelude.NFData RestoreDBClusterFromSnapshot where rnf RestoreDBClusterFromSnapshot' {..} = Prelude.rnf availabilityZones `Prelude.seq` Prelude.rnf dbSubnetGroupName `Prelude.seq` Prelude.rnf deletionProtection `Prelude.seq` Prelude.rnf enableCloudwatchLogsExports `Prelude.seq` Prelude.rnf engineVersion `Prelude.seq` Prelude.rnf kmsKeyId `Prelude.seq` Prelude.rnf port `Prelude.seq` Prelude.rnf tags `Prelude.seq` Prelude.rnf vpcSecurityGroupIds `Prelude.seq` Prelude.rnf dbClusterIdentifier `Prelude.seq` Prelude.rnf snapshotIdentifier `Prelude.seq` Prelude.rnf engine instance Data.ToHeaders RestoreDBClusterFromSnapshot where toHeaders = Prelude.const Prelude.mempty instance Data.ToPath RestoreDBClusterFromSnapshot where toPath = Prelude.const "/" instance Data.ToQuery RestoreDBClusterFromSnapshot where toQuery RestoreDBClusterFromSnapshot' {..} = Prelude.mconcat [ "Action" Data.=: ( "RestoreDBClusterFromSnapshot" :: Prelude.ByteString ), "Version" Data.=: ("2014-10-31" :: Prelude.ByteString), "AvailabilityZones" Data.=: Data.toQuery ( Data.toQueryList "AvailabilityZone" Prelude.<$> availabilityZones ), "DBSubnetGroupName" Data.=: dbSubnetGroupName, "DeletionProtection" Data.=: deletionProtection, "EnableCloudwatchLogsExports" Data.=: Data.toQuery ( Data.toQueryList "member" Prelude.<$> enableCloudwatchLogsExports ), "EngineVersion" Data.=: engineVersion, "KmsKeyId" Data.=: kmsKeyId, "Port" Data.=: port, "Tags" Data.=: Data.toQuery (Data.toQueryList "Tag" Prelude.<$> tags), "VpcSecurityGroupIds" Data.=: Data.toQuery ( Data.toQueryList "VpcSecurityGroupId" Prelude.<$> vpcSecurityGroupIds ), "DBClusterIdentifier" Data.=: dbClusterIdentifier, "SnapshotIdentifier" Data.=: snapshotIdentifier, "Engine" Data.=: engine ] -- | /See:/ 'newRestoreDBClusterFromSnapshotResponse' smart constructor. data RestoreDBClusterFromSnapshotResponse = RestoreDBClusterFromSnapshotResponse' { dbCluster :: Prelude.Maybe DBCluster, -- | The response's http status code. httpStatus :: Prelude.Int } deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) -- | -- Create a value of 'RestoreDBClusterFromSnapshotResponse' with all optional fields omitted. -- -- Use or to modify other optional fields. -- -- The following record fields are available, with the corresponding lenses provided -- for backwards compatibility: -- -- 'dbCluster', 'restoreDBClusterFromSnapshotResponse_dbCluster' - Undocumented member. -- -- 'httpStatus', 'restoreDBClusterFromSnapshotResponse_httpStatus' - The response's http status code. newRestoreDBClusterFromSnapshotResponse :: -- | 'httpStatus' Prelude.Int -> RestoreDBClusterFromSnapshotResponse newRestoreDBClusterFromSnapshotResponse pHttpStatus_ = RestoreDBClusterFromSnapshotResponse' { dbCluster = Prelude.Nothing, httpStatus = pHttpStatus_ } -- | Undocumented member. restoreDBClusterFromSnapshotResponse_dbCluster :: Lens.Lens' RestoreDBClusterFromSnapshotResponse (Prelude.Maybe DBCluster) restoreDBClusterFromSnapshotResponse_dbCluster = Lens.lens (\RestoreDBClusterFromSnapshotResponse' {dbCluster} -> dbCluster) (\s@RestoreDBClusterFromSnapshotResponse' {} a -> s {dbCluster = a} :: RestoreDBClusterFromSnapshotResponse) -- | The response's http status code. restoreDBClusterFromSnapshotResponse_httpStatus :: Lens.Lens' RestoreDBClusterFromSnapshotResponse Prelude.Int restoreDBClusterFromSnapshotResponse_httpStatus = Lens.lens (\RestoreDBClusterFromSnapshotResponse' {httpStatus} -> httpStatus) (\s@RestoreDBClusterFromSnapshotResponse' {} a -> s {httpStatus = a} :: RestoreDBClusterFromSnapshotResponse) instance Prelude.NFData RestoreDBClusterFromSnapshotResponse where rnf RestoreDBClusterFromSnapshotResponse' {..} = Prelude.rnf dbCluster `Prelude.seq` Prelude.rnf httpStatus