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

Sourcetype authorizeSnapshotAccessResult = {

snapshot : Snapshot.t option;

}

Sourceand responseMetaData = unit

Sourceand t = {

authorizeSnapshotAccessResult : authorizeSnapshotAccessResult;
responseMetaData : responseMetaData;

}

Sourcetype error = [

| `AuthorizationAlreadyExistsFault of AuthorizationAlreadyExistsFault.t
| `AuthorizationQuotaExceededFault of AuthorizationQuotaExceededFault.t
| `ClusterSnapshotNotFoundFault of ClusterSnapshotNotFoundFault.t
| `DependentServiceRequestThrottlingFault of DependentServiceRequestThrottlingFault.t
| `InvalidClusterSnapshotStateFault of InvalidClusterSnapshotStateFault.t
| `LimitExceededFault of LimitExceededFault.t
| `UnsupportedOperationFault of UnsupportedOperationFault.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 ->
  [> `AuthorizationAlreadyExistsFault of unit
  | `AuthorizationQuotaExceededFault of unit
  | `ClusterSnapshotNotFoundFault of unit
  | `DependentServiceRequestThrottlingFault of unit
  | `InvalidClusterSnapshotStateFault of unit
  | `LimitExceededFault of unit
  | `Unknown_operation_error of string * string option
  | `UnsupportedOperationFault of unit ]

Source

val error_of_xml : 
  string ->
  Awso.Xml.t ->
  [> `AuthorizationAlreadyExistsFault of unit
  | `AuthorizationQuotaExceededFault of unit
  | `ClusterSnapshotNotFoundFault of unit
  | `DependentServiceRequestThrottlingFault of unit
  | `InvalidClusterSnapshotStateFault of unit
  | `LimitExceededFault of unit
  | `Unknown_operation_error of string * string option
  | `UnsupportedOperationFault of unit ]

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