X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fdaemons%2FproofChecker%2FproofChecker.ml;h=928881373470067ba133aafdb34fb76427809d30;hb=d0d807c69b51b1248e1482d723d982b63e4d9534;hp=c4a6391ccb0a8138c54ba2e677a31b12e31e0a66;hpb=b27a738af7c28848a7c1bbf1374abfff2288010b;p=helm.git

diff --git a/helm/software/daemons/proofChecker/proofChecker.ml b/helm/software/daemons/proofChecker/proofChecker.ml
index c4a6391cc..928881373 100644
--- a/helm/software/daemons/proofChecker/proofChecker.ml
+++ b/helm/software/daemons/proofChecker/proofChecker.ml
@@ -135,6 +135,7 @@ in
 printf "Proof Checker started and listening on port %d\n" port;
 flush stdout;
 CicEnvironment.set_trust (fun _ -> false);
-Http_daemon.start' ~port ~mode:`Fork callback ;
+let d_spec = Http_daemon.daemon_spec ~port ~mode:`Fork ~callback () in
+Http_daemon.main d_spec;
 printf "Proof Checker is terminating, bye!\n"