]> matita.cs.unibo.it Git - helm.git/commitdiff
ZACK: ported to the latest ocaml-http API
authorClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Tue, 30 May 2006 08:13:55 +0000 (08:13 +0000)
committerClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Tue, 30 May 2006 08:13:55 +0000 (08:13 +0000)
helm/software/daemons/rdfly/rdfly.ml

index 18c2e1587dfe0e3c007678b5590abb9b381b3c62..54c87b8d8a43a7481baee5833c25b54a87e41623 100644 (file)
@@ -188,8 +188,10 @@ let callback req ch =
 let main () =
   Sys.catch_break true;
   try
-    Http_daemon.start'
-      ~timeout:(Some 600) ~port:daemonport callback
+    let d_spec =
+      Http_daemon.daemon_spec ~timeout:(Some 600) ~port:daemonport ~callback ()
+    in
+    Http_daemon.main d_spec
   with Sys.Break -> ()
 in