fixup! feat(ord): add poly, deprecate compare

This commit is contained in:
Simon Cruanes 2021-06-06 17:39:09 -04:00
parent 7081a411c8
commit 294fce8634

View file

@ -8,6 +8,7 @@ open CCShims_
type 'a t = 'a -> 'a -> int type 'a t = 'a -> 'a -> int
(** Comparison (total ordering) between two elements, that returns an int *) (** Comparison (total ordering) between two elements, that returns an int *)
let poly = Stdlib.compare
let compare = Stdlib.compare let compare = Stdlib.compare
let opp f x y = - (f x y) let opp f x y = - (f x y)