X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fdaemons%2Frdfly%2Frdfly.ml;h=8dbb6b051c484a48101d68f590a3adeb18c87d75;hb=2365a412571f633fc85633b134a45cf5a8777efa;hp=b9a79d1397da4941f444b678bc6d62d04322e995;hpb=76ad23ea1e83e8c187a4593027e9baed1bb022e3;p=helm.git

diff --git a/helm/software/daemons/rdfly/rdfly.ml b/helm/software/daemons/rdfly/rdfly.ml
index b9a79d139..8dbb6b051 100644
--- a/helm/software/daemons/rdfly/rdfly.ml
+++ b/helm/software/daemons/rdfly/rdfly.ml
@@ -183,8 +183,10 @@ let callback (req: Http_types.request) 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 ~auto_close:true ()
+    in
+    Http_daemon.main d_spec
   with Sys.Break -> ()
 in