mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-07 19:55:31 -05:00
bugfix in hashtable printing
This commit is contained in:
parent
1f463c1e9c
commit
92510d2c70
1 changed files with 2 additions and 2 deletions
|
|
@ -161,7 +161,7 @@ module Make(X : Hashtbl.HashedType) = struct
|
|||
tbl
|
||||
|
||||
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
|
||||
iter
|
||||
(fun k v ->
|
||||
|
|
@ -171,7 +171,7 @@ module Make(X : Hashtbl.HashedType) = struct
|
|||
pp_v fmt v;
|
||||
Format.pp_print_cut fmt ()
|
||||
) m;
|
||||
Format.pp_print_string fmt "}@]"
|
||||
Format.fprintf fmt "}@]"
|
||||
end
|
||||
|
||||
(** {2 Default Table} *)
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue