Commit 5da2ec93 authored by Fardale's avatar Fardale
Browse files

fix containers update

parent 01b5b478
......@@ -15,7 +15,7 @@
(executable
(name ocluster)
(public_name ocluster)
(libraries containers containers.data atdgen lwt.unix lwt cmdliner logs.lwt
(libraries containers containers-data atdgen lwt.unix lwt cmdliner logs.lwt
logs.fmt logs.cli fmt.cli fmt.tty printbox str)
(preprocess
(pps lwt_ppx)))
......@@ -151,7 +151,7 @@ let handle_computation sockaddr pass computation () =
| Unix.ADDR_INET (a, _) -> Unix.ADDR_INET (a, computation.port)
| s -> s
in
CCVector.filter' (fun (c:computation) -> c.id != computation.id) running_jobs;
CCVector.filter_in_place (fun (c:computation) -> c.id != computation.id) running_jobs;
send_result sockaddr pass result
<&> Logs_lwt.info (fun m ->
m "End computation %i,%i" (fst computation.id) (snd computation.id))
......
Supports Markdown
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