sig type t = Normal | Low val normal : Priority.t val low : Priority.t val sexp_of_t : Priority.t -> Sexplib.Sexp.t end