diff options
| author | Alasdair Armstrong | 2017-08-29 18:00:51 +0100 |
|---|---|---|
| committer | Alasdair Armstrong | 2017-08-29 18:00:51 +0100 |
| commit | 04c32956a50d2e0a2f62b02828e9b549854a2b8c (patch) | |
| tree | cbdaadcb1f11fa8c740378d7fa6a3e04b63f7802 /src/util.mli | |
| parent | 9cc9b5afff769b9185c6e6e4afad496d58d1a38d (diff) | |
| parent | 2300d45d6645faae3c00a183e80547c1a6cb9165 (diff) | |
Merge branch 'experiments' of https://bitbucket.org/Peter_Sewell/sail into experiments
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], |