CoqIDE: cleanup jobs window on worker death

1 files changed, 9 insertions, 3 deletions

diff --git a/ide/session.ml b/ide/session.ml
index 3acd32d7d..4835307ec 100644
--- a/ide/session.ml
+++ b/ide/session.ml
@@ -325,9 +325,15 @@ let create_jobpage coqtop coqops : jobpage =
 	access (fun _ store -> store#clear ());
         !callback jobs;
 	CString.Map.iter (fun id job -> access (fun columns store ->
-          let line = store#append () in
-          store#set line (find_string_col "Worker" columns) id;
-          store#set line (find_string_col "Job name" columns) job))
+          let column = find_string_col "Worker" columns in
+          if job = "Dead" then
+            store#foreach (fun _ row ->
+              if store#get ~row ~column = id then store#remove row || true
+              else false)
+          else
+            let line = store#append () in
+            store#set line column id;
+            store#set line (find_string_col "Job name" columns) job))
           jobs
       end
     method on_update ~callback:cb = callback := cb