Add missing quotes when showing a command that failed

ocaml · Mar 24, 2023 · 232999b · 232999b
1 parent 6ef073f
commit 232999b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/opamProcess.ml b/src/core/opamProcess.ml
@@ -276,7 +276,7 @@ let make_info ?code ?signal
 
   List.iter (fun (k,v) -> print k v) metadata;
   print     "path"         cwd;
-  print     "command"      (String.concat " " (cmd :: args));
+  print     "command"      (String.concat " " (List.map Filename.quote (cmd :: args)));
   print_opt "exit-code"    (OpamStd.Option.map string_of_int code);
   print_opt "signalled"    (OpamStd.Option.map string_of_int signal);
   print_opt "env-file"     env_file;