let main () =
Sys.catch_break true;
try
- Http_daemon.start'
- ~timeout:(Some 600) ~port:daemonport callback
+ let d_spec =
+ Http_daemon.daemon_spec ~timeout:(Some 600) ~port:daemonport ~callback ~auto_close:true ()
+ in
+ Http_daemon.main d_spec
with Sys.Break -> ()
in