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