diff options
author | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-11-26 18:41:34 +0100 |
---|---|---|
committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-11-27 16:06:54 +0100 |
commit | 10af47a5790987ee5211bac88c3a16396f30bcb0 (patch) | |
tree | 9c260091569dd7cc4c9d8897cf6d2d8115918d5e /ide/coqOps.ml | |
parent | 894a3d16471f19bd527730490ea242e218b62ff6 (diff) |
Feedback: API cleaned up, documented and made user extensible
Diffstat (limited to 'ide/coqOps.ml')
-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 1d1c95aec..63b6bf140 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 | _ -> |