Module Libvirt.Event.Block_job


module Block_job: sig .. end

type ty = [ `Commit | `Copy | `KnownUnknown | `Pull | `Unknown of int ] 
type status = [ `Cancelled | `Completed | `Failed | `Ready | `Unknown of int ] 

type t = {
   disk : string option; (*fully-qualified name of the affected disk*)
   ty : ty; (*type of block job*)
   status : status; (*final status of the operation*)
}
val to_string : t -> string