]> matita.cs.unibo.it Git - helm.git/commitdiff
ported to the latest ocaml-http API
authorClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Tue, 30 May 2006 08:11:37 +0000 (08:11 +0000)
committerClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Tue, 30 May 2006 08:11:37 +0000 (08:11 +0000)
helm/software/daemons/proofChecker/proofChecker.ml

index c4a6391ccb0a8138c54ba2e677a31b12e31e0a66..928881373470067ba133aafdb34fb76427809d30 100644 (file)
@@ -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"