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

[helm.git] / helm / ocaml / getter / clientHTTP.ml

diff --git a/helm/ocaml/getter/clientHTTP.ml b/helm/ocaml/getter/clientHTTP.ml
index a7b36982c7d55a5d5edfc4ca8a52dde282a77ce0..12641147f3f1cf88c2c9aa7e4a5d729a06023a3a 100644 (file)
--- a/helm/ocaml/getter/clientHTTP.ml
+++ b/helm/ocaml/getter/clientHTTP.ml
@@ -27,14 +27,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))
 ;;