diff options
| author | Thomas Bauereiss | 2017-08-29 17:09:29 +0100 |
|---|---|---|
| committer | Thomas Bauereiss | 2017-08-29 17:47:16 +0100 |
| commit | 80a65e821d52fcc414b50f33d0dff60f7a38bd5f (patch) | |
| tree | 5f7de081777da60b7f89f7917fe029eb4c0c61e8 /src/util.mli | |
| parent | c93ce2690e4090f4b3b6e5fa244aac9903008ded (diff) | |
Improve flow typing
Can now handle nexps such as (2**65 - 1). Uses big_ints for comparisons, and
keeps original nexps in the AST.
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], |