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(pp): improve printing of hashtables

Browse source 
close #243
This commit is contained in:
Simon Cruanes 2019-12-14 14:25:38 -06:00
parent bcb90de435
commit faeae964fc
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/core/CCHashtbl.ml
View file

@ -129,13 +129,12 @@ module Poly = struct
let first = ref true in let first = ref true in
Hashtbl.iter Hashtbl.iter
(fun k v -> (fun k v ->
if !first then first := false else Format.pp_print_string fmt ", "; if !first then first := false else Format.fprintf fmt ",@ ";
pp_k fmt k; pp_k fmt k;
Format.pp_print_string fmt " -> "; Format.pp_print_string fmt " -> ";
pp_v fmt v; pp_v fmt v;
Format.pp_print_cut fmt ()
) m; ) m;
Format.fprintf fmt "}@]" Format.fprintf fmt "@,}@]"
end end
include Poly include Poly