sig
  type reason = [ `Close | `Open | `Unknown of int ]
  type t = {
    dev_alias : string option;
    reason : Libvirt.Event.Tray_change.reason;
  }
  val to_string : Libvirt.Event.Tray_change.t -> string
end