Values.CopyClusterSnapshotResultSourceCopies the specified automated cluster snapshot to a new manual cluster snapshot. The source must be an automated snapshot and it must be in the available state. When you delete a cluster, Amazon Redshift deletes any automated snapshots of the cluster. Also, when the retention period of the snapshot expires, Amazon Redshift automatically deletes it. If you want to keep an automated snapshot for a longer period, you can make a manual copy of the snapshot. Manual snapshots are retained until you delete them. For more information about working with snapshots, go to Amazon Redshift Snapshots in the Amazon Redshift Cluster Management Guide.
and t = {copyClusterSnapshotResult : copyClusterSnapshotResult;responseMetaData : responseMetaData;}type error = [ | `ClusterNotFoundFault of ClusterNotFoundFault.t| `ClusterSnapshotAlreadyExistsFault of ClusterSnapshotAlreadyExistsFault.t| `ClusterSnapshotNotFoundFault of ClusterSnapshotNotFoundFault.t| `ClusterSnapshotQuotaExceededFault of ClusterSnapshotQuotaExceededFault.t| `InvalidClusterSnapshotStateFault of InvalidClusterSnapshotStateFault.t| `InvalidRetentionPeriodFault of InvalidRetentionPeriodFault.t| `Unknown_operation_error of string * string option ]val error_of_json :
string ->
Yojson.Safe.t ->
[> `ClusterNotFoundFault of unit
| `ClusterSnapshotAlreadyExistsFault of unit
| `ClusterSnapshotNotFoundFault of unit
| `ClusterSnapshotQuotaExceededFault of unit
| `InvalidClusterSnapshotStateFault of unit
| `InvalidRetentionPeriodFault of unit
| `Unknown_operation_error of string * string option ]val error_of_xml :
string ->
Awso.Xml.t ->
[> `ClusterNotFoundFault of unit
| `ClusterSnapshotAlreadyExistsFault of unit
| `ClusterSnapshotNotFoundFault of unit
| `ClusterSnapshotQuotaExceededFault of unit
| `InvalidClusterSnapshotStateFault of unit
| `InvalidRetentionPeriodFault of unit
| `Unknown_operation_error of string * string option ]val to_value :
t ->
[> `Structure of
(string
* [> `Structure of
(string
* [> `Structure of
(string
* [> `Boolean of Boolean.t
| `Double of Double.t
| `Integer of Integer.t
| `List of
[> `String of String_.t
| `Structure of
(string * [> `String of String_.t ]) list ]
list
| `Long of Long.t
| `String of String_.t
| `Timestamp of TStamp.t ])
list ])
list ])
list ]