X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fdaemons%2Frdfly%2Frdfly.ml;h=54c87b8d8a43a7481baee5833c25b54a87e41623;hb=6c3adf6a75239adaec4ece3e91fe7efba83f69a3;hp=18c2e1587dfe0e3c007678b5590abb9b381b3c62;hpb=a2dfb2a0f929852d05e38109a24b25b5cfa6585f;p=helm.git

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