X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fdaemons%2Fgraphs%2Ftools%2FdrawGraph.ml;h=dc6bc42d8f6acf3f68c4099823c22698c3d20eb6;hb=56c4e355b88aa505b64c539053aba92eb86afc2a;hp=c17902fbc551dd85e92f0a4a5315fee500d978f7;hpb=76ad23ea1e83e8c187a4593027e9baed1bb022e3;p=helm.git

diff --git a/helm/software/daemons/graphs/tools/drawGraph.ml b/helm/software/daemons/graphs/tools/drawGraph.ml
index c17902fbc..dc6bc42d8 100644
--- a/helm/software/daemons/graphs/tools/drawGraph.ml
+++ b/helm/software/daemons/graphs/tools/drawGraph.ml
@@ -96,6 +96,7 @@ Sys.chdir (Helm_registry.get "draw_graph.dir");
 printf "%s started and listening on port %d\n" daemon_name port;
 printf "current directory is %s\n" (Sys.getcwd ());
 flush stdout;
-Http_daemon.start' ~port callback;
+let d_spec = Http_daemon.daemon_spec ~port ~callback ~auto_close:true () in
+Http_daemon.main d_spec;
 printf "%s is terminating, bye!\n" daemon_name