| Internal_error msg ->
log_failure msg;
return_html_internal_error ("internal_error", msg) msg outchan
- | Shell.Subprocess_error l ->
- let msgs =
- List.map
- (fun (cmd, code) ->
- sprintf "Command '%s' returned %s" cmd (string_of_proc_status code))
- l
- in
- let msg = String.concat ", " msgs in
- log_failure msg;
- return_html_internal_error ("subprocess_error", msg)
- (String.concat "<br />\n" msgs) outchan
| exn ->
let msg = "uncaught exception: " ^ (Printexc.to_string exn) in
(match exn with