Commit 54ea6fd5 authored by Fardale's avatar Fardale

add delay when sending jobs

parent c84c5ec0
......@@ -63,7 +63,7 @@ let rec launch_job () =
Lwt_io.write oc (Serialization_j.string_of_query (`COMPUTATION j))
)
(* TODO: check return value *)
>>= Lwt.pause
>>= fun () -> Lwt_unix.sleep 1.
>>= launch_job )
else Logs_lwt.debug (fun m -> m "No compuatiton")
......
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