+ let d_spec = Http_daemon.daemon_spec
+ ~port ~mode:`Fork
+ ~callback:(callback ~syslogger ~styles ~cmd_pipe ~res_pipe ())
+ ~auto_close:true
+(* FG: we set a timeout of 900 secs, which is the default of wget *)
+(* : 300 secs is too short for some proofs like pr0_confluence.con.body *)
+ ~timeout:(Some 900) ()
+ in
+ Http_daemon.main d_spec