Permalink
Browse files

[install] improve the display by refixing the build commands which ar…

…e run by the corresponding package name and version
  • Loading branch information...
1 parent c918d82 commit df63f47ea062319fdc1d15e43bf9832e66b40387 @samoht samoht committed Jun 1, 2012
Showing with 3 additions and 1 deletion.
  1. +3 −1 src/client.ml
View
@@ -634,7 +634,9 @@ let proceed_tochange t nv_old nv =
let commands = List.map (List.map (substitute_string t))
(File.OPAM.build opam) in
let commands_s = List.map (fun cmd -> String.concat " " cmd) commands in
- Globals.msg "Build command: %s\n" (String.concat ";" commands_s);
+ Globals.msg "[%s] Build commands:\n %s\n"
+ (NV.to_string nv)
+ (String.concat "\n " commands_s);
let err = Dirname.exec ~add_to_path:[Path.C.bin t.compiler] p_build
commands in
if err = 0 then

0 comments on commit df63f47

Please sign in to comment.