From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Tue, 30 May 2006 08:04:50 +0000 (+0000)
Subject: ported to the latest ocaml-http API
X-Git-Tag: 0.4.95@7852~1393
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=f7fe230ee39d765ec341af32a719eb564ce9a937;hp=6e4e1c55cb1d3d5f8ef6d607263647bf4e789458;p=helm.git

ported to the latest ocaml-http API
---

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