let d_spec = Http_daemon.daemon_spec
~port ~mode:`Fork
~callback:(callback ~syslogger ~styles ~cmd_pipe ~res_pipe ())
- ~auto_close:true ()
+ ~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
| _ (* < 0 *) -> (* fork failed :-((( *)