with Found -> true
;;
-let callback ((req: Http_types.request), outchan) =
+let callback (req: Http_types.request) outchan =
try
let res = new Http_response.response () in
res#addBasicHeaders;
outchan
in
-let callback req ch =
- HExtlib.finally
- (fun () -> try close_out ch with Sys_error _ -> ())
- callback (req, ch)
-
-in
-
Helm_registry.load_from configuration_file;
let port = Helm_registry.get_int "uri_set_queue.port" in
printf "%s started and listening on port %d\n" daemon_name port;
flush stdout;
-let d_spec = Http_daemon.daemon_spec ~port ~mode:`Thread ~callback () in
+let d_spec = Http_daemon.daemon_spec ~port ~mode:`Thread ~auto_close:true ~callback () in
Http_daemon.main d_spec;
printf "%s is terminating, bye!\n" daemon_name