sig type reason = [ `Unknown of int ] type t = Libvirt.Event.PM_suspend_disk.reason val to_string : Libvirt.Event.PM_suspend_disk.t -> string end