sig
type ty = [ `Commit | `Copy | `KnownUnknown | `Pull | `Unknown of int ]
type status =
[ `Cancelled | `Completed | `Failed | `Ready | `Unknown of int ]
type t = {
disk : string option;
ty : Libvirt.Event.Block_job.ty;
status : Libvirt.Event.Block_job.status;
}
val to_string : Libvirt.Event.Block_job.t -> string
end