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

CCopt.pure

Browse source
This commit is contained in:
Simon Cruanes 2014-06-28 04:06:58 +02:00
parent d36e8dd38e
commit 50cc9f8d2c
2 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
core/CCOpt.ml
View file

@ -64,6 +64,8 @@ let flat_map f o = match o with
| None -> None | None -> None
| Some x -> f x | Some x -> f x
let pure x = Some x
let (<*>) f x = match f, x with let (<*>) f x = match f, x with
| None, _ | None, _
| _, None -> None | _, None -> None

3
core/CCOpt.mli
View file

@ -68,6 +68,9 @@ val sequence_l : 'a t list -> 'a list t
(** {2 Applicative} *) (** {2 Applicative} *)
val pure : 'a -> 'a t
(** Alias to {!return} *)
val (<*>) : ('a -> 'b) t -> 'a t -> 'b t val (<*>) : ('a -> 'b) t -> 'a t -> 'b t
val (<$>) : ('a -> 'b) -> 'a t -> 'b t val (<$>) : ('a -> 'b) -> 'a t -> 'b t