Values.SearchStatusSourceThe current status of an archive search job.
type nonrec t = {submissionTimestamp : Timestamp.t option;The timestamp of when the search was submitted.
*)completionTimestamp : Timestamp.t option;The timestamp of when the search completed (if finished).
*)state : SearchState.t option;The current state of the search job.
*)errorMessage : ErrorMessage.t option;An error message if the search failed.
*)}val make :
?submissionTimestamp:Timestamp.t ->
?completionTimestamp:Timestamp.t ->
?state:SearchState.t ->
?errorMessage:ErrorMessage.t ->
unit ->
tval to_value :
t ->
[> `Structure of
(string
* [> `Enum of string
| `String of ErrorMessage.t
| `Timestamp of Timestamp.t ])
list ]