From 1d4bbefe5fe19306ab415e537863763a0a74134a Mon Sep 17 00:00:00 2001
From: Jim Fehrle
Date: Sun, 23 Aug 2020 16:09:10 -0700
Subject: Add an XML message for "Show Proof Diffs" Add menu item that uses
 this

---
 ide/coqide/protocol/interface.ml | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'ide/coqide/protocol/interface.ml')

diff --git a/ide/coqide/protocol/interface.ml b/ide/coqide/protocol/interface.ml
index 646012dcaa..86a81446e8 100644
--- a/ide/coqide/protocol/interface.ml
+++ b/ide/coqide/protocol/interface.ml
@@ -187,6 +187,10 @@ type status_rty = status
 type search_sty = search_flags
 type search_rty = string coq_object list
 
+(** Diffs between the proof term at a given stateid and the previous one *)
+type proof_diff_sty = string * Stateid.t
+type proof_diff_rty = Pp.t
+
 (** Retrieve the list of options of the current toplevel *)
 type get_options_sty = unit
 type get_options_rty = (option_name * option_state) list
@@ -252,6 +256,7 @@ type handler = {
   stop_worker : stop_worker_sty -> stop_worker_rty;
   print_ast   : print_ast_sty   -> print_ast_rty;
   annotate    : annotate_sty    -> annotate_rty;
+  proof_diff  : proof_diff_sty  -> proof_diff_rty;
   handle_exn  : handle_exn_sty  -> handle_exn_rty;
   init        : init_sty        -> init_rty;
   quit        : quit_sty        -> quit_rty;
-- 
cgit v1.2.3