diff options
author | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-07-23 11:54:36 +0200 |
---|---|---|
committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-08-05 18:24:50 +0200 |
commit | 4e724634839726aa11534f16e4bfb95cd81232a4 (patch) | |
tree | 2114ba0a78c4df764d78ad260e30f5fa6854df95 /lib/feedback.ml | |
parent | 95e97b68744eeb8bf20811c3938d78912eb3e918 (diff) |
STM: code restructured to reuse task queue for tactics
Diffstat (limited to 'lib/feedback.ml')
-rw-r--r-- | lib/feedback.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/feedback.ml b/lib/feedback.ml index 27ed44724..e01844a48 100644 --- a/lib/feedback.ml +++ b/lib/feedback.ml @@ -65,7 +65,7 @@ type feedback_content = | GlobDef of Loc.t * string * string * string | ErrorMsg of Loc.t * string | InProgress of int - | SlaveStatus of int * string + | SlaveStatus of string * string | ProcessingInMaster | Goals of Loc.t * string | FileLoaded of string * string @@ -90,7 +90,7 @@ let to_feedback_content = do_match "feedback_content" (fun s a -> match s,a with | "errormsg", [loc; s] -> ErrorMsg (to_loc loc, to_string s) | "inprogress", [n] -> InProgress (to_int n) | "slavestatus", [ns] -> - let n, s = to_pair to_int to_string ns in + let n, s = to_pair to_string to_string ns in SlaveStatus(n,s) | "goals", [loc;s] -> Goals (to_loc loc, to_string s) | "fileloaded", [dirpath; filename] -> @@ -121,7 +121,7 @@ let of_feedback_content = function | InProgress n -> constructor "feedback_content" "inprogress" [of_int n] | SlaveStatus(n,s) -> constructor "feedback_content" "slavestatus" - [of_pair of_int of_string (n,s)] + [of_pair of_string of_string (n,s)] | Goals (loc,s) -> constructor "feedback_content" "goals" [of_loc loc;of_string s] | FileLoaded(dirpath, filename) -> |