X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FproofChecker%2FproofChecker.ml;h=81ef46c7f8b251aba50aaf8aec8ced51c7177a29;hb=5a68517d961343d0b3454764af6082bed35b7311;hp=26d8309940539a4c4d37de5fd588ccb88d06b395;hpb=dc9aab4ebfab88492cbaef935c79221f648d8313;p=helm.git diff --git a/helm/proofChecker/proofChecker.ml b/helm/proofChecker/proofChecker.ml index 26d830994..81ef46c7f 100644 --- a/helm/proofChecker/proofChecker.ml +++ b/helm/proofChecker/proofChecker.ml @@ -58,7 +58,7 @@ in let bad_request outchan = printf "INVALID REQUEST !!!!!\n\n"; flush stdout; - Http.Daemon.respond_error ~status:(`Client_error `Bad_request) outchan; + Http_daemon.respond_error ~status:(`Client_error `Bad_request) outchan; flush outchan in @@ -93,6 +93,6 @@ in printf "Proof Checker started and listening on port %d\n" port; flush stdout; -Http.Daemon.start' ~port callback; +Http_daemon.start' ~port callback; printf "Proof Checker is terminating, bye!\n"