simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2026-01-29 04:14:51 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

bugfix in hashtable printing

Browse source
This commit is contained in:
Simon Cruanes 2015-10-05 19:27:52 +02:00
parent 1f463c1e9c
commit 92510d2c70
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/core/CCHashtbl.ml
View file

@ -161,7 +161,7 @@ module Make(X : Hashtbl.HashedType) = struct
tbl tbl
let print pp_k pp_v fmt m = let print pp_k pp_v fmt m =
Format.pp_print_string fmt "@[<hov2>tbl {@,"; Format.fprintf fmt "@[<hov2>tbl {@,";
let first = ref true in let first = ref true in
iter iter
(fun k v -> (fun k v ->
@ -171,7 +171,7 @@ module Make(X : Hashtbl.HashedType) = struct
pp_v fmt v; pp_v fmt v;
Format.pp_print_cut fmt () Format.pp_print_cut fmt ()
) m; ) m;
Format.pp_print_string fmt "}@]" Format.fprintf fmt "}@]"
end end
(** {2 Default Table} *) (** {2 Default Table} *)