UsageLimit (p.awso.0.9.1.doc.awso.redshift.Awso

Sourcetype createUsageLimitResult = {

usageLimitId : String_.t option;
(*
The identifier of the usage limit.
*)
clusterIdentifier : String_.t option;
(*
The identifier of the cluster with a usage limit.
*)
featureType : UsageLimitFeatureType.t option;
(*
The Amazon Redshift feature to which the limit applies.
*)
limitType : UsageLimitLimitType.t option;
(*
The type of limit. Depending on the feature type, this can be based on a time duration or data size.
*)
amount : Long.t option;
(*
The limit amount. If time-based, this amount is in minutes. If data-based, this amount is in terabytes (TB).
*)
period : UsageLimitPeriod.t option;
(*
The time period that the amount applies to. A weekly period begins on Sunday. The default is monthly.
*)
breachAction : UsageLimitBreachAction.t option;
(*
The action that Amazon Redshift takes when the limit is reached. Possible values are: log - To log an event in a system table. The default is log. emit-metric - To emit CloudWatch metrics. disable - To disable the feature until the next usage period begins.
*)
tags : TagList.t option;
(*
A list of tag instances.
*)

}

Sourceand responseMetaData = unit

Sourceand t = {

createUsageLimitResult : createUsageLimitResult;
responseMetaData : responseMetaData;

}

Sourcetype error = [

| `ClusterNotFoundFault of ClusterNotFoundFault.t
| `InvalidClusterStateFault of InvalidClusterStateFault.t
| `InvalidUsageLimitFault of InvalidUsageLimitFault.t
| `LimitExceededFault of LimitExceededFault.t
| `TagLimitExceededFault of TagLimitExceededFault.t
| `UnsupportedOperationFault of UnsupportedOperationFault.t
| `UsageLimitAlreadyExistsFault of UsageLimitAlreadyExistsFault.t
| `Unknown_operation_error of string * string option

]

Sourceval context_ : string

Source

val make : 
  ?usageLimitId:??? ->
  ?clusterIdentifier:??? ->
  ?featureType:??? ->
  ?limitType:??? ->
  ?amount:??? ->
  ?period:??? ->
  ?breachAction:??? ->
  ?tags:??? ->
  unit ->
  t

Source

val error_of_json : 
  string ->
  Yojson.Safe.t ->
  [> `ClusterNotFoundFault of unit
  | `InvalidClusterStateFault of unit
  | `InvalidUsageLimitFault of unit
  | `LimitExceededFault of unit
  | `TagLimitExceededFault of unit
  | `Unknown_operation_error of string * string option
  | `UnsupportedOperationFault of unit
  | `UsageLimitAlreadyExistsFault of unit ]

Source

val error_of_xml : 
  string ->
  Awso.Xml.t ->
  [> `ClusterNotFoundFault of unit
  | `InvalidClusterStateFault of unit
  | `InvalidUsageLimitFault of unit
  | `LimitExceededFault of unit
  | `TagLimitExceededFault of unit
  | `Unknown_operation_error of string * string option
  | `UnsupportedOperationFault of unit
  | `UsageLimitAlreadyExistsFault of unit ]

Sourceval error_to_json : error -> Yojson.Safe.t

Source

val to_value : 
  t ->
  [> `Structure of
       (string
        * [> `Structure of
               (string
                * [> `Enum of string
                  | `List of
                    [> `Structure of (string * [> `String of String_.t ]) list ]
                      list
                  | `Long of Long.t
                  | `String of String_.t ])
                 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