Controller_itp.Scheduler -> Protocol ->
  sig
    val focus_on_loading : (Task.task -> bool) -> unit
    val init_server :
      ?send_source:bool -> Whyconf.config -> Env.env -> string -> unit
  end