Output both stdout and stderr of a process on errors.

Not all programs honor the stderr convention.
PataphysicalSociety · Oct 6, 2019 · ec76553 · ec76553
1 parent bdadcea
commit ec76553
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/utils.ml b/src/utils.ml
@@ -27,7 +27,7 @@ let get_program_output ?(input=None) command env_array =
   let res = Unix.close_process_full (std_out, std_in, std_err) in
   match res with
   | Unix.WEXITED 0 -> Ok output
-  | _ -> Error (Printf.sprintf "Failed to execute \"%s\": %s" command err)
+  | _ -> Error (Printf.sprintf "Failed to execute \"%s\": %s%s" command output err)
 
 (** Exception-safe list tail function that assumes that empty list's
     tail is an empty list. Used for breadcrumbs. *)