Use absolute paths for lib paths in utop

This makes $ jbuilder utop usable from sub directories
2017-11-25 23:25:26 +08:00 · 2017-11-25 23:25:26 +08:00 · 7a30bbf8ea
parent ce0ecaf9e0
commit 7a30bbf8ea
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_absolute_filename p)
    ) fmt
  in
  Format.fprintf fmt "@[<v 2>Clflags.include_dirs :=@ [ %a@ ]@];@."