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

small bugfix in CCSexpM.print

Browse source
This commit is contained in:
Simon Cruanes 2015-10-07 16:28:22 +02:00
parent 92510d2c70
commit 164d71380a
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/sexp/CCSexpM.ml
View file

@ -93,13 +93,11 @@ let rec print fmt t = match t with
| `List [] -> Format.pp_print_string fmt "()" | `List [] -> Format.pp_print_string fmt "()"
| `List [x] -> Format.fprintf fmt "@[<hov2>(%a)@]" print x | `List [x] -> Format.fprintf fmt "@[<hov2>(%a)@]" print x
| `List l -> | `List l ->
Format.open_hovbox 2; Format.fprintf fmt "@[<hov2>(";
Format.pp_print_char fmt '(';
List.iteri List.iteri
(fun i t' -> (if i > 0 then Format.fprintf fmt "@ "; print fmt t')) (fun i t' -> (if i > 0 then Format.fprintf fmt "@ "; print fmt t'))
l; l;
Format.pp_print_char fmt ')'; Format.fprintf fmt ")@]"
Format.close_box ()
let rec print_noindent fmt t = match t with let rec print_noindent fmt t = match t with
| `Atom s when _must_escape s -> Format.fprintf fmt "\"%s\"" (String.escaped s) | `Atom s when _must_escape s -> Format.fprintf fmt "\"%s\"" (String.escaped s)