X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fhttp_getter%2Fmain.ml;h=e4cae512c8df2a810e357f68db6842b5e6f86601;hb=e6b28085c97ae7b9bd3f3262b105f6b84f42b047;hp=33ca1ffabfd8bccafe0c3be43b66c55421bd705a;hpb=76000efbc771b53f15a502d558a5b7b0297c9c6b;p=helm.git

diff --git a/helm/http_getter/main.ml b/helm/http_getter/main.ml
index 33ca1ffab..e4cae512c 100644
--- a/helm/http_getter/main.ml
+++ b/helm/http_getter/main.ml
@@ -315,17 +315,6 @@ let callback (req: Http_types.request) outchan =
   | 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