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

fix warnigns for CCOption

Browse source
This commit is contained in:
Simon Cruanes 2021-12-02 11:46:41 -05:00
parent bee23722ea
commit cea6647c3c
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 1 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/core/CCOption.ml
View file

@ -237,8 +237,6 @@ let to_iter o k = match o with
| None -> () | None -> ()
| Some x -> k x | Some x -> k x
let to_seq = to_iter
let to_seq o () = match o with let to_seq o () = match o with
| None -> Seq.Nil | None -> Seq.Nil
| Some x -> Seq.Cons (x, Seq.empty) | Some x -> Seq.Cons (x, Seq.empty)

17
src/core/CCOption.mli
View file

@ -45,9 +45,6 @@ val none : 'a t
(** Alias to {!None}. (** Alias to {!None}.
@since 3.5 *) @since 3.5 *)
val (>|=) : 'a t -> ('a -> 'b) -> 'b t
(** [o >|= f] is the infix version of {!map}. *)
val flat_map : ('a -> 'b t) -> 'a t -> 'b t val flat_map : ('a -> 'b t) -> 'a t -> 'b t
(** [flat_map f o] is equivalent to {!map} followed by {!flatten}. (** [flat_map f o] is equivalent to {!map} followed by {!flatten}.
Flip version of {!>>=}. *) Flip version of {!>>=}. *)
@ -57,9 +54,6 @@ val bind : 'a t -> ('a -> 'b t) -> 'b t
Monadic bind. Monadic bind.
@since 3.0 *) @since 3.0 *)
val (>>=) : 'a t -> ('a -> 'b t) -> 'b t
(** [o >>= f] is the infix version of {!bind}. *)
val map2 : ('a -> 'b -> 'c) -> 'a t -> 'b t -> 'c t val map2 : ('a -> 'b -> 'c) -> 'a t -> 'b t -> 'c t
(** [map2 f o1 o2] maps ['a option] and ['b option] to a ['c option] using [f]. *) (** [map2 f o1 o2] maps ['a option] and ['b option] to a ['c option] using [f]. *)
@ -135,12 +129,6 @@ val wrap2 : ?handler:(exn -> bool) -> ('a -> 'b -> 'c) -> 'a -> 'b -> 'c option
val pure : 'a -> 'a t val pure : 'a -> 'a t
(** [pure x] is an alias to {!return}. *) (** [pure x] is an alias to {!return}. *)
val (<*>) : ('a -> 'b) t -> 'a t -> 'b t
(** [f <*> (Some x)] returns [Some (f x)] and [f <*> None] returns [None]. *)
val (<$>) : ('a -> 'b) -> 'a t -> 'b t
(** [f <$> o] is like [map f o]. *)
(** {2 Alternatives} *) (** {2 Alternatives} *)
val or_ : else_:('a t) -> 'a t -> 'a t val or_ : else_:('a t) -> 'a t -> 'a t
@ -151,9 +139,6 @@ val or_lazy : else_:(unit -> 'a t) -> 'a t -> 'a t
(** [or_lazy ~else_ o] is [o] if [o] is [Some _], [else_ ()] if [o] is [None]. (** [or_lazy ~else_ o] is [o] if [o] is [Some _], [else_ ()] if [o] is [None].
@since 1.2 *) @since 1.2 *)
val (<+>) : 'a t -> 'a t -> 'a t
(** [o1 <+> o2] is [o1] if [o1] is [Some _], [o2] if [o1] is [None]. *)
val choice : 'a t list -> 'a t val choice : 'a t list -> 'a t
(** [choice lo] returns the first non-[None] element of the list [lo], or [None]. *) (** [choice lo] returns the first non-[None] element of the list [lo], or [None]. *)
@ -235,7 +220,7 @@ val choice_seq : 'a t Seq.t -> 'a t
val to_gen : 'a t -> 'a gen val to_gen : 'a t -> 'a gen
(** [to_gen o] is [o] as a [gen]. [Some x] is the singleton [gen] containing [x] (** [to_gen o] is [o] as a [gen]. [Some x] is the singleton [gen] containing [x]
and [None] is the empty [gen]. *) and [None] is the empty [gen]. *)
val to_seq : 'a t -> 'a Seq.t val to_seq : 'a t -> 'a Seq.t
(** [to_seq o] is [o] as a sequence [Seq.t]. [Some x] is the singleton sequence containing [x] (** [to_seq o] is [o] as a sequence [Seq.t]. [Some x] is the singleton sequence containing [x]
and [None] is the empty sequence. and [None] is the empty sequence.