Module Types.RecordHandlerProgressInput
type t
=
{
bearer_token : Aws.BaseTypes.String.t;
operation_status : OperationStatus.t;
current_operation_status : OperationStatus.t option;
status_message : Aws.BaseTypes.String.t option;
error_code : HandlerErrorCode.t option;
resource_model : Aws.BaseTypes.String.t option;
client_request_token : Aws.BaseTypes.String.t option;
}
val make : bearer_token:Aws.BaseTypes.String.t -> operation_status:OperationStatus.t -> ?current_operation_status:OperationStatus.t -> ?status_message:Aws.BaseTypes.String.t -> ?error_code:HandlerErrorCode.t -> ?resource_model:Aws.BaseTypes.String.t -> ?client_request_token:Aws.BaseTypes.String.t -> unit -> t
val parse : Ezxmlm.nodes -> t option
val to_query : t -> Aws.Query.t
val to_json : t -> [> `Assoc of (string * Aws.Json.t) list ]
val of_json : Aws.Json.t -> t