module Ordering:sig..end
Ordering is intended to make code that matches on the result of a comparison
more concise and easier to read. For example, one would write:
match Ordering.of_int (compare x y) with
| Less -> ...
| Equal -> ...
| Greater -> ...
rather than:
let r = compare x y in
if r < 0 then
...
else if r = 0 then
...
else
...
type t =
| |
Less |
| |
Equal |
| |
Greater |
val of_int : int -> tof_int n is:
Less if n < 0
Equal if n = 0
Greater if n > 0
module Export:sig..end
val t_of_sexp : Sexplib.Sexp.t -> tval sexp_of_t : t -> Sexplib.Sexp.tval compare : t -> t -> intval bin_t : t Bin_prot.Type_class.tval bin_read_t : t Bin_prot.Read_ml.readerval bin_read_t_ : t Bin_prot.Unsafe_read_c.readerval bin_read_t__ : (int -> t) Bin_prot.Unsafe_read_c.readerval bin_reader_t : t Bin_prot.Type_class.readerval bin_size_t : t Bin_prot.Size.sizerval bin_write_t : t Bin_prot.Write_ml.writerval bin_write_t_ : t Bin_prot.Unsafe_write_c.writerval bin_writer_t : t Bin_prot.Type_class.writerof_int n is:
Less if n < 0
Equal if n = 0
Greater if n > 0