sig
  type reason = [ `MissingOnStart | `Unknown of int ]
  type t = {
    old_src_path : string option;
    new_src_path : string option;
    dev_alias : string option;
    reason : Libvirt.Event.Disk_change.reason;
  }
  val to_string : Libvirt.Event.Disk_change.t -> string
end