type t
=
|
Infinite
Nan
Normal
Subnormal
Zero
include sig ... end
val t_of_sexp : Base__.Sexplib.Sexp.t ‑> t
val sexp_of_t : t ‑> Base__.Sexplib.Sexp.t
val all : t list
val compare : t ‑> t ‑> int
include Stringable.S with type t := t
val of_string : string ‑> t
val to_string : t ‑> string