CreateClusterSnapshotResult (p.awso.0.9.1.doc.awso.redshift.Awso_redshift.Values.CreateClusterSnapshotResult)

Sourcetype createClusterSnapshotResult = {

snapshot : Snapshot.t option;

}

Sourceand responseMetaData = unit

Sourceand t = {

createClusterSnapshotResult : createClusterSnapshotResult;
responseMetaData : responseMetaData;

}

Sourcetype error = [

| `ClusterNotFoundFault of ClusterNotFoundFault.t
| `ClusterSnapshotAlreadyExistsFault of ClusterSnapshotAlreadyExistsFault.t
| `ClusterSnapshotQuotaExceededFault of ClusterSnapshotQuotaExceededFault.t
| `InvalidClusterStateFault of InvalidClusterStateFault.t
| `InvalidRetentionPeriodFault of InvalidRetentionPeriodFault.t
| `InvalidTagFault of InvalidTagFault.t
| `TagLimitExceededFault of TagLimitExceededFault.t
| `Unknown_operation_error of string * string option

]

Sourceval context_ : string

Sourceval make : ?snapshot:??? -> unit -> t

Source

val error_of_json : 
  string ->
  Yojson.Safe.t ->
  [> `ClusterNotFoundFault of unit
  | `ClusterSnapshotAlreadyExistsFault of unit
  | `ClusterSnapshotQuotaExceededFault of unit
  | `InvalidClusterStateFault of unit
  | `InvalidRetentionPeriodFault of unit
  | `InvalidTagFault of unit
  | `TagLimitExceededFault of unit
  | `Unknown_operation_error of string * string option ]

Source

val error_of_xml : 
  string ->
  Awso.Xml.t ->
  [> `ClusterNotFoundFault of unit
  | `ClusterSnapshotAlreadyExistsFault of unit
  | `ClusterSnapshotQuotaExceededFault of unit
  | `InvalidClusterStateFault of unit
  | `InvalidRetentionPeriodFault of unit
  | `InvalidTagFault of unit
  | `TagLimitExceededFault of unit
  | `Unknown_operation_error of string * string option ]

Sourceval error_to_json : error -> Yojson.Safe.t

Source

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 ]

Sourceval to_query : t -> Awso.Client.Query.t

Sourceval of_xml : Awso.Xml.t -> t

Sourceval of_string : string -> t

Sourceval of_json : Yojson.Safe.t -> t

Sourceval to_json : t -> Yojson.Safe.t