diff options
Diffstat (limited to 'ide')
| -rw-r--r-- | ide/session.ml | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/ide/session.ml b/ide/session.ml index 3acd32d7d2..4835307ec5 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 |