X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Fsoftware%2Fdaemons%2Fgraphs%2Ftools%2FuriSetQueue.ml;h=9c94d4e9a18a4461a2f678fc59711238f8e7fbdb;hb=27da4233974f10392fce1cf8e91790b282a44c92;hp=86bfe35f38c631237c402dddaa73cd4f428e4cbd;hpb=e90493d6e2e17bb1cb4edb498b24ccdd3b597b86;p=helm.git

diff --git a/helm/software/daemons/graphs/tools/uriSetQueue.ml b/helm/software/daemons/graphs/tools/uriSetQueue.ml
index 86bfe35f3..9c94d4e9a 100644
--- a/helm/software/daemons/graphs/tools/uriSetQueue.ml
+++ b/helm/software/daemons/graphs/tools/uriSetQueue.ml
@@ -192,6 +192,7 @@ Helm_registry.load_from configuration_file;
 let port = Helm_registry.get_int "uri_set_queue.port" in
 printf "%s started and listening on port %d\n" daemon_name port;
 flush stdout;
-Http_daemon.start' ~port ~mode:`Thread callback;
+let d_spec = Http_daemon.daemon_spec ~port ~mode:`Thread ~callback () in
+Http_daemon.main d_spec;
 printf "%s is terminating, bye!\n" daemon_name