let server () =
match !server with
| Some s ->
let procs = Wp_parameters.Procs.get () in
Task.set_procs s procs ; s
| None ->
let procs = Wp_parameters.Procs.get () in
let s = Task.server ~procs () in
server := Some s ; s