aboutsummaryrefslogtreecommitdiffhomepage
path: root/lib/option.mli
diff options
context:
space:
mode:
Diffstat (limited to 'lib/option.mli')
-rw-r--r--lib/option.mli3
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/option.mli b/lib/option.mli
index 0b50c588b..d390edb63 100644
--- a/lib/option.mli
+++ b/lib/option.mli
@@ -28,6 +28,9 @@ val is_empty : 'a option -> bool
[f] is called. Otherwise it returns [false]. *)
val equal : ('a -> 'a -> bool) -> 'a option -> 'a option -> bool
+(** Same as [equal], but with comparison. *)
+val compare : ('a -> 'a -> int) -> 'a option -> 'a option -> int
+
(** [get x] returns [y] where [x] is [Some y]. It raises IsNone
if [x] equals [None]. *)
val get : 'a option -> 'a