diff options
Diffstat (limited to 'src/util.ml')
| -rw-r--r-- | src/util.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/util.ml b/src/util.ml index 75732376..c89cc1ef 100644 --- a/src/util.ml +++ b/src/util.ml @@ -204,10 +204,8 @@ let option_bind f = function | Some(o) -> f o let rec option_binop f x y = match x, y with - | None, None -> None - | Some x, None -> Some x - | None, Some y -> Some y | Some x, Some y -> Some (f x y) + | _ -> None let changed2 f g x h y = match (g x, h y) with |