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

fix: restore {to,of}_seq for compatibility purpose

Browse source
This commit is contained in:
Simon Cruanes 2019-01-29 13:26:16 -06:00
parent 2da8da173d
commit b325eae2d8
3 changed files with 40 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/Iter.ml
View file

@ -1190,6 +1190,12 @@ module Set = struct
val to_iter : t -> elt iter val to_iter : t -> elt iter
val to_list : t -> elt list val to_list : t -> elt list
val of_list : elt list -> t val of_list : elt list -> t
val of_seq : elt iter -> t
(** @deprecated use {!of_iter} instead *)
val to_seq : t -> elt iter
(** @deprecated use {!to_iter} instead *)
end end
(** Create an enriched Set module from the given one *) (** Create an enriched Set module from the given one *)
@ -1201,6 +1207,8 @@ module Set = struct
let to_iter = to_iter_ let to_iter = to_iter_
let of_iter = of_iter_ let of_iter = of_iter_
let to_seq = to_iter_
let of_seq = of_iter_
let of_list l = List.fold_left (fun set x -> add x set) empty l let of_list l = List.fold_left (fun set x -> add x set) empty l
let to_list = elements let to_list = elements
end end
@ -1223,6 +1231,12 @@ module Map = struct
val values : 'a t -> 'a iter val values : 'a t -> 'a iter
val to_list : 'a t -> (key * 'a) list val to_list : 'a t -> (key * 'a) list
val of_list : (key * 'a) list -> 'a t val of_list : (key * 'a) list -> 'a t
val to_seq : 'a t -> (key * 'a) iter
(** @deprecated use {!to_iter} instead *)
val of_seq : (key * 'a) iter -> 'a t
(** @deprecated use {!of_iter} instead *)
end end
(** Adapt a pre-existing Map module to make it iterator-aware *) (** Adapt a pre-existing Map module to make it iterator-aware *)
@ -1242,6 +1256,8 @@ module Map = struct
include M include M
let to_iter = to_iter_ let to_iter = to_iter_
let of_iter = of_iter_ let of_iter = of_iter_
let to_seq = to_iter_
let of_seq = of_iter_
end end
(** Create an enriched Map module, with iterator-aware functions *) (** Create an enriched Map module, with iterator-aware functions *)

12
src/Iter.mli
View file

@ -644,6 +644,12 @@ module Set : sig
val to_iter : t -> elt iter val to_iter : t -> elt iter
val to_list : t -> elt list val to_list : t -> elt list
val of_list : elt list -> t val of_list : elt list -> t
val of_seq : elt iter -> t
(** @deprecated use {!of_iter} instead *)
val to_seq : t -> elt iter
(** @deprecated use {!to_iter} instead *)
end end
(** Create an enriched Set module from the given one *) (** Create an enriched Set module from the given one *)
@ -664,6 +670,12 @@ module Map : sig
val values : 'a t -> 'a iter val values : 'a t -> 'a iter
val to_list : 'a t -> (key * 'a) list val to_list : 'a t -> (key * 'a) list
val of_list : (key * 'a) list -> 'a t val of_list : (key * 'a) list -> 'a t
val to_seq : 'a t -> (key * 'a) iter
(** @deprecated use {!to_iter} instead *)
val of_seq : (key * 'a) iter -> 'a t
(** @deprecated use {!of_iter} instead *)
end end
(** Adapt a pre-existing Map module to make it sequence-aware *) (** Adapt a pre-existing Map module to make it sequence-aware *)

12
src/IterLabels.mli
View file

@ -616,6 +616,12 @@ module Set : sig
val to_iter : t -> elt iter val to_iter : t -> elt iter
val to_list : t -> elt list val to_list : t -> elt list
val of_list : elt list -> t val of_list : elt list -> t
val of_seq : elt iter -> t
(** @deprecated use {!of_iter} instead *)
val to_seq : t -> elt iter
(** @deprecated use {!to_iter} instead *)
end end
(** Create an enriched Set module from the given one *) (** Create an enriched Set module from the given one *)
@ -636,6 +642,12 @@ module Map : sig
val values : 'a t -> 'a iter val values : 'a t -> 'a iter
val to_list : 'a t -> (key * 'a) list val to_list : 'a t -> (key * 'a) list
val of_list : (key * 'a) list -> 'a t val of_list : (key * 'a) list -> 'a t
val to_seq : 'a t -> (key * 'a) iter
(** @deprecated use {!to_iter} instead *)
val of_seq : (key * 'a) iter -> 'a t
(** @deprecated use {!of_iter} instead *)
end end
(** Adapt a pre-existing Map module to make it sequence-aware *) (** Adapt a pre-existing Map module to make it sequence-aware *)