Commit d1bb65ac authored by Fardale's avatar Fardale

more frequent job launch

parent 4ea55ada
......@@ -66,8 +66,9 @@ let send_computation sockaddr pass computation =
match answer with
| `Ok ->
Logs_lwt.info (fun m ->
m "Computation %i,%i successfully sent."
(fst computation.id) (snd computation.id))
m "Computation %i,%i successfully sent to %s"
(fst computation.id) (snd computation.id)
(string_of_sockaddr sockaddr))
>|= fun () -> true
| `Error s ->
Logs_lwt.err (fun m ->
......@@ -253,7 +254,7 @@ let server_handler pass port sockaddr (ic, oc) =
m "Error during the reception of the computation: %s"
(Printexc.to_string e))
let rec timer f = Lwt_unix.sleep 1800. >>= f >>= fun () -> timer f
let rec timer f = Lwt_unix.sleep 180. >>= f >>= fun () -> timer f
let stop_server resolver server _ = Lwt.wakeup_later resolver server
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment