simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

style

Browse source
This commit is contained in:
Simon Cruanes 2021-06-26 23:51:06 -04:00
parent 61b9762269
commit 4db9d4eccb
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/CCSexp.ml
View file

@ -111,8 +111,8 @@ module Make(Sexp : SEXP) = struct
let rec pp_noindent fmt t = let rec pp_noindent fmt t =
Sexp.match_ t Sexp.match_ t
~atom:(fun s -> ~atom:(fun s ->
if _must_escape s then Format.fprintf fmt "\"%s\"" (String.escaped s) if _must_escape s then Format.fprintf fmt "\"%s\"" (String.escaped s)
else Format.pp_print_string fmt s) else Format.pp_print_string fmt s)
~list:(function ~list:(function
| [] -> Format.pp_print_string fmt "()" | [] -> Format.pp_print_string fmt "()"
| [x] -> Format.fprintf fmt "(%a)" pp_noindent x | [x] -> Format.fprintf fmt "(%a)" pp_noindent x