let msg = MooglePp.pp_error "Uncaught exception" exn_string in
send_results (`Error msg) req outchan
+let restore_environment () =
+ match
+ Helm_registry.get_opt Helm_registry.get "search_engine.environment_dump"
+ with
+ | None -> ()
+ | Some fname ->
+ printf "Restoring Cic environment from %s ... " fname; flush stdout;
+ let ic = open_in fname in
+ CicEnvironment.restore_from_channel ic;
+ close_in ic;
+ printf "done!\n"; flush stdout
+
let _ =
printf "%s started and listening on port %d\n" daemon_name port;
printf "Current directory is %s\n" (Sys.getcwd ());
~user:(Helm_registry.get "db.user")
()
in
+ restore_environment ();
Http_daemon.start' ~port (callback dbd);
printf "%s is terminating, bye!\n" daemon_name