Fix quoting of generated strings in utop.ml

It was broken in Windows
2017-09-22 02:04:57 +01:00 · 2017-09-22 02:04:57 +01:00 · dd3eaf2695
parent 157e4d6548
commit dd3eaf2695
1 changed files with 1 additions and 1 deletions
--- a/src/utop.ml
+++ b/src/utop.ml
@ -11,7 +11,7 @@ let pp_ml fmt include_dirs =
  let pp_include fmt =
    let pp_sep fmt () = Format.fprintf fmt "@ ; " in
    Format.pp_print_list ~pp_sep (fun fmt p ->
-      Format.fprintf fmt {|"%s"|} (Path.to_string p)
+      Format.fprintf fmt "%S" (Path.to_string p)
    ) fmt
  in
  Format.fprintf fmt "@[<v 2>Clflags.include_dirs :=@ [ %a@ ]@];@."