matthieu
/
dune
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Usexp: Properly quote atoms when pretty printing

This commit is contained in:
Christophe Troestler 2018-02-06 21:15:35 +01:00
parent 8e9ec4a52a
commit b48a9fec53
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/usexp/usexp.ml
View File

@ -132,12 +132,12 @@ let pp_print_atom ppf ~serialize s =
match split_string s ~on:'\n' with
| [] -> Format.pp_print_string ppf (serialize s)
| first :: rest ->
Format.fprintf ppf "@[<hv 1>\"@{<atom>%s" (serialize first);
Format.fprintf ppf "@[<hv 1>\"@{<atom>%s" (Atom.escaped first);
List.iter rest ~f:(fun s ->
Format.fprintf ppf "@,\\n%s" (serialize s));
Format.fprintf ppf "@,\\n%s" (Atom.escaped s));
Format.fprintf ppf "@}\"@]"
end else
Format.fprintf ppf "%S" (serialize s)
Format.pp_print_string ppf (serialize s)
let rec pp_split_strings ppf = function
| Atom s ->