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

ZACK: ported to the latest ocaml-http API
---

diff --git a/daemons/rdfly/rdfly.ml b/daemons/rdfly/rdfly.ml
index 18c2e1587..54c87b8d8 100644
--- a/daemons/rdfly/rdfly.ml
+++ b/daemons/rdfly/rdfly.ml
@@ -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