diff options
Diffstat (limited to 'ide/coqOps.ml')
| -rw-r--r-- | ide/coqOps.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ide/coqOps.ml b/ide/coqOps.ml index cefe18092b..b242bd0922 100644 --- a/ide/coqOps.ml +++ b/ide/coqOps.ml @@ -122,11 +122,11 @@ object method backtrack_last_phrase : unit task method initialize : unit task method join_document : unit task - method stop_worker : int -> unit task + method stop_worker : string -> unit task method get_n_errors : int method get_errors : (int * string) list - method get_slaves_status : int * int * string Int.Map.t + method get_slaves_status : int * int * string CString.Map.t method handle_failure : handle_exn_rty -> unit task @@ -154,7 +154,7 @@ object(self) (* proofs being processed by the slaves *) val mutable to_process = 0 val mutable processed = 0 - val mutable slaves_status = Int.Map.empty + val mutable slaves_status = CString.Map.empty val feedbacks : feedback Queue.t = Queue.create () val feedback_timer = Ideutils.mktimer () @@ -377,7 +377,7 @@ object(self) else to_process <- to_process + n | SlaveStatus(id,status), _ -> log "SlaveStatus" None; - slaves_status <- Int.Map.add id status slaves_status + slaves_status <- CString.Map.add id status slaves_status | _ -> if sentence <> None then Minilib.log "Unsupported feedback message" |