X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fgetter%2FclientHTTP.ml;h=a7b36982c7d55a5d5edfc4ca8a52dde282a77ce0;hb=fd648e40eb2c9c5b29cfa4408459511a74898d1d;hp=2444bded35afc1eab918c5a118b477f4a8be5bd4;hpb=bac72fcaa876137ab7a5630e0c1badc2a627dce8;p=helm.git

diff --git a/helm/ocaml/getter/clientHTTP.ml b/helm/ocaml/getter/clientHTTP.ml
index 2444bded3..a7b36982c 100644
--- a/helm/ocaml/getter/clientHTTP.ml
+++ b/helm/ocaml/getter/clientHTTP.ml
@@ -23,20 +23,20 @@
  * http://cs.unibo.it/helm/.
  *)
 
-exception HttpClientError of exn * string;;
+exception HttpClientError of string * string;;	(* reason, uri *)
 
 let send cmd =
  try
-  ignore (Http_client.Convenience.http_get cmd)
+  ignore (Http_client.http_get cmd)
  with
-  e -> raise (HttpClientError (e,cmd))
+  e -> raise (HttpClientError (Printexc.to_string e, cmd))
 ;;
 
 let get uri =
  try
-  Http_client.Convenience.http_get uri
+  Http_client.http_get uri
  with
-  e -> raise (HttpClientError (e,uri))
+  e -> raise (HttpClientError (Printexc.to_string e, uri))
 ;;
 
 let get_and_save uri dest_filename =