ZACK: ported to the latest ocaml-http API

diff --git a/daemons/whelp/searchEngine.ml b/daemons/whelp/searchEngine.ml
index bb8c722977f7b829e817ef6cc653e8266bc81b5c..e1e08bd4b7bb831fce50df58a3717b0ba28f081d 100644 (file)
--- a/daemons/whelp/searchEngine.ml
+++ b/daemons/whelp/searchEngine.ml
@@ -520,6 +520,7 @@ let _ =
   in
   restore_environment ();
   read_notation ();
-  Http_daemon.start' ~port (callback dbd);
+  let d_spec = Http_daemon.daemon_spec ~port ~callback:(callback dbd) () in
+  Http_daemon.main d_spec;
   printf "%s is terminating, bye!\n" daemon_name