diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/interface.mli | 1 | ||||
| -rw-r--r-- | lib/serialize.ml | 5 |
2 files changed, 6 insertions, 0 deletions
diff --git a/lib/interface.mli b/lib/interface.mli index 560d80d83f..144b98252b 100644 --- a/lib/interface.mli +++ b/lib/interface.mli @@ -125,6 +125,7 @@ type feedback_content = | Processed | GlobRef of Loc.t * string * string * string * string | ErrorMsg of Loc.t * string + | InProgress of int type feedback = { id : edit_or_state_id; diff --git a/lib/serialize.ml b/lib/serialize.ml index 5c818ad614..c1933ad90c 100644 --- a/lib/serialize.ml +++ b/lib/serialize.ml @@ -605,6 +605,10 @@ let to_feedback_content xml = do_match xml "feedback_content" (match args with | [loc; s] -> ErrorMsg (to_loc loc, to_string s) | _ -> raise Marshal_error) + | "inprogress" -> + (match args with + | [n] -> InProgress (to_int n) + | _ -> raise Marshal_error) | _ -> raise Marshal_error) let of_feedback_content = function @@ -620,6 +624,7 @@ let of_feedback_content = function ] | ErrorMsg(loc, s) -> constructor "feedback_content" "errormsg" [of_loc loc; of_string s] +| InProgress n -> constructor "feedback_content" "inprogress" [of_int n] let of_feedback msg = let content = of_feedback_content msg.content in |