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