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

fix small uglyness in Map.print

Browse source
This commit is contained in:
Simon Cruanes 2015-10-26 17:21:01 +01:00
parent 80f36d20eb
commit 5a2c7f3f60
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/core/CCMap.ml
View file

@ -105,11 +105,13 @@ module Make(O : Map.OrderedType) = struct
let first = ref true in let first = ref true in
iter iter
(fun k v -> (fun k v ->
if !first then first := false else Format.pp_print_string fmt sep; if !first then first := false else (
Format.pp_print_string fmt sep;
Format.pp_print_cut fmt ()
);
pp_k fmt k; pp_k fmt k;
Format.pp_print_string fmt arrow; Format.pp_print_string fmt arrow;
pp_v fmt v; pp_v fmt v;
Format.pp_print_cut fmt ()
) m; ) m;
Format.pp_print_string fmt stop Format.pp_print_string fmt stop
end end