From fac26d37e7e0c9d2d1e3000256ab4641a6c9f95e Mon Sep 17 00:00:00 2001
From: Enrico Tassi
Date: Wed, 17 Dec 2014 14:18:40 +0100
Subject: CoqIDE: cleanup jobs window on worker death

---
 stm/asyncTaskQueue.ml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'stm/asyncTaskQueue.ml')

diff --git a/stm/asyncTaskQueue.ml b/stm/asyncTaskQueue.ml
index 3cb6e70229..917de9b520 100644
--- a/stm/asyncTaskQueue.ml
+++ b/stm/asyncTaskQueue.ml
@@ -146,6 +146,7 @@ module Make(T : Task) = struct
 
   let manager cpanel (id, proc, ic, oc) =
     let { WorkerPool.extra = queue; exit; cancelled } = cpanel in
+    let exit () =  report_status ~id "Dead"; exit () in
     let last_task = ref None in
     let worker_age = ref `Fresh in
     let got_token = ref false in
-- 
cgit v1.2.3