diff options
author | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-01-29 23:12:48 +0100 |
---|---|---|
committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-01-30 17:29:33 +0100 |
commit | 8006b24c2611a075161224606906007aa2650dd8 (patch) | |
tree | ea74f645374ec69b6138c0eee514bdb801616b93 /ide/coqOps.ml | |
parent | 8c4b6ebb338c8a61c607782908254aadead0c3cd (diff) |
STM + CoqIDE: stop_worker message and UI
Diffstat (limited to 'ide/coqOps.ml')
-rw-r--r-- | ide/coqOps.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ide/coqOps.ml b/ide/coqOps.ml index 347459a65..a43a7989a 100644 --- a/ide/coqOps.ml +++ b/ide/coqOps.ml @@ -121,6 +121,7 @@ object method backtrack_last_phrase : unit task method initialize : unit task method join_document : unit task + method stop_worker : int -> unit task method get_n_errors : int method get_errors : (int * string) list @@ -544,6 +545,9 @@ object(self) | Fail x -> self#handle_failure x in Coq.bind (Coq.status ~logger:messages#push true) next + method stop_worker n = + Coq.bind (Coq.stop_worker n) (fun _ -> Coq.return ()) + method get_slaves_status = processed, to_process, slaves_status method get_n_errors = |