X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=daemons%2Fgraphs%2Ftools%2FdrawGraph.ml;h=0dc9800fe1c3dac2f226d1ce74dda762c7f8e9dd;hb=027d780050fc28643896c08cc82fd47e30835a76;hp=f7c8174965c7b3f5fc190faa19b58ee226980d92;hpb=6893f7448d32c20354cd6a465a6e0b9922c742ab;p=helm.git

diff --git a/daemons/graphs/tools/drawGraph.ml b/daemons/graphs/tools/drawGraph.ml
index f7c817496..0dc9800fe 100644
--- a/daemons/graphs/tools/drawGraph.ml
+++ b/daemons/graphs/tools/drawGraph.ml
@@ -101,6 +101,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 () in
+Http_daemon.main d_spec;
 printf "%s is terminating, bye!\n" daemon_name