X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=daemons%2FproofChecker%2FproofChecker.ml;h=1b3661e3471dcdb262f4da1dd19fe5f82bb3c125;hb=b1653b6c1008bb99ee91dcf4f075711f4cbaffa4;hp=e4f00fe3acf86c989b4e250af89000fda4942206;hpb=8feb1cda5703daa4371c556593bab63514423a58;p=helm.git

diff --git a/daemons/proofChecker/proofChecker.ml b/daemons/proofChecker/proofChecker.ml
index e4f00fe3a..1b3661e34 100644
--- a/daemons/proofChecker/proofChecker.ml
+++ b/daemons/proofChecker/proofChecker.ml
@@ -125,9 +125,11 @@ let callback (req : Http_types.request) outchan' =
 
 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 ~auto_close:true () in
+Http_daemon.main d_spec;
 printf "Proof Checker is terminating, bye!\n"