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