diff options
Diffstat (limited to 'ide')
| -rw-r--r-- | ide/coqOps.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/ide/coqOps.ml b/ide/coqOps.ml index 1d1c95aec8..63b6bf1406 100644 --- a/ide/coqOps.ml +++ b/ide/coqOps.ml @@ -336,7 +336,7 @@ object(self) let log s state_id = Minilib.log ("Feedback " ^ s ^ " on " ^ Stateid.to_string (Option.default Stateid.dummy state_id)) in - begin match msg.content, sentence with + begin match msg.contents, sentence with | AddedAxiom, Some (id,sentence) -> log "AddedAxiom" id; remove_flag sentence `PROCESSING; @@ -348,8 +348,8 @@ object(self) remove_flag sentence `PROCESSING; remove_flag sentence `ERROR; self#mark_as_needed sentence - | ProcessingInMaster, Some (id,sentence) -> - log "ProcessingInMaster" id; + | ProcessingIn _, Some (id,sentence) -> + log "ProcessingIn" id; add_flag sentence `PROCESSING; self#mark_as_needed sentence | Incomplete, Some (id, sentence) -> @@ -375,8 +375,8 @@ object(self) | InProgress n, _ -> if n < 0 then processed <- processed + abs n else to_process <- to_process + n - | SlaveStatus(id,status), _ -> - log "SlaveStatus" None; + | WorkerStatus(id,status), _ -> + log "WorkerStatus" None; slaves_status <- CString.Map.add id status slaves_status | _ -> |