From f7fe230ee39d765ec341af32a719eb564ce9a937 Mon Sep 17 00:00:00 2001 From: Claudio Sacerdoti Coen Date: Tue, 30 May 2006 08:04:50 +0000 Subject: [PATCH] ported to the latest ocaml-http API --- daemons/uwobo/uwobo.ml | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/daemons/uwobo/uwobo.ml b/daemons/uwobo/uwobo.ml index 9553177d7..7b8a20954 100644 --- a/daemons/uwobo/uwobo.ml +++ b/daemons/uwobo/uwobo.ml @@ -807,8 +807,11 @@ let main () = debug_print (sprintf "Starting HTTP daemon on port %d ..." port); (* next invocation doesn't return, process will keep on serving HTTP requests until it will get killed by father *) - Http_daemon.start'~port ~mode:`Fork - (callback ~syslogger ~styles ~cmd_pipe ~res_pipe ()) + let d_spec = Http_daemon.daemon_spec + ~port ~mode:`Fork + ~callback:(callback ~syslogger ~styles ~cmd_pipe ~res_pipe ()) () + in + Http_daemon.main d_spec | _ (* < 0 *) -> (* fork failed :-((( *) failwith "Can't fork :-(" done -- 2.39.2