simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix bug in CCOpt.filter (close #100)

Browse source
This commit is contained in:
Simon Cruanes 2017-03-03 14:15:11 +01:00
parent 5713183a3a
commit 6df16975ca
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/core/CCOpt.ml
View file

@ -67,7 +67,13 @@ let map2 f o1 o2 = match o1, o2 with
let filter p = function let filter p = function
| Some x as o when p x -> o | Some x as o when p x -> o
| o -> o | _ -> None
(*$=
None (filter ((=) 0) (Some 1))
(Some 0) (filter ((=) 0) (Some 0))
None (filter (fun _ -> true) None)
*)
let if_ p x = if p x then Some x else None let if_ p x = if p x then Some x else None