X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=daemons%2Fgraphs%2Ftools%2FuriSetQueue.ml;h=e55fcd2142fee8256d9008c45116665005630828;hb=709805584b15f479b4afcf4220ea3fbe541fe674;hp=43027580016fe58101457ccc8ae38398ff8f0e8c;hpb=8feb1cda5703daa4371c556593bab63514423a58;p=helm.git

diff --git a/daemons/graphs/tools/uriSetQueue.ml b/daemons/graphs/tools/uriSetQueue.ml
index 430275800..e55fcd214 100644
--- a/daemons/graphs/tools/uriSetQueue.ml
+++ b/daemons/graphs/tools/uriSetQueue.ml
@@ -185,6 +185,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 ~auto_close:true ~callback () in
+Http_daemon.main d_spec;
 printf "%s is terminating, bye!\n" daemon_name