ported to ocaml-http 0.0.10 (renamed Http_client -> Http_user_agent)

[helm.git] / helm / ocaml / pxp / pxpUrlResolver.ml

diff --git a/helm/ocaml/pxp/pxpUrlResolver.ml b/helm/ocaml/pxp/pxpUrlResolver.ml
index ec94b4e5ee4d2c7e6a4b46fd57acebd1fd7fa7d9..81daaf7394f3c41288bbff25a693070112fbe573 100644 (file)
--- 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))
 ;;