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