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