From f405e161079f553f31138699b583f9000e48e401 Mon Sep 17 00:00:00 2001 From: Stefano Zacchiroli Date: Mon, 25 Oct 2004 22:16:56 +0000 Subject: [PATCH] ported to latest ocaml-http --- helm/uwobo/uwobo.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/helm/uwobo/uwobo.ml b/helm/uwobo/uwobo.ml index 4154dfb3d..d8341aeb6 100644 --- a/helm/uwobo/uwobo.ml +++ b/helm/uwobo/uwobo.ml @@ -254,7 +254,7 @@ let start_new_session cmd_pipe res_pipe outchan port logfile = (* Let's check that the port is free *) (try ignore - (Http_client.http_get + (Http_user_agent.get ("http://127.0.0.1:" ^ string_of_int port ^ "/help")) ; raise (Failure "Port already in use") with @@ -298,7 +298,7 @@ let start_new_session cmd_pipe res_pipe outchan port logfile = (* It can raise Failure "Connection refused" *) (try ignore - (Http_client.http_get + (Http_user_agent.get ("http://127.0.0.1:" ^ string_of_int port ^ "/help")) with Unix.Unix_error (Unix.ECONNREFUSED, _, _) -> raise (Failure "Connection refused")) -- 2.39.2