diff options
Diffstat (limited to 'src/util.mli')
| -rw-r--r-- | src/util.mli | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/util.mli b/src/util.mli index aa442ada..f1182c61 100644 --- a/src/util.mli +++ b/src/util.mli @@ -77,10 +77,8 @@ val option_bind : ('a -> 'b option) -> 'a option -> 'b option whereas [option_default d (Some x)] returns [x]. *) val option_default : 'a -> 'a option -> 'a -(** [option_binop f None None] returns [None], while - [option_binop f (Some x) None] and [option_binop f None (Some x)] - return [Some x], and [option_binop f (Some x) (Some y)] returns - [Some (f x y)] *) +(** [option_binop f (Some x) (Some y)] returns [Some (f x y)], + and in all other cases, [option_binop] returns [None]. *) val option_binop : ('a -> 'a -> 'a) -> 'a option -> 'a option -> 'a option (** [option_get_exn exn None] throws the exception [exn], |