X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fpxp%2FpxpUrlResolver.ml;h=81daaf7394f3c41288bbff25a693070112fbe573;hb=acf29bdbdcdc6ad8c2d9d27e8a47500981b605cd;hp=ec94b4e5ee4d2c7e6a4b46fd57acebd1fd7fa7d9;hpb=cc6e7ad571d40a88686427bd75e0fa38c0fa120b;p=helm.git diff --git a/helm/ocaml/pxp/pxpUrlResolver.ml b/helm/ocaml/pxp/pxpUrlResolver.ml index ec94b4e5e..81daaf739 100644 --- a/helm/ocaml/pxp/pxpUrlResolver.ml +++ b/helm/ocaml/pxp/pxpUrlResolver.ml @@ -28,14 +28,14 @@ exception HttpClientError of string * string;; (* reason, uri *) let send cmd = try - ignore (Http_client.http_get cmd) + ignore (Http_user_agent.get cmd) with e -> raise (HttpClientError (Printexc.to_string e, cmd)) ;; let get uri = try - Http_client.http_get uri + Http_user_agent.get uri with e -> raise (HttpClientError (Printexc.to_string e, uri)) ;;