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

bugfix: fix wrong signature of CCHashtbl.Make.{keys,values}_list

Browse source
This commit is contained in:
Simon Cruanes 2016-02-21 17:16:22 +01:00
parent 34b1a4f9ae
commit 822a6d806c
2 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/core/CCHashtbl.ml
View file

@ -144,11 +144,11 @@ module type S = sig
val values : 'a t -> 'a sequence val values : 'a t -> 'a sequence
(** Iterate on values in the table *) (** Iterate on values in the table *)
val keys_list : ('a, 'b) Hashtbl.t -> 'a list val keys_list : _ t -> key list
(** [keys t] is the list of keys in [t]. (** [keys t] is the list of keys in [t].
@since 0.8 *) @since 0.8 *)
val values_list : ('a, 'b) Hashtbl.t -> 'b list val values_list : 'a t -> 'a list
(** [values t] is the list of values in [t]. (** [values t] is the list of values in [t].
@since 0.8 *) @since 0.8 *)
@ -234,8 +234,8 @@ module Make(X : Hashtbl.HashedType)
let values tbl k = iter (fun _ v -> k v) tbl let values tbl k = iter (fun _ v -> k v) tbl
let keys_list tbl = Hashtbl.fold (fun k _ a -> k::a) tbl [] let keys_list tbl = fold (fun k _ a -> k::a) tbl []
let values_list tbl = Hashtbl.fold (fun _ v a -> v::a) tbl [] let values_list tbl = fold (fun _ v a -> v::a) tbl []
let map_list f h = let map_list f h =
fold fold

4
src/core/CCHashtbl.mli
View file

@ -120,11 +120,11 @@ module type S = sig
val values : 'a t -> 'a sequence val values : 'a t -> 'a sequence
(** Iterate on values in the table *) (** Iterate on values in the table *)
val keys_list : ('a, 'b) Hashtbl.t -> 'a list val keys_list : _ t -> key list
(** [keys t] is the list of keys in [t]. (** [keys t] is the list of keys in [t].
@since 0.8 *) @since 0.8 *)
val values_list : ('a, 'b) Hashtbl.t -> 'b list val values_list : 'a t -> 'a list
(** [values t] is the list of values in [t]. (** [values t] is the list of values in [t].
@since 0.8 *) @since 0.8 *)